mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-06-14 12:31:25 +00:00
(dabbrev-completion): Improve last fix for bug#80645
* lisp/dabbrev.el (dabbrev-completion): Signal the error that `dabbrev-capf` doesn't signal any more.
This commit is contained in:
parent
55bf30e017
commit
c96c89faaa
1 changed files with 5 additions and 1 deletions
|
|
@ -398,7 +398,11 @@ then it searches *all* buffers."
|
|||
;; Set it so `dabbrev-capf' won't reset the vars.
|
||||
(setq dabbrev--last-abbrev-location (point-marker))
|
||||
(let ((completion-at-point-functions '(dabbrev-capf)))
|
||||
(completion-at-point)))
|
||||
(unless (completion-at-point)
|
||||
(user-error "No dynamic expansion for \"%s\" found%s"
|
||||
(dabbrev--abbrev-at-point)
|
||||
(if dabbrev--check-other-buffers
|
||||
"" " in this-buffer")))))
|
||||
|
||||
(defun dabbrev-capf ()
|
||||
"Dabbrev completion function for `completion-at-point-functions'."
|
||||
|
|
|
|||
Loading…
Reference in a new issue