From 345839e3eca33ab5a56a7e9e089532940144c371 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 30 Dec 1999 12:25:22 +0000 Subject: (expand-abbrev-hook): Return t if expansion was done, nil otherwise. --- lisp/expand.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'lisp/expand.el') diff --git a/lisp/expand.el b/lisp/expand.el index 531174f7f4e..deb4a5f8577 100644 --- a/lisp/expand.el +++ b/lisp/expand.el @@ -338,7 +338,7 @@ This variable is local to a buffer.") (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 @@ See `expand-add-abbrevs'." 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)) -- cgit v1.2.1