diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2015-06-07 23:39:18 +0300 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2015-06-07 23:39:18 +0300 |
| commit | 866cda36cc2844573c24b94401157c860ed3fe6f (patch) | |
| tree | c2aeb8de3509d9ebc8a3245f7ba11a70b49ed37f /lisp | |
| parent | aa83b5ecb049ebf7491f63d30eac27c983d9bc34 (diff) | |
| download | emacs-866cda36cc2844573c24b94401157c860ed3fe6f.tar.gz | |
Escape any quotes in the function name
* lisp/help-fns.el (help-fns--signature): Quote any quotes in the
function name (bug#20759).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/help-fns.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 346e1e158c2..d59eeab83e3 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -381,7 +381,10 @@ suitable file is found, return nil." (vectorp real-def)) (format "\nMacro: %s" (format-kbd-macro real-def))) (t "[Missing arglist. Please make a bug report.]"))) - (high (help-highlight-arguments use doc))) + (high (help-highlight-arguments + ;; Quote any quotes in the function name (bug#20759). + (replace-regexp-in-string "\\(\\)[`']" "\\=" use t t 1) + doc))) (let ((fill-begin (point))) (insert (car high) "\n") (fill-region fill-begin (point))) |