diff options
| author | Karl Heuer | 1999-07-22 00:45:00 +0000 |
|---|---|---|
| committer | Karl Heuer | 1999-07-22 00:45:00 +0000 |
| commit | e12fcc411eea97ae6e02963932be547e6bf39c89 (patch) | |
| tree | e90a3a3ae518334baae64a88d4dfacf84f9d5da6 | |
| parent | 5df0b2faaf9321dd1374afa13b975b6e96310e34 (diff) | |
| download | emacs-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.el | 6 |
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 |