From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sun, 7 Jun 2015 20:39:18 +0000 (+0300)
Subject: Escape any quotes in the function name
X-Git-Tag: emacs-25.0.90~1834
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=866cda36cc2844573c24b94401157c860ed3fe6f;p=emacs.git

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 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)))