Mercurial > emacs
changeset 29077:07f205e3af83
Add debug-ignored-errors.
(dabbrev-completion): Use mapc.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 22 May 2000 17:30:42 +0000 |
| parents | c7c150b377c0 |
| children | 2e20146198ce |
| files | lisp/dabbrev.el |
| diffstat | 1 files changed, 13 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dabbrev.el Mon May 22 11:30:12 2000 +0000 +++ b/lisp/dabbrev.el Mon May 22 17:30:42 2000 +0000 @@ -400,21 +400,21 @@ (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 @@ 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