Mercurial > emacs
comparison lisp/info.el @ 13566:1121cd08e87f
(Info-complete-menu-item): Don't treat `* Menu:' as a menu item.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 16 Nov 1995 16:33:04 +0000 |
| parents | 80870ef96f18 |
| children | e5b36a1526dd |
comparison
equal
deleted
inserted
replaced
| 13565:c66885b6330c | 13566:1121cd08e87f |
|---|---|
| 941 (regexp-quote string) | 941 (regexp-quote string) |
| 942 "[^:\t\n]*\\):"))) | 942 "[^:\t\n]*\\):"))) |
| 943 (save-excursion | 943 (save-excursion |
| 944 (set-buffer Info-complete-menu-buffer) | 944 (set-buffer Info-complete-menu-buffer) |
| 945 (goto-char (point-min)) | 945 (goto-char (point-min)) |
| 946 (search-forward "\n* Menu:") | |
| 946 (while (re-search-forward pattern nil t) | 947 (while (re-search-forward pattern nil t) |
| 947 (setq completions (cons (cons (format "%s" | 948 (setq completions (cons (cons (format "%s" |
| 948 (buffer-substring | 949 (buffer-substring |
| 949 (match-beginning 1) | 950 (match-beginning 1) |
| 950 (match-end 1))) | 951 (match-end 1))) |
| 957 (regexp-quote string) | 958 (regexp-quote string) |
| 958 "[^:\t\n]*\\):"))) | 959 "[^:\t\n]*\\):"))) |
| 959 (save-excursion | 960 (save-excursion |
| 960 (set-buffer Info-complete-menu-buffer) | 961 (set-buffer Info-complete-menu-buffer) |
| 961 (goto-char (point-min)) | 962 (goto-char (point-min)) |
| 963 (search-forward "\n* Menu:") | |
| 962 (while (re-search-forward pattern nil t) | 964 (while (re-search-forward pattern nil t) |
| 963 (setq completions (cons (cons (format "%s" | 965 (setq completions (cons (cons (format "%s" |
| 964 (buffer-substring | 966 (buffer-substring |
| 965 (match-beginning 1) | 967 (match-beginning 1) |
| 966 (match-end 1))) | 968 (match-end 1))) |
| 969 (all-completions string completions predicate))) | 971 (all-completions string completions predicate))) |
| 970 (t | 972 (t |
| 971 (save-excursion | 973 (save-excursion |
| 972 (set-buffer Info-complete-menu-buffer) | 974 (set-buffer Info-complete-menu-buffer) |
| 973 (goto-char (point-min)) | 975 (goto-char (point-min)) |
| 976 (search-forward "\n* Menu:") | |
| 974 (re-search-forward (concat "\n\\* " | 977 (re-search-forward (concat "\n\\* " |
| 975 (regexp-quote string) | 978 (regexp-quote string) |
| 976 ":") | 979 ":") |
| 977 nil t)))))) | 980 nil t)))))) |
| 978 | 981 |