[Emacs-diffs] emacs/lisp ChangeLog log-view.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/08/19 17:31:31

Modified files:
        lisp           : ChangeLog log-view.el 

Log message:
        (log-view-mode-map): Remove `q' binding, and unreliable
        cvs-mode-map parent hack.
        (log-view-mode): Derive from special-mode.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15973&r2=1.15974
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/log-view.el?cvsroot=emacs&r1=1.57&r2=1.58

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15973
retrieving revision 1.15974
diff -u -b -r1.15973 -r1.15974
--- ChangeLog   19 Aug 2009 17:28:52 -0000      1.15973
+++ ChangeLog   19 Aug 2009 17:31:26 -0000      1.15974
@@ -1,5 +1,9 @@
 2009-08-19  Stefan Monnier  <address@hidden>
 
+       * log-view.el (log-view-mode-map): Remove `q' binding, and unreliable
+       cvs-mode-map parent hack.
+       (log-view-mode): Derive from special-mode.
+
        * linum.el (linum-mode): window-size-change-functions is redundant.
        Adapt to new window-configuration-change-hook behavior.
        (linum-after-size, linum-after-config): Remove.

Index: log-view.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/log-view.el,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -b -r1.57 -r1.58
--- log-view.el 5 Jan 2009 03:19:30 -0000       1.57
+++ log-view.el 19 Aug 2009 17:31:31 -0000      1.58
@@ -123,8 +123,7 @@
   :prefix "log-view-")
 
 (easy-mmode-defmap log-view-mode-map
-  '(("q" . quit-window)
-    ("z" . kill-this-buffer)
+  '(("z" . kill-this-buffer)
     ("m" . log-view-toggle-mark-entry)
     ("e" . log-view-modify-change-comment)
     ("d" . log-view-diff)
@@ -140,10 +139,7 @@
     ("\M-n" . log-view-file-next)
     ("\M-p" . log-view-file-prev))
   "Log-View's keymap."
-  :group 'log-view
-  ;; Here I really need either buffer-local keymap-inheritance
-  ;; or a minor-mode-map with lower precedence than the local map.
-  :inherit (if (boundp 'cvs-mode-map) cvs-mode-map))
+  :group 'log-view)
 
 (easy-menu-define log-view-mode-menu log-view-mode-map
   "Log-View Display Menu"
@@ -246,7 +242,7 @@
 ;;;;
 
 ;;;###autoload
-(define-derived-mode log-view-mode fundamental-mode "Log-View"
+(define-derived-mode log-view-mode special-mode "Log-View"
   "Major mode for browsing CVS log output."
   (setq buffer-read-only t)
   (set (make-local-variable 'font-lock-defaults) log-view-font-lock-defaults)