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

Add debug-ignored-errors.

(dabbrev-completion): Use mapc.
parent c736534c
...@@ -400,21 +400,21 @@ if there is a suitable one already." ...@@ -400,21 +400,21 @@ if there is a suitable one already."
(cond (cond
((or (not ignore-case-p) ((or (not ignore-case-p)
(not dabbrev-case-replace)) (not dabbrev-case-replace))
(mapcar (function (lambda (string) (mapc (function (lambda (string)
(intern string my-obarray))) (intern string my-obarray)))
completion-list)) completion-list))
((string= abbrev (upcase abbrev)) ((string= abbrev (upcase abbrev))
(mapcar (function (lambda (string) (mapc (function (lambda (string)
(intern (upcase string) my-obarray))) (intern (upcase string) my-obarray)))
completion-list)) completion-list))
((string= (substring abbrev 0 1) ((string= (substring abbrev 0 1)
(upcase (substring abbrev 0 1))) (upcase (substring abbrev 0 1)))
(mapcar (function (lambda (string) (mapc (function (lambda (string)
(intern (capitalize string) my-obarray))) (intern (capitalize string) my-obarray)))
completion-list)) completion-list))
(t (t
(mapcar (function (lambda (string) (mapc (function (lambda (string)
(intern (downcase string) my-obarray))) (intern (downcase string) my-obarray)))
completion-list))) completion-list)))
(setq dabbrev--last-obarray my-obarray) (setq dabbrev--last-obarray my-obarray)
(setq dabbrev--last-completion-buffer (current-buffer)) (setq dabbrev--last-completion-buffer (current-buffer))
...@@ -933,6 +933,11 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]." ...@@ -933,6 +933,11 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]."
result result
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) (provide 'dabbrev)
;;; dabbrev.el ends here ;;; 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