From 98faf1bb417f2cff92373fd89b98ee929b23d7db Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 18 Jul 2002 15:00:56 +0000 Subject: [PATCH] (keep-lines, flush-lines): Interactively report read-only error before reading regexp argument. --- lisp/replace.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/replace.el b/lisp/replace.el index a66c9c0dfc2..7366d7fa49f 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -332,7 +332,9 @@ on the contents of the region. Otherwise, operate from point to the end of the buffer." (interactive - (keep-lines-read-args "Keep lines (containing match for regexp): ")) + (progn + (barf-if-buffer-read-only) + (keep-lines-read-args "Keep lines (containing match for regexp): "))) (if rstart (progn (goto-char (min rstart rend)) @@ -381,7 +383,9 @@ on the contents of the region. Otherwise, operate from point to the end of the buffer." (interactive - (keep-lines-read-args "Flush lines (containing match for regexp): ")) + (progn + (barf-if-buffer-read-only) + (keep-lines-read-args "Flush lines (containing match for regexp): "))) (if rstart (progn (goto-char (min rstart rend)) -- 2.39.5