changeset 102351:a11b9c55c39c

(clear-abbrev-table): Always return nil (Bug#2515).
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 01 Mar 2009 19:22:22 +0000
parents a17d9934ae60
children c61c29e47d6a
files lisp/abbrev.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/abbrev.el	Sun Mar 01 19:20:53 2009 +0000
+++ b/lisp/abbrev.el	Sun Mar 01 19:22:22 2009 +0000
@@ -521,7 +521,8 @@
       (set newsym nil)	     ; Make sure it won't be confused for an abbrev.
       (setplist newsym (symbol-plist sym)))
     (abbrev-table-put table :abbrev-table-modiff
-                      (1+ (abbrev-table-get table :abbrev-table-modiff)))))
+                      (1+ (abbrev-table-get table :abbrev-table-modiff))))
+  nil)
 
 (defun define-abbrev (table name expansion &optional hook &rest props)
   "Define an abbrev in TABLE named NAME, to expand to EXPANSION and call HOOK.