diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-06 13:45:11 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-06 13:45:11 +0200 |
commit | 44b5f0cd8732165747880109f7c5783534a3fbb0 (patch) | |
tree | 6393bca5d0339dab7b886252c5ad3850762b5e3c /lisp/vc/vc-sccs.el | |
parent | deb66cb32d94e1bef373b79ec099021c11065566 (diff) | |
download | emacs-44b5f0cd8732165747880109f7c5783534a3fbb0.tar.gz |
Remove the P/N/M-p/M-n bindings from the general log-view map
* lisp/vc/log-view.el (log-view-mode-map): Remove the P/N/M-p/M-n
bindings (that are only usable in some VCs).
* lisp/vc/vc-sccs.el (vc-sccs-log-view-mode):
* lisp/vc/vc-rcs.el (vc-rcs-log-view-mode):
* lisp/vc/vc-cvs.el (vc-cvs-log-view-mode): New modes that bind
the P/N/M-p/M-n commands (bug#14531).
Diffstat (limited to 'lisp/vc/vc-sccs.el')
-rw-r--r-- | lisp/vc/vc-sccs.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/vc/vc-sccs.el b/lisp/vc/vc-sccs.el index 1035ee9ce9d..9622bf5e097 100644 --- a/lisp/vc/vc-sccs.el +++ b/lisp/vc/vc-sccs.el @@ -27,6 +27,7 @@ (eval-when-compile (require 'vc)) +(require 'log-view) ;;; ;;; Customization options @@ -518,6 +519,14 @@ If NAME is nil or a revision number string it's just passed through." (file-name-directory (vc-master-name file)))) (vc-parse-buffer (concat name "\t:\t" file "\t\\(.+\\)") 1)))) +(defvar-keymap vc-sccs-log-view-mode-map + "N" #'log-view-file-next + "P" #'log-view-file-prev + "M-n" #'log-view-file-next + "M-p" #'log-view-file-prev) + +(define-derived-mode vc-sccs-log-view-mode log-view-mode "SCCS-Log-View") + (provide 'vc-sccs) ;;; vc-sccs.el ends here |