From: Dave Love <fx@gnu.org>
Date: Mon, 22 May 2000 17:30:42 +0000 (+0000)
Subject: Add debug-ignored-errors.
X-Git-Tag: emacs-pretest-21.0.90~3819
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=87207d14072ad049fff1e34643b0e180f7e2ea0d;p=emacs.git

Add debug-ignored-errors.
(dabbrev-completion): Use mapc.
---

diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index 34c9a41d709..89f26507f6b 100644
--- a/lisp/dabbrev.el
+++ b/lisp/dabbrev.el
@@ -400,21 +400,21 @@ if there is a suitable one already."
 	  (cond
 	   ((or (not ignore-case-p)
 		(not dabbrev-case-replace))
-	    (mapcar (function (lambda (string)
-				(intern string my-obarray)))
+	    (mapc (function (lambda (string)
+			      (intern string my-obarray)))
 		    completion-list))
 	   ((string= abbrev (upcase abbrev))
-	    (mapcar (function (lambda (string)
-				(intern (upcase string) my-obarray)))
+	    (mapc (function (lambda (string)
+			      (intern (upcase string) my-obarray)))
 		    completion-list))
 	   ((string= (substring abbrev 0 1)
 		     (upcase (substring abbrev 0 1)))
-	    (mapcar (function (lambda (string)
-				(intern (capitalize string) my-obarray)))
+	    (mapc (function (lambda (string)
+			      (intern (capitalize string) my-obarray)))
 		    completion-list))
 	   (t
-	    (mapcar (function (lambda (string)
-				(intern (downcase string) my-obarray)))
+	    (mapc (function (lambda (string)
+			      (intern (downcase string) my-obarray)))
 		    completion-list)))
 	  (setq dabbrev--last-obarray my-obarray)
 	  (setq dabbrev--last-completion-buffer (current-buffer))
@@ -933,6 +933,11 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]."
 		  result
 		result)))))))
 
+(dolist (mess '("^No dynamic expansion for .* found$"
+		"^No further dynamic expansion for .* found$"
+		"^No possible abbreviation preceding point$"))
+  (add-to-list 'debug-ignored-errors mess))
+
 (provide 'dabbrev)
 
 ;;; dabbrev.el ends here