Commit 938a9a9e authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(clear-abbrev-table): Can't pass a symbol to intern.

parent 6ed73f28
2008-01-14 Stefan Monnier <monnier@iro.umontreal.ca>
* abbrev.el (clear-abbrev-table): Can't pass a symbol to intern.
2008-01-14 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-local-host-p): Use `tramp-file-name-host'
......@@ -7,7 +11,7 @@
2008-01-14 Alan Mackenzie <acm@muc.de>
* progmodes/cc-engine.el (c-guess-basic-syntax): prevent a macro
* progmodes/cc-engine.el (c-guess-basic-syntax): Prevent a macro
call inside a struct being recognised as a K&R argument.
2008-01-14 Stefan Monnier <monnier@iro.umontreal.ca>
......
......@@ -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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment