comparison lisp/frame.el @ 86265:22dc0bc9daf8

* frame.el (msdos-mouse-p): * generic-x.el (w32-shell-name): * files.el (msdos-long-file-names, w32-long-file-name) (msdos-long-file-names, dired-get-filename, dired-unmark) (dired-do-flagged-delete, dos-8+3-filename, vms-read-directory) (view-mode-disable): * 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): * w32-fns.el (set-message-beep, w32-get-clipboard-data) (w32-get-locale-info, w32-get-valid-locale-ids) (w32-set-clipboard-data): * help-fns.el (ad-get-advice-info): * font-lock.el (fast-lock-after-fontify-buffer) (fast-lock-after-unfontify-buffer, fast-lock-mode) (lazy-lock-after-fontify-buffer) (lazy-lock-after-unfontify-buffer, lazy-lock-mode): * net/browse-url.el (w32-shell-execute): * dos-fns.el (int86, msdos-long-file-names): * dos-w32.el (default-printer-name): Declare as functions.
author Dan Nicolaescu <dann@ics.uci.edu>
date Wed, 21 Nov 2007 03:06:01 +0000
parents 591c29778a30
children a8503aaf3a82
comparison
equal deleted inserted replaced
86264:2c09cdee14d7 86265:22dc0bc9daf8
1124 ;;;; Frame/display capabilities. 1124 ;;;; Frame/display capabilities.
1125 (defun selected-terminal () 1125 (defun selected-terminal ()
1126 "Return the terminal that is now selected." 1126 "Return the terminal that is now selected."
1127 (frame-terminal (selected-frame))) 1127 (frame-terminal (selected-frame)))
1128 1128
1129 (declare-function msdos-mouse-p) ;; Defined in C only for on platform.
1130
1129 (defun display-mouse-p (&optional display) 1131 (defun display-mouse-p (&optional display)
1130 "Return non-nil if DISPLAY has a mouse available. 1132 "Return non-nil if DISPLAY has a mouse available.
1131 DISPLAY can be a display name, a frame, or nil (meaning the selected 1133 DISPLAY can be a display name, a frame, or nil (meaning the selected
1132 frame's display)." 1134 frame's display)."
1133 (let ((frame-type (framep-on-display display))) 1135 (let ((frame-type (framep-on-display display)))