From f1ed9461a981f02ee73359e16e102d59b148a89b Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Mon, 22 May 2000 17:41:53 +0000
Subject: [PATCH] Add to debug-ignored-errors.

---
 lisp/comint.el            | 7 +++++++
 lisp/imenu.el             | 6 ++++++
 lisp/mail/mh-e.el         | 6 +++++-
 lisp/progmodes/compile.el | 2 ++
 lisp/textmodes/ispell.el  | 1 +
 5 files changed, 21 insertions(+), 1 deletion(-)

diff --git a/lisp/comint.el b/lisp/comint.el
index a08cd097c7a..eac6095bdb3 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2726,6 +2726,13 @@ REGEXP-GROUP is the regular expression group in REGEXP to use."
 		    results)))
       results)))
 
+(mapc (lambda (x)
+	(add-to-list 'debug-ignored-errors x))
+      '("^Not at command line$"
+	"^Empty input ring$"
+	"^No history$"
+	"^Not found$"			; Too common?
+	"^Current buffer has no process$"))
 
 ;; Converting process modes to use comint mode
 ;; ===========================================================================
diff --git a/lisp/imenu.el b/lisp/imenu.el
index 2f1ad7c9c0c..64a5bd9941f 100644
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -1101,6 +1101,12 @@ for more information."
 	   (apply function (car index-item) position rest))))
   (run-hooks 'imenu-after-jump-hook))
 
+(dolist (mess
+	 '("^No items suitable for an index found in this buffer$"
+	   "^This buffer cannot use `imenu-default-create-index-function'$"
+	   "^The mode `.*' does not support Imenu$"))
+  (add-to-list 'debug-ignored-errors mess))
+
 (provide 'imenu)
 
 ;;; imenu.el ends here
diff --git a/lisp/mail/mh-e.el b/lisp/mail/mh-e.el
index 12a7ea9de47..afdb8ec384c 100644
--- a/lisp/mail/mh-e.el
+++ b/lisp/mail/mh-e.el
@@ -60,7 +60,7 @@
 ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
 ;; Rewritten for GNU Emacs, James Larus 1985.  larus@ginger.berkeley.edu
 ;; Modified by Stephen Gildea 1988.  gildea@lcs.mit.edu
-(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.22 1999/11/09 13:40:03 gerd Exp $")
+(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.23 2000/03/07 12:36:39 gerd Exp $")
 
 ;;; Code:
 
@@ -1521,4 +1521,8 @@ If optional prefix argument provided, then prompt for the message sequence." t)
 (autoload 'mh-rename-seq "mh-seq"
   "Rename SEQUENCE to have NEW-NAME." t)
 
+(dolist (mess '("^Cursor not pointing to message$"
+		"^There is no other window$"))
+  (add-to-list 'debug-ignored-errors mess))
+
 ;;; mh-e.el ends here
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index e1f04d4a314..ef86ac15917 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -2028,6 +2028,8 @@ An error message with no file name and no file name has been seen earlier"))
 		  (substring dir (length parent-expanded)))))
   dir)
 
+(add-to-list 'debug-ignored-errors "^No more errors\\( yet\\|\\)$")
+
 (provide 'compile)
 
 ;;; compile.el ends here
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 206d8ce94a6..dc29f78ae5a 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -3180,6 +3180,7 @@ Both should not be used to define a buffer-local dictionary."
 			  (insert comment-end)))))
 	      (insert (concat " " word))))))))
 
+(add-to-list 'debug-ignored-errors "^No word found to check!$")
 
 (provide 'ispell)
 
-- 
2.39.5