Function: find-func--regexp-of-symbol-name

find-func--regexp-of-symbol-name is a byte-compiled function defined in find-func.el.gz.

Signature

(find-func--regexp-of-symbol-name NAME)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/find-func.el.gz
(defun find-func--regexp-of-symbol-name (name)
  (let ((names (cons (if (stringp name) name
                       (symbol-name name))
                     (shorthands-of-symbol name))))
    (regexp-opt
     (mapcar (lambda (name)
               ;; Definitions like the ` (backquote) need to backslash
               ;; quote their name in the file, but (symbol-name symbol)
               ;; doesn't.  Add a \ to catch this.
               (replace-regexp-in-string "[][\\()\"`' ,]"
                                         "\\\\\\&" name))
             names))))