From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 3 Jul 2005 16:26:56 +0000 (+0000)
Subject: (vip-replace-string, ex-map, ex-read): Use with-no-warnings.
X-Git-Tag: emacs-pretest-22.0.90~8494
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=70903d8ef70353dea6b3e86c27eba52dffae3779;p=emacs.git

(vip-replace-string, ex-map, ex-read): Use with-no-warnings.
---

diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index 7584436e20a..6caa12179c0 100644
--- a/lisp/emulation/vip.el
+++ b/lisp/emulation/vip.el
@@ -1112,9 +1112,10 @@ the query replace mode will toggle between string replace and regexp replace."
 	    (replace-match (vip-read-string
 			    (format "Replace regexp \"%s\" with: " str))
 			   nil nil))
-	(replace-string
-	 str
-	 (vip-read-string (format "Replace \"%s\" with: " str)))))))
+	(with-no-warnings
+	  (replace-string
+	   str
+	   (vip-read-string (format "Replace \"%s\" with: " str))))))))
 
 
 ;; basic cursor movement.  j, k, l, m commands.
@@ -2830,7 +2831,8 @@ a token has type \(command, address, end-mark\) and value."
       (skip-chars-forward " \t")
       (if (looking-at "[\n|]") (error "Missing rhs"))
       (set-mark (point))
-      (end-of-buffer)
+      (with-no-warnings
+	(end-of-buffer))
       (backward-char 1)
       (setq string (buffer-substring (mark) (point))))
     (if (not (lookup-key ex-map char))
@@ -2900,7 +2902,8 @@ a token has type \(command, address, end-mark\) and value."
 	(setq file (buffer-substring (point) (mark)))))
       (if variant
 	  (shell-command command t)
-	(insert-file file))))
+	(with-no-warnings
+	  (insert-file file)))))
 
 (defun ex-set ()
   (eval (list 'setq