mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-25 10:47:00 +00:00
* lisp/dabbrev.el (dabbrev-expand): Make "no expansion found" a user-error.
This commit is contained in:
parent
c8e321795a
commit
aa0382bd67
@ -1,5 +1,7 @@
|
||||
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.
|
||||
|
||||
* term.el: Move keymap initialization code to be more idiomatic.
|
||||
|
@ -527,8 +527,8 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]."
|
||||
(search-backward old)
|
||||
(insert abbrev)
|
||||
(delete-region (point) (+ (point) (length old)))))
|
||||
(error "No%s dynamic expansion for `%s' found"
|
||||
(if old " further" "") abbrev))
|
||||
(user-error "No%s dynamic expansion for `%s' found"
|
||||
(if old " further" "") abbrev))
|
||||
(t
|
||||
(if (not (or (eq dabbrev--last-buffer dabbrev--last-buffer-found)
|
||||
(minibuffer-window-active-p (selected-window))))
|
||||
|
Loading…
Reference in New Issue
Block a user