diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-06-05 05:06:58 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-06-05 05:06:58 +0000 |
| commit | f68cfe84eb26b05a429e968c5c78aac868e1a0c7 (patch) | |
| tree | 1112f67769de0223e32da6b06aa3428e9e04d879 /lisp/abbrev.el | |
| parent | ca2b2cde493cf4c23fc979345f9652c8a90add02 (diff) | |
| download | emacs-f68cfe84eb26b05a429e968c5c78aac868e1a0c7.tar.gz emacs-f68cfe84eb26b05a429e968c5c78aac868e1a0c7.tar.bz2 emacs-f68cfe84eb26b05a429e968c5c78aac868e1a0c7.zip | |
(unexpand-abbrev): Better preserve markers.
Diffstat (limited to 'lisp/abbrev.el')
| -rw-r--r-- | lisp/abbrev.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/abbrev.el b/lisp/abbrev.el index 22c9ff40e3d..e8e89e92f40 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -824,10 +824,11 @@ is not undone." ;; to do the expansion. (let ((val (symbol-value last-abbrev))) (unless (stringp val) - (error "value of abbrev-symbol must be a string")) - (delete-region (point) (+ (point) (length val))) + (error "Value of abbrev-symbol must be a string")) ;; Don't inherit properties here; just copy from old contents. (insert last-abbrev-text) + ;; Delete after inserting, to better preserve markers. + (delete-region (point) (+ (point) (length val))) (setq last-abbrev-text nil)))))) (defun abbrev--write (sym) |