aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1999-07-22 00:45:00 +0000
committerKarl Heuer1999-07-22 00:45:00 +0000
commite12fcc411eea97ae6e02963932be547e6bf39c89 (patch)
treee90a3a3ae518334baae64a88d4dfacf84f9d5da6
parent5df0b2faaf9321dd1374afa13b975b6e96310e34 (diff)
downloademacs-e12fcc411eea97ae6e02963932be547e6bf39c89.tar.gz
emacs-e12fcc411eea97ae6e02963932be547e6bf39c89.zip
(info-lookup-setup-mode): Don't give up, if
info-lookup-make-completions returns an error. (info-lookup-maybe-add-help :mode 'latex-mode): Use Info file name latex, not latex2e.
-rw-r--r--lisp/info-look.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/info-look.el b/lisp/info-look.el
index 943ae3bad0e..9b1bdc791f1 100644
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -400,7 +400,9 @@ The default file name is the one found at point."
400 (setq refer-modes (nreverse refer-modes)) 400 (setq refer-modes (nreverse refer-modes))
401 ;; Build the full completion alist. 401 ;; Build the full completion alist.
402 (setq completions 402 (setq completions
403 (nconc (info-lookup-make-completions topic mode) 403 (nconc (condition-case nil
404 (info-lookup-make-completions topic mode)
405 (error nil))
404 (apply 'append 406 (apply 'append
405 (mapcar (lambda (arg) 407 (mapcar (lambda (arg)
406 (info-lookup->completions topic arg)) 408 (info-lookup->completions topic arg))
@@ -712,7 +714,7 @@ Return nil if there is nothing appropriate."
712(info-lookup-maybe-add-help 714(info-lookup-maybe-add-help
713 :mode 'latex-mode 715 :mode 'latex-mode
714 :regexp "\\\\\\([a-zA-Z]+\\|[^a-zA-Z]\\)" 716 :regexp "\\\\\\([a-zA-Z]+\\|[^a-zA-Z]\\)"
715 :doc-spec '(("(latex2e)Command Index" nil 717 :doc-spec '(("(latex)Command Index" nil
716 "`" "\\({[^}]*}\\)?'"))) 718 "`" "\\({[^}]*}\\)?'")))
717 719
718(info-lookup-maybe-add-help 720(info-lookup-maybe-add-help