From f13f18d9f50018775e287d6ecc7e7d855b0d98a3 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 1 Mar 2009 19:22:22 +0000 Subject: [PATCH] (clear-abbrev-table): Always return nil (Bug#2515). --- lisp/abbrev.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/abbrev.el b/lisp/abbrev.el index 0e8b2cf9e8a..5b4ffe3ae8f 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -521,7 +521,8 @@ the current abbrev table before abbrev lookup happens." (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. -- 2.39.2