(debug-ignored-errors): more errors to ignore.

2 files changed, 33 insertions, 27 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9096e57bfb9..9a26a771f34 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-05-16  Sam Steingold  <sds@gnu.org>
+
+        * info.el (debug-ignored-errors): more errors to ignore.
+
 2000-05-16  Dave Love  <fx@gnu.org>
 
         * cus-edit.el: Don't require cl or easymenu.
@@ -62,7 +66,7 @@
         (help-xref-go-back): Use position information from stack element.
         (help-follow): Make position in stack element a pair.  Use
         help-xref-following.
-        
+
         * autoarg.el: New file.
 
         * faces.el: Declare more functions obsolete.
@@ -188,7 +192,7 @@
 
         * ange-ftp.el (ange-ftp-skip-msgs): Include 500 code.for
         handling FTP security extensions.
-        
+
 2000-05-11  Dave Love  <fx@gnu.org>
 
         * calendar/todo-mode.el: New file.
@@ -198,7 +202,7 @@
         * comint.el (comint-read-input-ring): Move reference to
         comint-input-ring-size outside of the save-excursion.  It was
         causing the default value to be the only one ever seen.
-        
+
         * font-lock.el: Update copyright.  Remove Simon Marshall's email
         address on request from him.
 
@@ -336,7 +340,7 @@
         (makefile-mode): Set local abbrev table to
         makefile-mode-abbrev-table.
         (makefile-font-lock-keywords): Fontify includes and conditionals.
-        
+
         * subr.el (add-minor-mode): Handle AFTER for keymaps. Don't
         set TOGGLE's value.
 
@@ -344,7 +348,7 @@
         mail-interactive-insert-alias.
         (mail-abbrev-complete-alias): New command.
         (mail-mode-map): Bind it to `M-TAB'.
-        
+
 2000-05-03  Kenichi Handa  <handa@etl.go.jp>
 
         * language/lao-util.el (lao-compose-region): New function.
@@ -354,8 +358,8 @@
         * files.el (recover-session): Make directories as necessary
         if they don't exist yet.
 
-        * calendar/cal-french.el 
-        (french-calendar-multibyte-special-days-array) 
+        * calendar/cal-french.el
+        (french-calendar-multibyte-special-days-array)
         (french-calendar-special-days-array): Change French text.
         (calendar-french-date-string): Change output.
         (calendar-goto-french-date): Likewise.
@@ -387,7 +391,7 @@
         the code loading subdirs.el.
 
 2000-04-29  Vinicius Jose Latorre  <vinicius@cpqd.com.br>
-        
+
         * ps-print.el: Upside-down and face background color printing,
         line number step, doc fix.
         (ps-print-version): New version number (5.2).
@@ -407,7 +411,7 @@
         before generating auto save file name.
         (auto-save-file-name-transforms): New variable.
 
-        * files.el (backup-enable-predicate): 
+        * files.el (backup-enable-predicate):
         Correctly test for a file under a temporary directory.
 
 2000-04-28  Gerd Moellmann  <gerd@gnu.org>
@@ -433,14 +437,14 @@
 
         * textmodes/texinfmt.el (texinfo-format-xref): Don't try to insert
         nil.
-        
+
         * subr.el (add-minor-mode): Use `set' instead of `setq'.
 
         * gud.el (gud-gdb-find-file): Call find-file-noselect with NOWARN
         argument.
 
 2000-04-27  Sen Nagata <sen@eccosys.com>
-        
+
         * emacs-lisp/crm.el (crm-completion-table): New variable.
         (crm-collection-fn, crm-test-completion)
         (completing-read-multiple): Use it.
diff --git a/lisp/info.el b/lisp/info.el
index 10e52e2e02a..a65eadb81d4 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -291,7 +291,7 @@ Do the right thing if the file has been compressed or zipped."
                    (list (read-file-name "Info file name: " nil nil t))))
   (let (same-window-buffer-names)
     (info file)))
-  
+
 ;;;###autoload (add-hook 'same-window-buffer-names "*info*")
 
 ;;;###autoload
@@ -306,7 +306,7 @@ In interactive use, a prefix argument directs this command
 to read a file name from the minibuffer.
 
 The search path for Info files is in the variable `Info-directory-list'.
-The top-level Info directory is made by combining all the files named `dir' 
+The top-level Info directory is made by combining all the files named `dir'
 in all the directories in that path."
   (interactive (if current-prefix-arg
                    (list (read-file-name "Info file name: " nil nil t))))
@@ -642,10 +642,10 @@ else defaults to `Top'."
            ;; since we used it.
            (eval (cons 'and
                        (mapcar '(lambda (elt)
-                                  (let ((curr (file-attributes 
+                                  (let ((curr (file-attributes
                                                ;; Handle symlinks
                                                (file-truename (car elt)))))
-                                    
+
                                     ;; Don't compare the access time.
                                     (if curr (setcar (nthcdr 4 curr) 0))
                                     (setcar (nthcdr 4 (cdr elt)) 0)
@@ -703,7 +703,7 @@ else defaults to `Top'."
           (or (cdr dirs) (setq Info-dir-contents-directory
                                (file-name-as-directory (car dirs))))
           (setq dirs (cdr dirs))))
-      
+
       (or buffers
           (error "Can't find the Info directory node"))
       ;; Distinguish the dir file that comes with Emacs from all the
@@ -979,7 +979,7 @@ If FORK is a string, it is the name to use for the new buffer."
                 (let ((beg (point)))
                   (forward-line 1)
                   (if (re-search-backward node-regexp beg t)
-                      (setq compl 
+                      (setq compl
                             (cons (list (match-string-no-properties 1))
                                   compl))))))))
         (setq compl (cons '("*") compl))
@@ -1070,7 +1070,7 @@ If FORK is a string, it is the name to use for the new buffer."
                                  Info-history))))))
 
 ;; Extract the value of the node-pointer named NAME.
-;; If there is none, use ERRORNAME in the error message; 
+;; If there is none, use ERRORNAME in the error message;
 ;; if ERRORNAME is nil, just return nil.
 (defun Info-extract-pointer (name &optional errorname)
   ;; Bind this in case the user sets it to nil.
@@ -1339,7 +1339,7 @@ Completion is allowed, and the menu item point is on is the default."
   ;; there is a problem here in that if several menu items have the same
   ;; name you can only go to the node of the first with this command.
   (Info-goto-node (Info-extract-menu-item menu-item) (if fork menu-item)))
-  
+
 (defun Info-extract-menu-item (menu-item)
   (setq menu-item (regexp-quote menu-item))
   (let ((case-fold-search t))
@@ -1389,7 +1389,7 @@ N is the digit argument used to invoke this command."
     ;; Go to the last node in the menu of Top.
     (Info-goto-node (Info-extract-menu-counting nil))
     ;; If the last node in the menu is not last in pointer structure,
-    ;; move forward until we can't go any farther. 
+    ;; move forward until we can't go any farther.
     (while (Info-forward-node t t) nil)
     ;; Then keep moving down to last subnode, unless we reach an index.
     (while (and (not (string-match "\\<index\\>" Info-current-node))
@@ -1940,13 +1940,13 @@ If no reference to follow, moves to the next node, or up if none."
                                     (Info-complete-menu-item
                                      "" (lambda (e) t) t)
                                   (error nil))))
-               entries current 
+               entries current
                (number 0))
           (while (and items (< number 9))
             (setq current (car items)
                   items (cdr items)
                   number (1+ number))
-            (setq entries (cons `[,current 
+            (setq entries (cons `[,current
                                   (Info-menu ,current)
                                   :keys ,(format "%d" number)]
                                 entries)))
@@ -1957,7 +1957,7 @@ If no reference to follow, moves to the next node, or up if none."
           (easy-menu-change '("Info") "Menu item" (nreverse entries)))
         ;; Update reference menu.  Code stolen from `Info-follow-reference'.
         (let ((items nil)
-              str i entries current 
+              str i entries current
               (number 0)
               (case-fold-search t))
           (save-excursion
@@ -1977,7 +1977,7 @@ If no reference to follow, moves to the next node, or up if none."
             (setq current (car items)
                   items (cdr items)
                   number (1+ number))
-            (setq entries (cons `[,current 
+            (setq entries (cons `[,current
                                   (Info-follow-reference ,current)
                                   t]
                                 entries)))
@@ -2035,7 +2035,7 @@ When after all menu items (or if their is no menu), move up to
 the parent node.
 \\[Info-scroll-down]    Normally, scroll backward.  If the beginning of the buffer is
 already visible, try to go to the previous menu entry, or up if there is none.
-\\[beginning-of-buffer] Go to beginning of node.  
+\\[beginning-of-buffer] Go to beginning of node.
 
 Advanced commands:
 \\[Info-exit]   Quit Info: reselect previously selected buffer.
@@ -2291,7 +2291,7 @@ The alist key is the character the title is underlined with (?*, ?= or ?-)."
               face)
           (cond ((= c ?*) (setq face 'Info-title-1-face))
                 ((= c ?=) (setq face 'Info-title-2-face))
-                (t        (setq face 'Info-title-3-face))) 
+                (t        (setq face 'Info-title-3-face)))
           (put-text-property (match-beginning 1) (match-end 1)
                              'face face))
         ;; This is a serious problem for trying to handle multiple
@@ -2425,7 +2425,7 @@ specific node to expand."
              (setq completions (cdr completions)))
            t)
         nil))))
-  
+
 (defun Info-speedbar-goto-node (text node indent)
   "When user clicks on TEXT, goto an info NODE.
 The INDENT level is ignored."
@@ -2520,6 +2520,8 @@ BUFFER is the buffer speedbar is requesting buttons for."
 (dolist (mess '("^Node has no Previous$"
                 "^No menu in this node$"
                 "^Node has no Next$"
+                "^No cross-references in this node^"
+                search-failed
                 "^No \".*\" in index$"))
   (add-to-list 'debug-ignored-errors mess))