(dired-do-create-files): On DOS/Windows, allow to

[gnu-emacs] / lisp / expand.el

diff --git a/lisp/expand.el b/lisp/expand.el
index 3741a1496e43cd1a1d8971ae36a369ac1ac91664..deb4a5f85770efe7d0d22996d35c42459c740fc6 100644 (file)
--- a/lisp/expand.el
+++ b/lisp/expand.el
@@ -71,6 +71,7 @@
 ;;   Please send me a word to give me your feeling about this feature or
 ;; to explain me how you use it (your expansions table for example) using
 ;; the function expand-submit-report.
+;;; Code:
 \f
 ;;; Constants:
 
@@ -337,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)
@@ -363,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))