diff options
author | Karl Heuer <kwzh@gnu.org> | 1994-04-02 04:13:09 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1994-04-02 04:13:09 +0000 |
commit | 0393f101472366e2bfddde5dc7e8c05206bed677 (patch) | |
tree | b718671beccb827406479bf7df741f83a36d49de /lisp/buff-menu.el | |
parent | f70ff135ff07b50e342f000c34a69d1e9b07cc13 (diff) | |
download | emacs-0393f101472366e2bfddde5dc7e8c05206bed677.tar.gz |
(Buffer-menu-mode): Add mouse-face properties.
Diffstat (limited to 'lisp/buff-menu.el')
-rw-r--r-- | lisp/buff-menu.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index e830012cb56..4a5a68f73b4 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -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) |