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

* lisp/dabbrev.el (dabbrev-expand): Make "no expansion found" a user-error.

Browse Source
This commit is contained in:
Stefan Monnier 2012-05-11 13:31:30 -04:00
parent c8e321795a
commit aa0382bd67
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,5 +1,7 @@
2012-05-11 Stefan Monnier <monnier@iro.umontreal.ca> 2012-05-11 Stefan Monnier <monnier@iro.umontreal.ca>
* dabbrev.el (dabbrev-expand): Make "no expansion found" a user-error.
* minibuffer.el (completion--twq-all): Again, allow case differences. * minibuffer.el (completion--twq-all): Again, allow case differences.
* term.el: Move keymap initialization code to be more idiomatic. * term.el: Move keymap initialization code to be more idiomatic.

4
lisp/dabbrev.el
View File

@ -527,8 +527,8 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]."
(search-backward old) (search-backward old)
(insert abbrev) (insert abbrev)
(delete-region (point) (+ (point) (length old))))) (delete-region (point) (+ (point) (length old)))))
(error "No%s dynamic expansion for `%s' found" (user-error "No%s dynamic expansion for `%s' found"
(if old " further" "") abbrev)) (if old " further" "") abbrev))
(t (t
(if (not (or (eq dabbrev--last-buffer dabbrev--last-buffer-found) (if (not (or (eq dabbrev--last-buffer dabbrev--last-buffer-found)
(minibuffer-window-active-p (selected-window)))) (minibuffer-window-active-p (selected-window))))