Commit 866cda36 authored by Dmitry Gutov's avatar Dmitry Gutov

Escape any quotes in the function name

* lisp/help-fns.el (help-fns--signature): Quote any quotes in the
function name (bug#20759).
parent aa83b5ec
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment