Mercurial > hg > xemacs-beta

comparison lisp/packages/buff-menu.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents b9518feda344
children 28f395d8dc7a
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
94 (define-key Buffer-menu-mode-map "u" 'Buffer-menu-unmark) 94 (define-key Buffer-menu-mode-map "u" 'Buffer-menu-unmark)
95 (define-key Buffer-menu-mode-map "m" 'Buffer-menu-mark) 95 (define-key Buffer-menu-mode-map "m" 'Buffer-menu-mark)
96 (define-key Buffer-menu-mode-map "t" 'Buffer-menu-visit-tags-table) 96 (define-key Buffer-menu-mode-map "t" 'Buffer-menu-visit-tags-table)
97 (define-key Buffer-menu-mode-map "%" 'Buffer-menu-toggle-read-only) 97 (define-key Buffer-menu-mode-map "%" 'Buffer-menu-toggle-read-only)
98 (define-key Buffer-menu-mode-map "g" 'revert-buffer) 98 (define-key Buffer-menu-mode-map "g" 'revert-buffer)
99 (define-key Buffer-menu-mode-map [mouse-2] 'Buffer-menu-mouse-select) 99 (define-key Buffer-menu-mode-map 'button2 'Buffer-menu-mouse-select)
100 (define-key Buffer-menu-mode-map [mouse-3] 'Buffer-menu-popup-menu) 100 (define-key Buffer-menu-mode-map 'button3 'Buffer-menu-popup-menu)
101 ) 101 )
102 102
103 ;; Buffer Menu mode is suitable only for specially formatted data. 103 ;; Buffer Menu mode is suitable only for specially formatted data.
104 (put 'Buffer-menu-mode 'mode-class 'special) 104 (put 'Buffer-menu-mode 'mode-class 'special)
105 105
487 "String used to identify this buffer, or a function of one argument 487 "String used to identify this buffer, or a function of one argument
488 to generate such a string. This variable is always buffer-local.") 488 to generate such a string. This variable is always buffer-local.")
489 (make-variable-buffer-local 'list-buffers-identification) 489 (make-variable-buffer-local 'list-buffers-identification)
490 490
491 ;; XEmacs 491 ;; XEmacs
492 (defvar list-buffers-directory) 492 ;;;###autoload
493 (defvar list-buffers-directory nil)
494
495 ;;;###autoload
493 (make-variable-buffer-local 'list-buffers-directory) 496 (make-variable-buffer-local 'list-buffers-directory)
494 497
495 ;; #### not synched 498 ;; #### not synched
496 (defun default-list-buffers-identification (output) 499 (defun default-list-buffers-identification (output)
497 (save-excursion 500 (save-excursion