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

lisp/ChangeLog

+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.

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))