diff options
| author | Chong Yidong | 2009-03-01 19:22:22 +0000 |
|---|---|---|
| committer | Chong Yidong | 2009-03-01 19:22:22 +0000 |
| commit | f13f18d9f50018775e287d6ecc7e7d855b0d98a3 (patch) | |
| tree | d1136407a108b4f13b95d257c0b2814a6a783de6 | |
| parent | b597e547374c917e2193db79de61b5368106bd8f (diff) | |
| download | emacs-f13f18d9f50018775e287d6ecc7e7d855b0d98a3.tar.gz emacs-f13f18d9f50018775e287d6ecc7e7d855b0d98a3.zip | |
(clear-abbrev-table): Always return nil (Bug#2515).
| -rw-r--r-- | lisp/abbrev.el | 3 |
1 files changed, 2 insertions, 1 deletions
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." | |||
| 521 | (set newsym nil) ; Make sure it won't be confused for an abbrev. | 521 | (set newsym nil) ; Make sure it won't be confused for an abbrev. |
| 522 | (setplist newsym (symbol-plist sym))) | 522 | (setplist newsym (symbol-plist sym))) |
| 523 | (abbrev-table-put table :abbrev-table-modiff | 523 | (abbrev-table-put table :abbrev-table-modiff |
| 524 | (1+ (abbrev-table-get table :abbrev-table-modiff))))) | 524 | (1+ (abbrev-table-get table :abbrev-table-modiff)))) |
| 525 | nil) | ||
| 525 | 526 | ||
| 526 | (defun define-abbrev (table name expansion &optional hook &rest props) | 527 | (defun define-abbrev (table name expansion &optional hook &rest props) |
| 527 | "Define an abbrev in TABLE named NAME, to expand to EXPANSION and call HOOK. | 528 | "Define an abbrev in TABLE named NAME, to expand to EXPANSION and call HOOK. |