Mercurial > emacs

comparison lisp/replace.el @ 788:c8d4eb38ebfc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Wed, 15 Jul 1992 22:39:32 +0000
parents a8d94735277e
children 71d052f72ac1
comparison
equal deleted inserted replaced
787:3cece0106722 788:c8d4eb38ebfc
1 ;;; replace.el --- replace commands for Emacs. 1 ;;; replace.el --- replace commands for Emacs.
2
3 ;; Maintainer: FSF
4 ;; Last-Modified: 9 Jul 1992
2 5
3 ;; Copyright (C) 1985, 86, 87, 88, 89, 90, 91, 92 Free Software Foundation, Inc. 6 ;; Copyright (C) 1985, 86, 87, 88, 89, 90, 91, 92 Free Software Foundation, Inc.
4 7
5 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
6 9
16 19
17 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
18 ;; along with GNU Emacs; see the file COPYING. If not, write to 21 ;; along with GNU Emacs; see the file COPYING. If not, write to
19 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
20 23
24 ;;; Code:
21 25
22 (defconst case-replace t "\ 26 (defconst case-replace t "\
23 *Non-nil means query-replace should preserve case in replacements.") 27 *Non-nil means query-replace should preserve case in replacements.")
24 28
25 (defun query-replace (from-string to-string &optional arg) 29 (defun query-replace (from-string to-string &optional arg)