diff options
| author | Richard M. Stallman <rms@gnu.org> | 2001-12-30 19:37:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2001-12-30 19:37:47 +0000 |
| commit | 3e5c509173425e0ea24de7d2522841d5e6feae80 (patch) | |
| tree | 6d1e93207b5d743ba41dd9539debdf5adf8900b2 /lisp/replace.el | |
| parent | e04fd7a4ff581c3323f672e301894479ed4e3a3e (diff) | |
| download | emacs-3e5c509173425e0ea24de7d2522841d5e6feae80.tar.gz | |
(query-replace-read-args): Immediate error if read-only.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 28e0d06f720..474e6158e87 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -63,6 +63,7 @@ strings or patterns." :version "21.3") (defun query-replace-read-args (string regexp-flag) + (barf-if-buffer-read-only) (let (from to) (if query-replace-interactive (setq from (car (if regexp-flag regexp-search-ring search-ring))) |