Escape any quotes in the function name

* lisp/help-fns.el (help-fns--signature): Quote any quotes in the function name (bug#20759).

Escape any quotes in the function name
* lisp/help-fns.el (help-fns--signature): Quote any quotes in the function name (bug#20759).
866cda36 · Dmitry Gutov · aa83b5ec · 866cda36
Commit 866cda36 authored Jun 07, 2015 by Dmitry Gutov
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

lisp/help-fns.el lisp/help-fns.el +4 -1

No files found.
--- 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)))