Mercurial > emacs
diff lisp/replace.el @ 268:2dd411fe2f72
*** empty log message ***
| author | Brian Preble <rassilon@gnu.org> |
|---|---|
| date | Mon, 13 May 1991 22:05:10 +0000 |
| parents | 7db4ff4204a5 |
| children | 133f1a8cc567 |
line wrap: on
line diff
--- a/lisp/replace.el Mon May 13 21:21:58 1991 +0000 +++ b/lisp/replace.el Mon May 13 22:05:10 1991 +0000 @@ -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 @@ (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)
