Mercurial > emacs
comparison lisp/replace.el @ 788:c8d4eb38ebfc
*** 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) |