mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Remove duplicate scheme-mode entry.

Browse source 
(info-lookup-make-completions): When looking for entries, check
that `item' isn't null or "Menu".
This commit is contained in:
Dave Love 1998-10-02 14:35:09 +00:00
parent c06fc52463
commit 6480a693a2
1 changed files with 12 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/info-look.el
View file

@ -454,12 +454,17 @@ The default file name is the one found at point."
(while (re-search-forward "\n\\* \\([^:\t\n]*\\):" nil t)
(setq entry (match-string 1)
item (funcall trans entry))
(and (info-lookup->ignore-case topic mode)
(setq item (downcase item)))
(and (string-equal entry item)
(setq entry nil))
(or (assoc item result)
(setq result (cons (cons item entry) result))))))
;; `trans' can return nil if the regexp doesn't match.
(when (and item
;; Sometimes there's more than one Menu:
(not (string= entry "Menu")))
(and (info-lookup->ignore-case topic mode)
(setq item (downcase item)))
(and (string-equal entry item)
(setq entry nil))
(and (or (assoc item result)
(setq result (cons (cons item entry)
result))))))))
(error nil))))
(message "Processing Info node `%s'...done" node)
(setq doc-spec (cdr doc-spec)))
@ -711,14 +716,6 @@ Return nil if there is nothing appropriate."
:doc-spec '(("(latex2e)Command Index" nil
"`" "\\({[^}]*}\\)?'")))
(info-lookup-maybe-add-help
:mode 'scheme-mode
:regexp ;; "\\(\\sw\\|\\s_\\)+"
"[^()' \t\n]+"
:ignore-case t
;; Aubrey Jaffer's rendition from <URL:ftp://ftp-swiss.ai.mit.edu/pub/scm>
:doc-spec '(("(r5rs)Index")))
(info-lookup-maybe-add-help
:mode 'emacs-lisp-mode
:regexp "[^()' \t\n]+"
@ -749,6 +746,7 @@ Return nil if there is nothing appropriate."
:mode 'scheme-mode
:regexp "[^()' \t\n]+"
:ignore-case t
;; Aubrey Jaffer's rendition from <URL:ftp://ftp-swiss.ai.mit.edu/pub/scm>
:doc-spec '(("(r5rs)Index" nil
"^[ \t]+- [^:]+:[ \t]*" "\\b")))