(dabbrev-expand): Delete a search-forward call

after the second replace-match.

1 files changed, 3 insertions, 1 deletions

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