diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-09-21 10:11:15 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-09-21 10:15:45 +0200 |
| commit | 43c0ebd8bcdd33e534b514d87ea843e93b11b89d (patch) | |
| tree | 54882d4de2f742a31b4f13243a934a130fe403df /admin/gitmerge.el | |
| parent | 00f6bb1286c6f52bd2f70650e720c88ec090dae9 (diff) | |
| download | emacs-43c0ebd8bcdd33e534b514d87ea843e93b11b89d.tar.gz | |
* admin/gitmerge.el (gitmerge): Use substitute-command-keys.
Diffstat (limited to 'admin/gitmerge.el')
| -rw-r--r-- | admin/gitmerge.el | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/admin/gitmerge.el b/admin/gitmerge.el index 4f7c66cc5c2..ddd3e184424 100644 --- a/admin/gitmerge.el +++ b/admin/gitmerge.el @@ -634,12 +634,18 @@ Branch FROM will be prepended to the list." (with-current-buffer (gitmerge-setup-log-buffer gitmerge--commits gitmerge--from) (goto-char (point-min)) - (insert (propertize "Commands: " 'font-lock-face 'bold) - "(s) Toggle skip, (l) Show log, (d) Show diff, " - "(f) Show files, (m) Start merge\n" - (propertize "Flags: " 'font-lock-face 'bold) - "(C) Detected backport (cherry-mark), (R) Matches skip " - "regexp, (M) Manually picked\n\n") + (insert (substitute-command-keys + (concat + (propertize "Commands: " 'font-lock-face 'bold) + "\\<gitmerge-mode-map>" + "(\\[gitmerge-toggle-skip]) Toggle skip, " + "(\\[gitmerge-show-log]) Show log, " + "(\\[gitmerge-show-diff]) Show diff, " + "(\\[gitmerge-show-files]) Show files, " + "(\\[gitmerge-start-merge]) Start merge\n" + (propertize "Flags: " 'font-lock-face 'bold) + "(C) Detected backport (cherry-mark), (R) Matches skip " + "regexp, (M) Manually picked\n\n"))) (gitmerge-mode) (pop-to-buffer (current-buffer)) (if noninteractive (gitmerge-start-merge)))))) |