# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 736989510 0
# Node ID fd3e1f2d7ae5cbb889743a5ddc996c87acb84dd0
# Parent  8291de1718d4d9491accdc87e30c0c3a54861376
(dabbrev-expand): Delete a search-forward call
after the second replace-match.

diff -r 8291de1718d4 -r fd3e1f2d7ae5 lisp/dabbrev.el
--- a/lisp/dabbrev.el	Sun May 09 23:16:19 1993 +0000
+++ b/lisp/dabbrev.el	Sun May 09 23:18:30 1993 +0000
@@ -186,7 +186,9 @@
 	;; 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))