[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/buff-menu.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/buff-menu.el |
Date: |
Tue, 06 Sep 2005 15:10:07 -0400 |
Index: emacs/lisp/buff-menu.el
diff -c emacs/lisp/buff-menu.el:1.89 emacs/lisp/buff-menu.el:1.90
*** emacs/lisp/buff-menu.el:1.89 Mon Aug 15 21:29:32 2005
--- emacs/lisp/buff-menu.el Tue Sep 6 19:10:06 2005
***************
*** 638,666 ****
(propertize name
'help-echo (if column
(if Buffer-menu-use-header-line
! (concat "mouse-2: sort by " (downcase name))
(concat "mouse-2, RET: sort by "
(downcase name)))
(if Buffer-menu-use-header-line
! "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)
--- 638,665 ----
(propertize name
'help-echo (if column
(if Buffer-menu-use-header-line
! (concat "mouse-1, mouse-2: sort by "
! (downcase name))
(concat "mouse-2, RET: sort by "
(downcase name)))
(if Buffer-menu-use-header-line
! "mouse-1, 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))))
! ;; This keymap handles both nil and non-nil
! ;; values for Buffer-menu-use-header-line.
! (define-key map [header-line mouse-1] fun)
! (define-key map [header-line mouse-2] fun)
! (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-diffs] Changes to emacs/lisp/buff-menu.el,
Chong Yidong <=