# HG changeset patch
# User youngs
# Date 1052716330 0
# Node ID d824841064f3c5b7f600c48d1664931365404cfb
# Parent  2ff4323490b98527da78fae2075ecd0cb5628a8e
[xemacs-hg @ 2003-05-12 05:12:10 by youngs]
2003-05-11  Simon Josefsson  <jas@extundo.com>

	* replace.el (delete-non-matching-lines, kill-non-matching-lines)
	(copy-non-matching-lines, delete-matching-lines)
	(kill-matching-lines, copy-matching-lines): Don't message.

diff -r 2ff4323490b9 -r d824841064f3 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun May 11 21:52:44 2003 +0000
+++ b/lisp/ChangeLog	Mon May 12 05:12:10 2003 +0000
@@ -1,3 +1,9 @@
+2003-05-11  Simon Josefsson  <jas@extundo.com>
+
+	* replace.el (delete-non-matching-lines, kill-non-matching-lines)
+	(copy-non-matching-lines, delete-matching-lines)
+	(kill-matching-lines, copy-matching-lines): Don't message.
+
 2003-05-10  Steve Youngs  <youngs@xemacs.org>
 
 	* XEmacs 21.5.13 "cauliflower" is released.
diff -r 2ff4323490b9 -r d824841064f3 lisp/replace.el
--- a/lisp/replace.el	Sun May 11 21:52:44 2003 +0000
+++ b/lisp/replace.el	Mon May 12 05:12:10 2003 +0000
@@ -1,6 +1,6 @@
 ;;; replace.el --- search and replace commands for XEmacs.
 
-;; Copyright (C) 1985-7, 1992, 1994, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1985-7, 1992, 1994, 1997, 2003 Free Software Foundation, Inc.
 
 ;; Maintainer: XEmacs Development Team
 ;; Keywords: dumped, matching
@@ -300,7 +300,8 @@
       (setq beg (region-beginning))
       (setq end (region-end)))
     (setq count (operate-on-non-matching-lines regexp t nil beg end))
-    (message "%i lines deleted" count)))
+    (when (interactive-p)
+      (message "%i lines deleted" count))))
 
 (defun kill-non-matching-lines (regexp)
   "Delete the lines that do not match REGEXP, from point to the end of
@@ -316,7 +317,8 @@
       (setq beg (region-beginning))
       (setq end (region-end)))
     (setq count (operate-on-non-matching-lines regexp t t beg end))
-    (message "%i lines killed" count)))
+    (when (interactive-p)
+      (message "%i lines killed" count))))
 
 (defun copy-non-matching-lines (regexp)
   "Find all lines that do not match REGEXP from point to the end of the
@@ -332,7 +334,8 @@
       (setq beg (region-beginning))
       (setq end (region-end)))
     (setq count (operate-on-non-matching-lines regexp nil t beg end))
-    (message "%i lines copied" count)))
+    (when (interactive-p)
+      (message "%i lines copied" count))))
 
 (defun operate-on-matching-lines (regexp delete kill &optional beg end)
   "Internal function used by delete-matching-lines, kill-matching-lines,
@@ -393,7 +396,8 @@
       (setq beg (region-beginning))
       (setq end (region-end)))
     (setq count (operate-on-matching-lines regexp t nil beg end))
-    (message "%i lines deleted" count)))
+    (when (interactive-p)
+      (message "%i lines deleted" count))))
 
 (defun kill-matching-lines (regexp)
   "Delete the lines that match REGEXP, from point to the end of the
@@ -409,7 +413,8 @@
       (setq beg (region-beginning))
       (setq end (region-end)))
     (setq count (operate-on-matching-lines regexp t t beg end))
-    (message "%i lines killed" count)))
+    (when (interactive-p)
+      (message "%i lines killed" count))))
 
 (defun copy-matching-lines (regexp)
   "Find all lines that match REGEXP from point to the end of the
@@ -425,7 +430,8 @@
       (setq beg (region-beginning))
       (setq end (region-end)))
     (setq count (operate-on-matching-lines regexp nil t beg end))
-    (message "%i lines copied" count)))
+    (when (interactive-p)
+      (message "%i lines copied" count))))
 
 (define-function 'how-many 'count-matches)
 (defun count-matches (regexp)