diff options
| author | Chong Yidong | 2005-09-06 19:10:06 +0000 |
|---|---|---|
| committer | Chong Yidong | 2005-09-06 19:10:06 +0000 |
| commit | efe4e5af8a7c28b184090939e35f312d9bded3f3 (patch) | |
| tree | 1b96188d58eed6dcf9c08841145fd5275f16f03b /lisp/buff-menu.el | |
| parent | 9655b4049320773197f466b159189a731218902f (diff) | |
| download | emacs-efe4e5af8a7c28b184090939e35f312d9bded3f3.tar.gz emacs-efe4e5af8a7c28b184090939e35f312d9bded3f3.zip | |
*** empty log message ***
Diffstat (limited to 'lisp/buff-menu.el')
| -rw-r--r-- | lisp/buff-menu.el | 35 |
1 files changed, 17 insertions, 18 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 9418eebe98f..41bc4bb3335 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el | |||
| @@ -638,29 +638,28 @@ For more information, see the function `buffer-menu'." | |||
| 638 | (propertize name | 638 | (propertize name |
| 639 | 'help-echo (if column | 639 | 'help-echo (if column |
| 640 | (if Buffer-menu-use-header-line | 640 | (if Buffer-menu-use-header-line |
| 641 | (concat "mouse-2: sort by " (downcase name)) | 641 | (concat "mouse-1, mouse-2: sort by " |
| 642 | (downcase name)) | ||
| 642 | (concat "mouse-2, RET: sort by " | 643 | (concat "mouse-2, RET: sort by " |
| 643 | (downcase name))) | 644 | (downcase name))) |
| 644 | (if Buffer-menu-use-header-line | 645 | (if Buffer-menu-use-header-line |
| 645 | "mouse-2: sort by visited order" | 646 | "mouse-1, mouse-2: sort by visited order" |
| 646 | "mouse-2, RET: sort by visited order")) | 647 | "mouse-2, RET: sort by visited order")) |
| 647 | 'mouse-face 'highlight | 648 | 'mouse-face 'highlight |
| 648 | 'keymap (let ((map (make-sparse-keymap))) | 649 | 'keymap (let ((map (make-sparse-keymap)) |
| 649 | (if Buffer-menu-use-header-line | 650 | (fun `(lambda (e) |
| 650 | (define-key map [header-line mouse-2] | 651 | (interactive "e") |
| 651 | `(lambda (e) | 652 | (if e (mouse-select-window e)) |
| 652 | (interactive "e") | 653 | (Buffer-menu-sort ,column)))) |
| 653 | (save-window-excursion | 654 | ;; This keymap handles both nil and non-nil |
| 654 | (if e (mouse-select-window e)) | 655 | ;; values for Buffer-menu-use-header-line. |
| 655 | (Buffer-menu-sort ,column)))) | 656 | (define-key map [header-line mouse-1] fun) |
| 656 | (define-key map [mouse-2] | 657 | (define-key map [header-line mouse-2] fun) |
| 657 | `(lambda (e) | 658 | (define-key map [mouse-2] fun) |
| 658 | (interactive "e") | 659 | (define-key map [follow-link] 'mouse-face) |
| 659 | (if e (mouse-select-window e)) | 660 | (define-key map "\C-m" |
| 660 | (Buffer-menu-sort ,column))) | 661 | `(lambda () (interactive) |
| 661 | (define-key map "\C-m" | 662 | (Buffer-menu-sort ,column))) |
| 662 | `(lambda () (interactive) | ||
| 663 | (Buffer-menu-sort ,column)))) | ||
| 664 | map))) | 663 | map))) |
| 665 | 664 | ||
| 666 | (defun list-buffers-noselect (&optional files-only buffer-list) | 665 | (defun list-buffers-noselect (&optional files-only buffer-list) |