From 23261d8da9adc7fa9163288e6e24f971ecbaa95d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 9 May 1993 23:18:30 +0000 Subject: (dabbrev-expand): Delete a search-forward call after the second replace-match. --- lisp/dabbrev.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el index 0798b764c2b..db5fcacd077 100644 --- a/lisp/dabbrev.el +++ b/lisp/dabbrev.el @@ -186,7 +186,9 @@ with the next possible expansion not yet tried." ;; case pattern. (save-excursion (replace-match abbrev t 'literal)) - (search-forward abbrev) +;;; This used to be necessary, but no longer, +;;; because now point is preserved correctly above. +;;; (search-forward abbrev) (replace-match (if do-case (downcase expansion) expansion) (not do-case) 'literal)) -- cgit v1.2.1