procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix previous change.

Browse source
This commit is contained in:
Richard M. Stallman 2002-09-29 20:50:15 +00:00
parent 580f6aa50b
commit 5b88a2c53a
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/startup.el
View file

@ -1012,7 +1012,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(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)))))

5
src/search.c
View file

@ -2569,14 +2569,15 @@ since only regular expressions have distinguished subexpressions. */)
/* 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;
}
}