# HG changeset patch # User Stefan Monnier # Date 1250703086 0 # Node ID f02a9f76b408328b8be682c3139d58ff3019b236 # Parent fe22bf79af7ffafe8b09543e9b9ee29e50b0da62 (log-view-mode-map): Remove `q' binding, and unreliable cvs-mode-map parent hack. (log-view-mode): Derive from special-mode. diff -r fe22bf79af7f -r f02a9f76b408 lisp/ChangeLog --- a/lisp/ChangeLog Wed Aug 19 17:28:52 2009 +0000 +++ b/lisp/ChangeLog Wed Aug 19 17:31:26 2009 +0000 @@ -1,5 +1,9 @@ 2009-08-19 Stefan Monnier + * 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. diff -r fe22bf79af7f -r f02a9f76b408 lisp/log-view.el --- a/lisp/log-view.el Wed Aug 19 17:28:52 2009 +0000 +++ b/lisp/log-view.el Wed Aug 19 17:31:26 2009 +0000 @@ -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)