Mercurial > emacs

diff lisp/abbrev.el @ 91367:c70e45a7acfd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-324
author Miles Bader <miles@gnu.org>
date Wed, 30 Jan 2008 07:57:28 +0000
parents 606f2d163a64 2957493cf354
children
line wrap: on
line diff
--- a/lisp/abbrev.el	Wed Jan 30 06:40:42 2008 +0000
+++ b/lisp/abbrev.el	Wed Jan 30 07:57:28 2008 +0000
@@ -524,7 +524,9 @@
       (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)))))