diff options
Diffstat (limited to 'lisp/vc/log-edit.el')
| -rw-r--r-- | lisp/vc/log-edit.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/vc/log-edit.el b/lisp/vc/log-edit.el index 906f9a94205..1c69bdf4135 100644 --- a/lisp/vc/log-edit.el +++ b/lisp/vc/log-edit.el @@ -51,6 +51,9 @@ ;; The main keymap +(define-obsolete-variable-alias 'vc-log-mode-map 'log-edit-mode-map "28.1") +(define-obsolete-variable-alias 'vc-log-entry-mode 'log-edit-mode-map "28.1") + (easy-mmode-defmap log-edit-mode-map '(("\C-c\C-c" . log-edit-done) ("\C-c\C-a" . log-edit-insert-changelog) @@ -67,10 +70,6 @@ "Keymap for the `log-edit-mode' (to edit version control log messages)." :group 'log-edit) -;; Compatibility with old names. Should we bother ? -(defvar vc-log-mode-map log-edit-mode-map) -(defvar vc-log-entry-mode vc-log-mode-map) - (easy-menu-define log-edit-menu log-edit-mode-map "Menu used for `log-edit-mode'." '("Log-Edit" @@ -245,7 +244,9 @@ If the optional argument STRIDE is present, that is a step-width to use when going through the comment ring." ;; Why substring rather than regexp ? -sm (interactive - (list (read-string "Comment substring: " nil nil log-edit-last-comment-match))) + (list (read-string (format-prompt "Comment substring" + log-edit-last-comment-match) + nil nil log-edit-last-comment-match))) (unless stride (setq stride 1)) (if (string= str "") (setq str log-edit-last-comment-match) @@ -262,7 +263,9 @@ when going through the comment ring." (defun log-edit-comment-search-forward (str) "Search forwards through comment history for a substring match of STR." (interactive - (list (read-string "Comment substring: " nil nil log-edit-last-comment-match))) + (list (read-string (format-prompt "Comment substring" + log-edit-last-comment-match) + nil nil log-edit-last-comment-match))) (log-edit-comment-search-backward str -1)) (defun log-edit-comment-to-change-log (&optional whoami file-name) |