andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(log-view-mode-map): Remove `q' binding, and unreliable

Browse source 
cvs-mode-map parent hack.
(log-view-mode): Derive from special-mode.
This commit is contained in:
Stefan Monnier 2009-08-19 17:31:26 +00:00
parent b932657be0
commit c9829c7025
2 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2009-08-19 Stefan Monnier <monnier@iro.umontreal.ca>
* 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.

10
lisp/log-view.el
View file

@ -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)