mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(Buffer-menu-mode): Add mouse-face properties.

Browse Source
This commit is contained in:
Karl Heuer 1994-04-02 04:13:09 +00:00
parent 9f31d21b2c
commit 823316aaf2
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/buff-menu.el
View File

@ -111,10 +111,17 @@ Letters do not insert themselves; instead, they are commands.
\\[Buffer-menu-toggle-read-only] -- toggle read-only status of buffer on this line."
(kill-all-local-variables)
(use-local-map Buffer-menu-mode-map)
(setq truncate-lines t)
(setq buffer-read-only t)
(setq major-mode 'Buffer-menu-mode)
(setq mode-name "Buffer Menu")
(save-excursion
(goto-char (point-min))
(forward-line 2)
(while (not (eobp))
(put-text-property (point) (save-excursion (end-of-line) (point))
'mouse-face 'highlight)
(forward-line 1)))
(setq truncate-lines t)
(setq buffer-read-only t)
(run-hooks 'buffer-menu-mode-hook))
(defvar Buffer-menu-buffer-column nil)