diff options
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) |