From 7a00aa02229c0cc0447b07fe6d4a8207f369d830 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 23 Mar 2018 17:05:01 -0400 Subject: [PATCH] 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 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. -- 2.39.5