Quieten lisp/obsolete compilation

* lisp/obsolete/vi.el (vi-mark-region):
* lisp/obsolete/vip.el (vip-delete-backward-char): Silence compiler.

2 files changed, 2 insertions, 2 deletions

diff --git a/lisp/obsolete/vi.el b/lisp/obsolete/vi.el
index a7a98d0ca55..7d44f561d46 100644
--- a/lisp/obsolete/vi.el
+++ b/lisp/obsolete/vi.el
@@ -1386,7 +1386,7 @@ l(ines)."
   (interactive "p\nc")
   (cond ((char-equal region ?d) (mark-defun))
         ((char-equal region ?s) (mark-sexp arg))
-        ((char-equal region ?b) (mark-whole-buffer))
+        ((char-equal region ?b) (with-no-warnings (mark-whole-buffer)))
         ((char-equal region ?p) (mark-paragraph))
         ((char-equal region ?P) (mark-page arg))
         ((char-equal region ?f) (c-mark-function))
diff --git a/lisp/obsolete/vip.el b/lisp/obsolete/vip.el
index c0779acc5ea..1d1eccbf241 100644
--- a/lisp/obsolete/vip.el
+++ b/lisp/obsolete/vip.el
@@ -1858,7 +1858,7 @@ STRING.  Search will be forward if FORWARD, otherwise backward."
                (+ vip-use-register 32) (point) (+ (point) val))
             (copy-to-register vip-use-register (point) (+ (point) val) nil))
           (setq vip-use-register nil)))
-    (delete-backward-char val t)))
+    (with-no-warnings (delete-backward-char val t))))
 
 
 ;; join lines.