Escape any quotes in the function name

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

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 346e1e158c2fa7ea47a36db0b0e0204097029c0e..d59eeab83e338c358af3fbc442a0a6d79c8f8cf1 100644 (file)
--- 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)))