procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use substitute-command-keys in some vc messages

Browse source 
* lisp/vc/vc-dispatcher.el (vc-start-logentry):
* lisp/vc/vc.el (vc-steal-lock): Use substitute-command-keys.
This commit is contained in:
Stefan Kangas 2022-09-16 16:37:58 +02:00
parent cce9c260b5
commit 9b09def4be
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/vc/vc-dispatcher.el
View file

@ -704,7 +704,11 @@ PATCH-STRING is a patch to check in."
(erase-buffer)
(when (stringp comment) (insert comment)))
(if (or (not comment) initial-contents)
(message "%s Type C-c C-c when done" msg)
(message (substitute-command-keys
(if (eq major-mode 'log-edit-mode)
"%s Type \\[log-edit-done] when done"
"%s Type \\`C-c C-c' when done"))
msg)
(vc-finish-logentry (eq comment t)))))
;; vc-finish-logentry is typically called from a log-edit buffer (see

4
lisp/vc/vc.el
View file

@ -1627,7 +1627,9 @@ Type \\[vc-next-action] to check in changes.")
(format "I stole the lock on %s, " file-description)
(current-time-string)
".\n")
(message "Please explain why you stole the lock. Type C-c C-c when done.")))
(message
(substitute-command-keys
"Please explain why you stole the lock. Type \\`C-c C-c' when done"))))
(defun vc-checkin (files backend &optional comment initial-contents rev patch-string)
"Check in FILES. COMMENT is a comment string; if omitted, a