From 4209f4792123e8e44e9aba12fc080432b89bb9f4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 30 Jul 1995 07:08:49 +0000 Subject: [PATCH] (dabbrev-expand): Save previous point for undo. --- lisp/dabbrev.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el index 438ad165559..a28c9023571 100644 --- a/lisp/dabbrev.el +++ b/lisp/dabbrev.el @@ -415,7 +415,7 @@ direction of search to backward if set non-nil. 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 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]." (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 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]." (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) -- 2.39.2