diff options
| author | Andreas Schwab | 2016-05-28 10:45:07 +0200 |
|---|---|---|
| committer | Andreas Schwab | 2016-05-28 11:18:05 +0200 |
| commit | f907f98b0b159f71f24d6aa5676eff33fc2a4aca (patch) | |
| tree | 7048c0594e6b162eb3e1d56f5f88249a4e88fcb2 | |
| parent | 1a2ffd023600a5a206766b68aa281b24d1c5e80f (diff) | |
| download | emacs-f907f98b0b159f71f24d6aa5676eff33fc2a4aca.tar.gz emacs-f907f98b0b159f71f24d6aa5676eff33fc2a4aca.zip | |
* lisp/progmodes/elisp-mode.el (elisp-function-argstring): Call
substitute-command-keys to undo help--docstring-quote. (Bug#23634)
| -rw-r--r-- | lisp/progmodes/elisp-mode.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el index 6c6c3803f9e..7ad88712a4d 100644 --- a/lisp/progmodes/elisp-mode.el +++ b/lisp/progmodes/elisp-mode.el | |||
| @@ -1558,7 +1558,8 @@ In the absence of INDEX, just call `eldoc-docstring-format-sym-doc'." | |||
| 1558 | ARGLIST is either a string, or a list of strings or symbols." | 1558 | ARGLIST is either a string, or a list of strings or symbols." |
| 1559 | (let ((str (cond ((stringp arglist) arglist) | 1559 | (let ((str (cond ((stringp arglist) arglist) |
| 1560 | ((not (listp arglist)) nil) | 1560 | ((not (listp arglist)) nil) |
| 1561 | (t (help--make-usage-docstring 'toto arglist))))) | 1561 | (t (substitute-command-keys |
| 1562 | (help--make-usage-docstring 'toto arglist)))))) | ||
| 1562 | (if (and str (string-match "\\`([^ )]+ ?" str)) | 1563 | (if (and str (string-match "\\`([^ )]+ ?" str)) |
| 1563 | (replace-match "(" t t str) | 1564 | (replace-match "(" t t str) |
| 1564 | str))) | 1565 | str))) |