[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r108199: * lisp/dabbrev.el (dabbrev-e
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r108199: * lisp/dabbrev.el (dabbrev-expand): Make "no expansion found" a user-error. |
Date: |
Fri, 11 May 2012 13:31:30 -0400 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 108199
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2012-05-11 13:31:30 -0400
message:
* lisp/dabbrev.el (dabbrev-expand): Make "no expansion found" a user-error.
modified:
lisp/ChangeLog
lisp/dabbrev.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-05-11 17:11:03 +0000
+++ b/lisp/ChangeLog 2012-05-11 17:31:30 +0000
@@ -1,5 +1,7 @@
2012-05-11 Stefan Monnier <address@hidden>
+ * 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.
=== modified file 'lisp/dabbrev.el'
--- a/lisp/dabbrev.el 2012-05-04 23:16:47 +0000
+++ b/lisp/dabbrev.el 2012-05-11 17:31:30 +0000
@@ -527,8 +527,8 @@
(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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r108199: * lisp/dabbrev.el (dabbrev-expand): Make "no expansion found" a user-error.,
Stefan Monnier <=