(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 0798b764c2..db5fcacd07 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))