Mercurial > emacs
comparison lisp/help.el @ 34022:84d5cf98a5a0
(describe-function-1): Regexp-quote function name
when used as part of a regexp.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 29 Nov 2000 20:05:18 +0000 |
| parents | e28e403dd69f |
| children | 610ac8a2b8a5 |
comparison
equal
deleted
inserted
replaced
| 34021:213a832d6474 | 34022:84d5cf98a5a0 |
|---|---|
| 742 ;; might be a useful hint. | 742 ;; might be a useful hint. |
| 743 (let* ((rep (prin1-to-string def)) | 743 (let* ((rep (prin1-to-string def)) |
| 744 (name (progn | 744 (name (progn |
| 745 (string-match " \\([^ ]+\\)>$" rep) | 745 (string-match " \\([^ ]+\\)>$" rep) |
| 746 (match-string 1 rep)))) | 746 (match-string 1 rep)))) |
| 747 (if (looking-at (format "(%s[ )]" name)) | 747 (if (looking-at (format "(%s[ )]" (regexp-quote name))) |
| 748 (let ((start (point-marker))) | 748 (let ((start (point-marker))) |
| 749 (goto-char (point-min)) | 749 (goto-char (point-min)) |
| 750 (forward-paragraph) | 750 (forward-paragraph) |
| 751 (insert-buffer-substring (current-buffer) start) | 751 (insert-buffer-substring (current-buffer) start) |
| 752 (insert ?\n) | 752 (insert ?\n) |