diff options
| author | Glenn Morris <rgm@gnu.org> | 2018-03-23 17:05:01 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2018-03-23 17:05:01 -0400 |
| commit | 7a00aa02229c0cc0447b07fe6d4a8207f369d830 (patch) | |
| tree | a520ba8747a8378bd79b17c3f217785b73e1abc2 | |
| parent | 1f2602cc5d9f2a2e94073839f2dbfa7c529c9b59 (diff) | |
| download | emacs-7a00aa02229c0cc0447b07fe6d4a8207f369d830.tar.gz | |
Quieten lisp/obsolete compilation
* lisp/obsolete/vi.el (vi-mark-region):
* lisp/obsolete/vip.el (vip-delete-backward-char): Silence compiler.
| -rw-r--r-- | lisp/obsolete/vi.el | 2 | ||||
| -rw-r--r-- | 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. |