Commit f68cfe84 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(unexpand-abbrev): Better preserve markers.

parent ca2b2cde
2008-06-05 Stefan Monnier <>
* abbrev.el (unexpand-abbrev): Better preserve markers.
2008-06-05 Glenn Morris <>
* emacs-lisp/autoload.el (autoload-rubric): New function,
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment