Initial revision

[gnu-emacs] / lisp / replace.el

diff --git a/lisp/replace.el b/lisp/replace.el
index b1aab56bbe9a9b6126496ec7ee0c05b55d764154..f5895e1d89d6222accdc84f909c95f82fdc05483 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1,5 +1,5 @@
 ;; Replace commands for Emacs.
-;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
+;; Copyright (C) 1985-1991 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
@@ -18,6 +18,10 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
+;;;###autoload
+(defconst case-replace t "\
+*Non-nil means query-replace should preserve case in replacements.")
+
 ;;;###autoload
 (defun query-replace (from-string to-string &optional arg)
   "Replace some occurrences of FROM-STRING with TO-STRING.
@@ -31,7 +35,8 @@ only matches surrounded by word boundaries."
   (interactive "sQuery replace: \nsQuery replace %s with: \nP")
   (perform-replace from-string to-string t nil arg)
   (message "Done"))
-;;;###autoload (define-key esc-map "%" 'query-replace)
+;;;###autoload
+(define-key esc-map "%" 'query-replace)
 
 ;;;###autoload
 (defun query-replace-regexp (regexp to-string &optional arg)