diff options
| author | Lars Ingebrigtsen | 2022-06-21 13:33:02 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-06-21 13:33:02 +0200 |
| commit | ef03c8852d064da127a1deea263b2dcec5ea5bf8 (patch) | |
| tree | d2acbdea42a296c5759a1cd6a94d180c62be0d2f | |
| parent | 7934bad23b248fb7be4669e486cdcb9cb2d6d73e (diff) | |
| download | emacs-ef03c8852d064da127a1deea263b2dcec5ea5bf8.tar.gz emacs-ef03c8852d064da127a1deea263b2dcec5ea5bf8.zip | |
Make describe-key do doc string command key substitution again
* lisp/help.el (describe-key): Do doc string command key
substitution (bug#56106).
| -rw-r--r-- | lisp/help.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/help.el b/lisp/help.el index 1c46f253381..94747ff4b0f 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -933,6 +933,7 @@ current buffer." | |||
| 933 | (setq buffer nil)) | 933 | (setq buffer nil)) |
| 934 | (let* ((help-buffer-under-preparation t) | 934 | (let* ((help-buffer-under-preparation t) |
| 935 | (buf (or buffer (current-buffer))) | 935 | (buf (or buffer (current-buffer))) |
| 936 | (describe-function-orig-buffer buf) | ||
| 936 | (on-link | 937 | (on-link |
| 937 | (mapcar (lambda (kr) | 938 | (mapcar (lambda (kr) |
| 938 | (let ((raw (cdr kr))) | 939 | (let ((raw (cdr kr))) |