From 9fa5bb32b2a7d7544e03553e7388857343651afa Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 22 Aug 2004 16:54:33 +0000 Subject: [PATCH] (display-mouse-p, display-selections-p): Use with-no-warnings. --- lisp/frame.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/frame.el b/lisp/frame.el index a364d7f491b..8d979cdaff4 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -987,7 +987,8 @@ frame's display)." ((eq frame-type 'pc) (msdos-mouse-p)) ((eq system-type 'windows-nt) - (> w32-num-mouse-buttons 0)) + (with-no-warnings + (> w32-num-mouse-buttons 0))) ((memq frame-type '(x mac)) t) ;; We assume X and Mac *always* have a pointing device (t @@ -1040,7 +1041,8 @@ frame's display)." ((eq frame-type 'pc) ;; MS-DOG frames support selections when Emacs runs inside ;; the Windows' DOS Box. - (not (null dos-windows-version))) + (with-no-warnings + (not (null dos-windows-version)))) ((memq frame-type '(x w32 mac)) t) ;; FIXME? (t -- 2.39.2