Mercurial > emacs
changeset 27042:fe88ae65ed75
(expand-abbrev-hook): Return t if expansion was
done, nil otherwise.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 30 Dec 1999 12:25:22 +0000 |
| parents | fd2f6e0ec460 |
| children | b5ce0c450409 |
| files | lisp/expand.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/expand.el Thu Dec 30 11:45:10 1999 +0000 +++ b/lisp/expand.el Thu Dec 30 12:25:22 1999 +0000 @@ -338,7 +338,7 @@ (put 'expand-abbrev-hook 'no-self-insert t) (defun expand-abbrev-hook () "Abbrev hook used to do the expansion job of expand abbrevs. -See `expand-add-abbrevs'." +See `expand-add-abbrevs'. Value is non-nil if expansion was done." ;; Expand only at the end of a line if we are near a word that has ;; an abbrev built from expand-add-abbrev. (if (and (eolp) @@ -364,8 +364,9 @@ expand-pos (expand-list-to-markers expand-list) expand-list nil))) (run-hooks 'expand-expand-hook) - t)))) - ) + t) + nil)) + nil)) (defun expand-do-expansion () (delete-backward-char (length last-abbrev-text))