Quieten lisp/obsolete compilation

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

diff --git a/lisp/obsolete/vi.el b/lisp/obsolete/vi.el
index a7a98d0ca55ec743a6fc077d26d8abfef3387842..7d44f561d46090fa206a6d88e538775b839187a9 100644 (file)
--- 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 c0779acc5ea69183a7f227c684c2dbe01e9a6681..1d1eccbf24138a3f8d5dd736178171fa01b03f4c 100644 (file)
--- 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))))
 
 \f
 ;; join lines.