# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 946556722 0
# Node ID fe88ae65ed75a62ae07a49a4ced21fa958b8bc58
# Parent  fd2f6e0ec4607229d99c3d5c610f12a4f35ff786
(expand-abbrev-hook): Return t if expansion was
done, nil otherwise.

diff -r fd2f6e0ec460 -r fe88ae65ed75 lisp/expand.el
--- 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))