(abbrev--write): Fix error in transcription from C.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b806ac23302793dd56effc2ead3c790f04399965..ccd62fa9e36dcf83fc991e24403f0f13db1748a9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2007-11-16  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * abbrev.el (abbrev--write): Fix error in transcription from C.
+
        * emulation/pc-select.el (pc-select-shifted-mark): Remove.
        (pc-select-ensure-mark): Set mark-active to a special value instead.
        Rename from ensure-mark.  Update call callers.

diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index 0c140a84159c09aaee52f1cc8692f68cbfe4d683..b6167d2c1a5a4b9b72d8413529496a75e02d4873 100644 (file)
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -825,7 +825,7 @@ Only writes the non-system abbrevs.
 Presumes that `standard-output' points to `current-buffer'."
   (unless (or (null (symbol-value sym)) (abbrev-get sym :system))
     (insert "    (")
-    (prin1 sym)
+    (prin1 (symbol-name sym))
     (insert " ")
     (prin1 (symbol-value sym))
     (insert " ")