Mercurial > emacs

changeset 47692:ff9770dda600

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Sun, 29 Sep 2002 20:50:15 +0000
parents deb6fb65d76c
children 6dd3bdf36ac0
files lisp/startup.el src/search.c
diffstat 2 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Sun Sep 29 18:38:23 2002 +0000
+++ b/lisp/startup.el	Sun Sep 29 20:50:15 2002 +0000
@@ -1012,7 +1012,7 @@
 	(set-language-environment current-language-environment)))
     
     ;; Do this here in case the init file sets mail-host-address.
-    (or (equal user-mail-address "")
+    (if (equal user-mail-address "")
 	(setq user-mail-address (concat (user-login-name) "@"
 					(or mail-host-address
 					    (system-name)))))
--- a/src/search.c	Sun Sep 29 18:38:23 2002 +0000
+++ b/src/search.c	Sun Sep 29 20:50:15 2002 +0000
@@ -2569,14 +2569,15 @@
 
   /* Adjust search data for this change.  */
   {
+    int oldend = search_regs.end[sub];
     int change = newpoint - search_regs.end[sub];
     int i;
 
     for (i = 0; i < search_regs.num_regs; i++)
       {
-	if (search_regs.start[i] > newpoint)
+	if (search_regs.start[i] > oldend)
 	  search_regs.start[i] += change;
-	if (search_regs.end[i] > newpoint)
+	if (search_regs.end[i] > oldend)
 	  search_regs.end[i] += change;
       }
   }