diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-01-14 20:17:52 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-01-14 20:17:52 +0000 |
| commit | 756b6dedd9a6a0f604ea617f511a6817d72344eb (patch) | |
| tree | 04c419524e314ed05edb474df3fefbf7aea8b16f /lisp/abbrev.el | |
| parent | e890723c350a91a2316798645c332d250e1c911a (diff) | |
| download | emacs-756b6dedd9a6a0f604ea617f511a6817d72344eb.tar.gz | |
(clear-abbrev-table): Can't pass a symbol to intern.
Diffstat (limited to 'lisp/abbrev.el')
| -rw-r--r-- | lisp/abbrev.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/abbrev.el b/lisp/abbrev.el index ff99430e027..5cdd2d0aa8f 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -524,7 +524,9 @@ the current abbrev table before abbrev lookup happens." (aset table i 0)) ;; Preserve the table's properties. (assert sym) - (intern sym table) + (let ((newsym (intern "" table))) + (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))))) |