Mercurial > emacs
changeset 12724:c3cb2b06e05f
(dabbrev-expand): Save previous point for undo.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 30 Jul 1995 07:08:49 +0000 |
| parents | 48786c683506 |
| children | 968d38f57f3a |
| files | lisp/dabbrev.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dabbrev.el Sun Jul 30 07:07:39 1995 +0000 +++ b/lisp/dabbrev.el Sun Jul 30 07:08:49 1995 +0000 @@ -415,7 +415,7 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]." (interactive "*P") - (let (abbrev expansion old direction) + (let (abbrev expansion old direction (orig-point (point))) ;; abbrev -- the abbrev to expand ;; expansion -- the expansion found (eventually) or nil until then ;; old -- the text currently in the buffer @@ -489,6 +489,7 @@ (dabbrev--reset-global-variables) (if old (save-excursion + (setq buffer-undo-list (cons orig-point buffer-undo-list)) (search-backward (substring old (length abbrev))) (delete-region (match-beginning 0) (match-end 0)))) (error "No%s dynamic expansion for `%s' found" @@ -507,6 +508,7 @@ (setq dabbrev--last-expansion-location (copy-marker dabbrev--last-expansion-location))) ;; Success: stick it in and return. + (setq buffer-undo-list (cons orig-point buffer-undo-list)) (dabbrev--substitute-expansion old abbrev expansion) ;; Save state for re-expand. (setq dabbrev--last-expansion expansion)