# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1235935342 0
# Node ID a11b9c55c39c97768072b07d6733a3139c5c4aed
# Parent  a17d9934ae60bb15c6f5a4f534abebe7f779e1f4
(clear-abbrev-table): Always return nil (Bug#2515).

diff -r a17d9934ae60 -r a11b9c55c39c lisp/abbrev.el
--- 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.