diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-11-16 16:33:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-11-16 16:33:04 +0000 |
| commit | 763da090cce95bda7424c9305e2ad937446e7fbc (patch) | |
| tree | d3d3f65985c38912a8fcf6b8004ae22c956a77cd /lisp | |
| parent | 5e69f11ee56686fd50a5b81ccaaf46f4bc8d4b1c (diff) | |
| download | emacs-763da090cce95bda7424c9305e2ad937446e7fbc.tar.gz | |
(Info-complete-menu-item): Don't treat `* Menu:' as a menu item.
Diffstat (limited to 'lisp')
| -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." (save-excursion (set-buffer Info-complete-menu-buffer) (goto-char (point-min)) + (search-forward "\n* Menu:") (while (re-search-forward pattern nil t) (setq completions (cons (cons (format "%s" (buffer-substring @@ -959,6 +960,7 @@ NAME may be an abbreviation of the reference name." (save-excursion (set-buffer Info-complete-menu-buffer) (goto-char (point-min)) + (search-forward "\n* Menu:") (while (re-search-forward pattern nil t) (setq completions (cons (cons (format "%s" (buffer-substring @@ -971,6 +973,7 @@ NAME may be an abbreviation of the reference name." (save-excursion (set-buffer Info-complete-menu-buffer) (goto-char (point-min)) + (search-forward "\n* Menu:") (re-search-forward (concat "\n\\* " (regexp-quote string) ":") |