Mercurial > emacs
comparison lisp/info.el @ 46714:bebf069404ac
(Info-find-index-name): Improve last change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 29 Jul 2002 01:48:52 +0000 |
| parents | ac544e207278 |
| children | 94b3c6a53104 |
comparison
equal
deleted
inserted
replaced
| 46713:e363336cbab3 | 46714:bebf069404ac |
|---|---|
| 1939 (if (or (re-search-forward (format | 1939 (if (or (re-search-forward (format |
| 1940 "[a-zA-Z]+: %s\\( \\|$\\)" | 1940 "[a-zA-Z]+: %s\\( \\|$\\)" |
| 1941 (regexp-quote name)) nil t) | 1941 (regexp-quote name)) nil t) |
| 1942 ;; Find a function definition with a return type. | 1942 ;; Find a function definition with a return type. |
| 1943 (re-search-forward (format | 1943 (re-search-forward (format |
| 1944 "[a-zA-Z]+: [a-zA-Z0-9_]+ %s\\( \\|$\\)" | 1944 "[a-zA-Z]+: [a-zA-Z0-9_ *&]+ %s\\( \\|$\\)" |
| 1945 (regexp-quote name)) nil t) | 1945 (regexp-quote name)) nil t) |
| 1946 (search-forward (format "`%s'" name) nil t) | 1946 (search-forward (format "`%s'" name) nil t) |
| 1947 (and (string-match "\\`.*\\( (.*)\\)\\'" name) | 1947 (and (string-match "\\`.*\\( (.*)\\)\\'" name) |
| 1948 (search-forward | 1948 (search-forward |
| 1949 (format "`%s'" (substring name 0 (match-beginning 1))) | 1949 (format "`%s'" (substring name 0 (match-beginning 1))) |