[Emacs-diffs] master 7a00aa0: Quieten lisp/obsolete compilation

[Glenn Morris]

branch: master
commit 7a00aa02229c0cc0447b07fe6d4a8207f369d830
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    Quieten lisp/obsolete compilation
    
    * lisp/obsolete/vi.el (vi-mark-region):
    * lisp/obsolete/vip.el (vip-delete-backward-char): Silence compiler.
---
 lisp/obsolete/vi.el  | 2 +-
 lisp/obsolete/vip.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/obsolete/vi.el b/lisp/obsolete/vi.el
index a7a98d0..7d44f56 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 c0779ac..1d1eccb 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.