mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(query-replace-read-from): Fix 2005-02-19 change.

Browse Source
This commit is contained in:
Lute Kamstra 2005-02-25 11:45:05 +00:00
parent ff4d39263e
commit a0b497c53b
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2005-02-25 Lute Kamstra <lute@gnu.org>
* replace.el (query-replace-read-from): Fix 2005-02-19 change.
2005-02-24 Luc Teirlinck <teirllm@auburn.edu>
* frame.el (blink-cursor-mode): Add :group keyword.

8
lisp/replace.el
View File

@ -1,7 +1,7 @@
;;; replace.el --- replace commands for Emacs
;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1996, 1997, 2000, 2001, 2002,
;; 2003, 2004 Free Software Foundation, Inc.
;; 2003, 2004, 2005 Free Software Foundation, Inc.
;; Maintainer: FSF
@ -116,10 +116,10 @@ wants to replace FROM with TO."
nil t t))))
(if (and (zerop (length from)) lastto lastfrom)
(progn
(cons lastfrom
(query-replace-compile-replacement lastto regexp-flag))
(set query-replace-from-history-variable
(cdr (symbol-value query-replace-from-history-variable))))
(cdr (symbol-value query-replace-from-history-variable)))
(cons lastfrom
(query-replace-compile-replacement lastto regexp-flag)))
;; Warn if user types \n or \t, but don't reject the input.
(and regexp-flag
(string-match "\\(\\`\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\[nt]\\)" from)