diff options
| author | Richard M. Stallman | 1995-11-16 16:33:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-11-16 16:33:04 +0000 |
| commit | 763da090cce95bda7424c9305e2ad937446e7fbc (patch) | |
| tree | d3d3f65985c38912a8fcf6b8004ae22c956a77cd | |
| parent | 5e69f11ee56686fd50a5b81ccaaf46f4bc8d4b1c (diff) | |
| download | emacs-763da090cce95bda7424c9305e2ad937446e7fbc.tar.gz emacs-763da090cce95bda7424c9305e2ad937446e7fbc.zip | |
(Info-complete-menu-item): Don't treat `* Menu:' as a menu item.
| -rw-r--r-- | lisp/info.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/info.el b/lisp/info.el index 6e8252c10a4..2625e84beef 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -943,6 +943,7 @@ NAME may be an abbreviation of the reference name." | |||
| 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 |
| @@ -959,6 +960,7 @@ NAME may be an abbreviation of the reference name." | |||
| 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 |
| @@ -971,6 +973,7 @@ NAME may be an abbreviation of the reference name." | |||
| 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 | ":") |