comparison lisp/frame.el @ 86289:8a7ed478f7bc

* international/titdic-cnv.el (dos-8+3-filename): * obsolete/fast-lock.el (msdos-long-file-names): * frame.el (msdos-mouse-p): * files.el (msdos-long-file-names, w32-long-file-name) (msdos-long-file-names): * term/mac-win.el (mac-code-convert-string, mac-coerce-ae-data) (mac-resume-apple-event, mac-font-panel-mode) (mac-atsu-font-face-attributes, mac-ae-set-reply-parameter) (mac-clear-font-name-table): * term/pc-win.el (msdos-remember-default-colors) (w16-set-clipboard-data, w16-get-clipboard-data): * term/w32-win.el (w32-send-sys-command, w32-select-font) (set-message-beep): * net/browse-url.el (w32-shell-execute): * w32-fns.el (set-message-beep, w32-get-clipboard-data) (w32-get-locale-info, w32-get-valid-locale-ids) (w32-set-clipboard-data): * dos-fns.el (int86, msdos-long-file-names): * dos-w32.el (default-printer-name): Declare as functions.

86288:145903731829

;;;; Frame/display capabilities.
(defun selected-terminal ()
  "Return the terminal that is now selected."
  (frame-terminal (selected-frame)))

(defun display-mouse-p (&optional display)
  "Return non-nil if DISPLAY has a mouse available.
DISPLAY can be a display name, a frame, or nil (meaning the selected
frame's display)."
  (let ((frame-type (framep-on-display display)))

86289:8a7ed478f7bc

;;;; Frame/display capabilities.
(defun selected-terminal ()
  "Return the terminal that is now selected."
  (frame-terminal (selected-frame)))

(declare-function msdos-mouse-p "dosfns.c")

(defun display-mouse-p (&optional display)
  "Return non-nil if DISPLAY has a mouse available.
DISPLAY can be a display name, a frame, or nil (meaning the selected
frame's display)."
  (let ((frame-type (framep-on-display display)))