mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

Add debug-ignored-errors.

Browse Source 
(dabbrev-completion): Use mapc.
This commit is contained in:
Dave Love 2000-05-22 17:30:42 +00:00
parent c736534c59
commit 87207d1407
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/dabbrev.el
View File

@ -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