procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix mouse links in new Buffer Menu.

Browse source 
* buff-menu.el (Buffer-menu-mouse-select): Restore function.
(Buffer-menu-mode-map): Bind it.
(Buffer-menu--pretty-name): Add a mouse-face property.

Fixes: debbugs:11459
This commit is contained in:
Chong Yidong 2012-05-12 23:04:11 +08:00
parent ac59c2f6d1
commit 0d90978655
2 changed files with 20 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,6 +1,9 @@
2012-05-12 Chong Yidong <cyd@gnu.org>
* buff-menu.el (Buffer-menu-buffer+size-width): Doc fix (Bug#11454).
(Buffer-menu-mouse-select): Restore function (Bug#11459).
(Buffer-menu-mode-map): Bind it.
(Buffer-menu--pretty-name): Add a mouse-face property.
2012-05-11 Stefan Monnier <monnier@iro.umontreal.ca>

18
lisp/buff-menu.el
View file

@ -130,6 +130,9 @@ commands.")
(define-key map (kbd "M-s a C-s") 'Buffer-menu-isearch-buffers)
(define-key map (kbd "M-s a M-C-s") 'Buffer-menu-isearch-buffers-regexp)
(define-key map [mouse-2] 'Buffer-menu-mouse-select)
(define-key map [follow-link] 'mouse-face)
(define-key map [menu-bar Buffer-menu-mode] (cons (purecopy "Buffer-Menu") menu-map))
(define-key menu-map [quit]
`(menu-item ,(purecopy "Quit") quit-window
@ -565,6 +568,17 @@ means list those buffers and no others."
(tabulated-list-print))
buffer))
(defun Buffer-menu-mouse-select (event)
"Select the buffer whose line you click on."
(interactive "e")
(select-window (posn-window (event-end event)))
(let ((buffer (tabulated-list-get-id (posn-point (event-end event)))))
(when (buffer-live-p buffer)
(if (and (window-dedicated-p (selected-window))
(eq (selected-window) (frame-root-window)))
(switch-to-buffer-other-frame buffer)
(switch-to-buffer buffer)))))
(defun list-buffers--refresh (&optional buffer-list old-buffer)
;; Set up `tabulated-list-format'.
(let ((name-width Buffer-menu-name-width)
@ -617,7 +631,9 @@ means list those buffers and no others."
(string-to-number (aref (cadr entry2) 4))))
(defun Buffer-menu--pretty-name (name)
(propertize name 'font-lock-face 'buffer-menu-buffer))
(propertize name
'font-lock-face 'buffer-menu-buffer
'mouse-face 'highlight))
(defun Buffer-menu--pretty-file-name (file)
(cond (file