*** empty log message ***

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/replace.el b/lisp/replace.el
index b1aab56bbe9..c32abcefc06 100644
--- 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,9 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
+;;;###autoload (defconst case-replace t "\
+;;;###autoload *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.