This is regarding this FOR-RELEASE item: ** The header-line buttons in the buffer list buffer should respond to Mouse-1.
The following patch fixes the bug and simplifies the code. (The `if' condition that checks `Buffer-menu-use-header-line' in the old code is not necessary, because it does no harm to bind some extra keys.) If there are no objections over the next few days, I will check it in. *** emacs/lisp/buff-menu.el.~1.89.~ 2005-08-15 17:29:32.000000000 -0400 --- emacs/lisp/buff-menu.el 2005-09-04 15:11:22.000000000 -0400 *************** *** 645,666 **** "mouse-2: sort by visited order" "mouse-2, RET: sort by visited order")) 'mouse-face 'highlight ! 'keymap (let ((map (make-sparse-keymap))) ! (if Buffer-menu-use-header-line ! (define-key map [header-line mouse-2] ! `(lambda (e) ! (interactive "e") ! (save-window-excursion ! (if e (mouse-select-window e)) ! (Buffer-menu-sort ,column)))) ! (define-key map [mouse-2] ! `(lambda (e) ! (interactive "e") ! (if e (mouse-select-window e)) ! (Buffer-menu-sort ,column))) ! (define-key map "\C-m" ! `(lambda () (interactive) ! (Buffer-menu-sort ,column)))) map))) (defun list-buffers-noselect (&optional files-only buffer-list) --- 645,663 ---- "mouse-2: sort by visited order" "mouse-2, RET: sort by visited order")) 'mouse-face 'highlight ! 'keymap (let ((map (make-sparse-keymap)) ! (fun `(lambda (e) ! (interactive "e") ! (if e (mouse-select-window e)) ! (Buffer-menu-sort ,column)))) ! (define-key map [header-line mouse-1] fun) ! (define-key map [header-line mouse-2] fun) ! (define-key map [header-line down-mouse-1] 'ignore) ! (define-key map [mouse-2] fun) ! (define-key map [follow-link] 'mouse-face) ! (define-key map "\C-m" ! `(lambda () (interactive) ! (Buffer-menu-sort ,column))) map))) (defun list-buffers-noselect (&optional files-only buffer-list) _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-devel