aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndreas Schwab2016-05-28 10:45:07 +0200
committerAndreas Schwab2016-05-28 11:18:05 +0200
commitf907f98b0b159f71f24d6aa5676eff33fc2a4aca (patch)
tree7048c0594e6b162eb3e1d56f5f88249a4e88fcb2
parent1a2ffd023600a5a206766b68aa281b24d1c5e80f (diff)
downloademacs-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.el3
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'."
1558ARGLIST is either a string, or a list of strings or symbols." 1558ARGLIST 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)))