Commit 87207d14 authored by Dave Love's avatar Dave Love
Browse files

Add debug-ignored-errors.

(dabbrev-completion): Use mapc.
parent c736534c
......@@ -400,20 +400,20 @@ if there is a suitable one already."
(cond
((or (not ignore-case-p)
(not dabbrev-case-replace))
(mapcar (function (lambda (string)
(mapc (function (lambda (string)
(intern string my-obarray)))
completion-list))
((string= abbrev (upcase abbrev))
(mapcar (function (lambda (string)
(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)
(mapc (function (lambda (string)
(intern (capitalize string) my-obarray)))
completion-list))
(t
(mapcar (function (lambda (string)
(mapc (function (lambda (string)
(intern (downcase string) my-obarray)))
completion-list)))
(setq dabbrev--last-obarray my-obarray)
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment