Mercurial > hg > xemacs-beta

comparison lisp/buff-menu.el @ 548:0f4bdbb07414

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-05-20 21:36:06 by adrian] [PATCH] Properly make mouse-track-click-hook local in buff-menu.el and info.el <u7kzb3dsj.fsf@rapier.ecf.teradyne.com>
author adrian
date Sun, 20 May 2001 21:36:08 +0000
parents 56d2a7dcb919
children 943eaba38521
comparison
equal deleted inserted replaced
547:cf82e22962ce 548:0f4bdbb07414
138 (setq mode-name "Buffer Menu") 138 (setq mode-name "Buffer Menu")
139 (make-local-variable 'revert-buffer-function) 139 (make-local-variable 'revert-buffer-function)
140 (setq revert-buffer-function 'Buffer-menu-revert-function) 140 (setq revert-buffer-function 'Buffer-menu-revert-function)
141 (setq truncate-lines t) 141 (setq truncate-lines t)
142 (setq buffer-read-only t) 142 (setq buffer-read-only t)
143 (add-hook 'mouse-track-click-hook 'Buffer-menu-maybe-mouse-select) ; XEmacs 143 (make-local-hook 'mouse-track-click-hook) ; XEmacs
144 (add-hook 'mouse-track-click-hook 'Buffer-menu-maybe-mouse-select t t) ; XEmacs
144 (run-hooks 'buffer-menu-mode-hook)) 145 (run-hooks 'buffer-menu-mode-hook))
145 146
146 (defun Buffer-menu-revert-function (ignore1 ignore2) 147 (defun Buffer-menu-revert-function (ignore1 ignore2)
147 (list-buffers)) 148 (list-buffers))
148 149