diff options
| author | Brian Preble <rassilon@gnu.org> | 1991-05-13 22:05:10 +0000 |
|---|---|---|
| committer | Brian Preble <rassilon@gnu.org> | 1991-05-13 22:05:10 +0000 |
| commit | 73fa8346460c784807ee160905baad816913c446 (patch) | |
| tree | 2ac5fadba5a74ed7a08a0c1e05a843838061660a /lisp/replace.el | |
| parent | 2f790b20af84fdca382193f16a9fb116dd12777a (diff) | |
| download | emacs-73fa8346460c784807ee160905baad816913c446.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index c32abcefc06..f5895e1d89d 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -18,8 +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 +(defconst case-replace t "\ +*Non-nil means query-replace should preserve case in replacements.") ;;;###autoload (defun query-replace (from-string to-string &optional arg) @@ -34,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) |