diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-08-19 17:31:26 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-08-19 17:31:26 +0000 |
| commit | c9829c7025e6e840701ddb0d28c240e018d61c16 (patch) | |
| tree | 22b0f5e95603fb57131d4d12f18040050aea49ed /lisp/log-view.el | |
| parent | b932657be03c953e33b7eb78f807b668ba481059 (diff) | |
| download | emacs-c9829c7025e6e840701ddb0d28c240e018d61c16.tar.gz emacs-c9829c7025e6e840701ddb0d28c240e018d61c16.tar.bz2 emacs-c9829c7025e6e840701ddb0d28c240e018d61c16.zip | |
(log-view-mode-map): Remove `q' binding, and unreliable
cvs-mode-map parent hack.
(log-view-mode): Derive from special-mode.
Diffstat (limited to 'lisp/log-view.el')
| -rw-r--r-- | lisp/log-view.el | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lisp/log-view.el b/lisp/log-view.el index 3405aac6ab3..8b9c74660c5 100644 --- a/lisp/log-view.el +++ b/lisp/log-view.el @@ -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 @@ The match group number 1 should match the revision number itself.") ;;;; ;;;###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) |