Commit 3e5c5091 authored by Richard M. Stallman's avatar Richard M. Stallman

(query-replace-read-args): Immediate error if read-only.

parent e04fd7a4
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment