Add to debug-ignored-errors.

5 files changed, 21 insertions, 1 deletions

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)