Add debug-ignored-errors.

(dabbrev-completion): Use mapc.

diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index 34c9a41d709c715a1ce06ed9997f179227cefaf7..89f26507f6bbf3318e8a538f89655ccd16416169 100644 (file)
--- 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