# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1195237627 0
# Node ID 61154518604b1b663b463a79daea417b3d4efcc2
# Parent  a54bf760b43d0bb222fbb9607d49cdae06b1a441
(abbrev--write): Fix error in transcription from C.

diff -r a54bf760b43d -r 61154518604b lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Nov 16 18:07:14 2007 +0000
+++ b/lisp/ChangeLog	Fri Nov 16 18:27:07 2007 +0000
@@ -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 -r a54bf760b43d -r 61154518604b lisp/abbrev.el
--- a/lisp/abbrev.el	Fri Nov 16 18:07:14 2007 +0000
+++ b/lisp/abbrev.el	Fri Nov 16 18:27:07 2007 +0000
@@ -825,7 +825,7 @@
 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 " ")