summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2007-11-16 18:27:07 +0000
committerStefan Monnier <monnier@iro.umontreal.ca>2007-11-16 18:27:07 +0000
commitd548715ceb4a2dcbc7d82100a490b9aa2913d4e4 (patch)
tree204e5a417dad6acda0594632cd35bbc00b990cbc
parente85c6b7cee2c5a0cb523ab09ee069043a10c4e41 (diff)
downloademacs-d548715ceb4a2dcbc7d82100a490b9aa2913d4e4.tar.gz
(abbrev--write): Fix error in transcription from C.
-rw-r--r--lisp/ChangeLog2
-rw-r--r--lisp/abbrev.el2
2 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b806ac23302..ccd62fa9e36 100644
--- 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 0c140a84159..b6167d2c1a5 100644
--- 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 " ")