[Emacs-diffs] master 866cda3: Escape any quotes in the function name

[Dmitry Gutov]

branch: master
commit 866cda36cc2844573c24b94401157c860ed3fe6f
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Escape any quotes in the function name
    
    * lisp/help-fns.el (help-fns--signature): Quote any quotes in the
    function name (bug#20759).
---
 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 346e1e1..d59eeab 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)))