Add debug-ignored-errors.

(dabbrev-completion): Use mapc.

1 files changed, 13 insertions, 8 deletions

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