[Emacs-diffs] emacs/lisp ChangeLog buff-menu.el

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/01/15 15:12:36

Modified files:
        lisp           : ChangeLog buff-menu.el 

Log message:
        (Buffer-menu-mode): Derive from special-mode.
        Refer to revert-buffer, not Buffer-menu-revert.
        (Buffer-menu-revert): Remove function, unused.
        (Buffer-menu-mode-map): Don't bind keys already
        bound by special-mode.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15110&r2=1.15111
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/buff-menu.el?cvsroot=emacs&r1=1.122&r2=1.123

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15110
retrieving revision 1.15111
diff -u -b -r1.15110 -r1.15111
--- ChangeLog   15 Jan 2009 10:50:50 -0000      1.15110
+++ ChangeLog   15 Jan 2009 15:12:32 -0000      1.15111
@@ -1,3 +1,11 @@
+2009-01-15  Dan Nicolaescu  <address@hidden>
+
+       * buff-menu.el (Buffer-menu-mode): Derive from special-mode.
+       Refer to revert-buffer, not Buffer-menu-revert.
+       (Buffer-menu-revert): Remove function, unused.
+       (Buffer-menu-mode-map): Don't bind keys already
+       bound by special-mode.
+
 2009-01-15  Stephen Eglen  <address@hidden>
 
        * emacs-lisp/lisp-mode.el (lisp-mode-variables): Doc fix.

Index: buff-menu.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/buff-menu.el,v
retrieving revision 1.122
retrieving revision 1.123
diff -u -b -r1.122 -r1.123
--- buff-menu.el        5 Jan 2009 03:18:46 -0000       1.122
+++ buff-menu.el        15 Jan 2009 15:12:36 -0000      1.123
@@ -120,7 +120,6 @@
 (defvar Buffer-menu-mode-map
   (let ((map (make-keymap)))
     (suppress-keymap map t)
-    (define-key map "q" 'quit-window)
     (define-key map "v" 'Buffer-menu-select)
     (define-key map "2" 'Buffer-menu-2-window)
     (define-key map "1" 'Buffer-menu-1-window)
@@ -140,13 +139,11 @@
     (define-key map "p" 'previous-line)
     (define-key map "\177" 'Buffer-menu-backup-unmark)
     (define-key map "~" 'Buffer-menu-not-modified)
-    (define-key map "?" 'describe-mode)
     (define-key map "u" 'Buffer-menu-unmark)
     (define-key map "m" 'Buffer-menu-mark)
     (define-key map "t" 'Buffer-menu-visit-tags-table)
     (define-key map "%" 'Buffer-menu-toggle-read-only)
     (define-key map "b" 'Buffer-menu-bury)
-    (define-key map "g" 'Buffer-menu-revert)
     (define-key map "V" 'Buffer-menu-view)
     (define-key map "T" 'Buffer-menu-toggle-files-only)
     (define-key map [mouse-2] 'Buffer-menu-mouse-select)
@@ -159,7 +156,7 @@
 ;; Buffer Menu mode is suitable only for specially formatted data.
 (put 'Buffer-menu-mode 'mode-class 'special)
 
-(define-derived-mode Buffer-menu-mode nil "Buffer Menu"
+(define-derived-mode Buffer-menu-mode special-mode "Buffer Menu"
   "Major mode for editing a list of buffers.
 Each line describes one of the buffers in Emacs.
 Letters do not insert themselves; instead, they are commands.
@@ -190,7 +187,7 @@
   With prefix argument, also move up one line.
 \\[Buffer-menu-backup-unmark] -- back up a line and remove marks.
 \\[Buffer-menu-toggle-read-only] -- toggle read-only status of buffer on this 
line.
-\\[Buffer-menu-revert] -- update the list of buffers.
+\\[revert-buffer] -- update the list of buffers.
 \\[Buffer-menu-toggle-files-only] -- toggle whether the menu displays only 
file buffers.
 \\[Buffer-menu-bury] -- bury the buffer listed on this line."
   (set (make-local-variable 'revert-buffer-function)
@@ -203,13 +200,6 @@
 (define-obsolete-variable-alias 'buffer-menu-mode-hook
   'Buffer-menu-mode-hook "23.1")
 
-;; This function exists so we can make the doc string of Buffer-menu-mode
-;; look nice.
-(defun Buffer-menu-revert ()
-  "Update the list of buffers."
-  (interactive)
-  (revert-buffer))
-
 (defun Buffer-menu-revert-function (ignore1 ignore2)
   (or (eq buffer-undo-list t)
       (setq buffer-undo-list nil))