Mercurial > emacs
diff lisp/frame.el @ 95841:b4e36ff621b3
Add some compiler declarations, for builds without X.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 12 Jun 2008 03:56:20 +0000 |
parents | ee5932bf781d |
children | d45acf0c8d23 |
line wrap: on
line diff
--- a/lisp/frame.el Thu Jun 12 03:54:06 2008 +0000 +++ b/lisp/frame.el Thu Jun 12 03:56:20 2008 +0000 @@ -246,6 +246,8 @@ (defvar frame-notice-user-settings t "Non-nil means function `frame-notice-user-settings' wasn't run yet.") +(declare-function tool-bar-mode "tool-bar" (&optional arg)) + ;; startup.el calls this function after loading the user's init ;; file. Now default-frame-alist and initial-frame-alist contain ;; information to which we must react; do what needs to be done. @@ -602,6 +604,7 @@ (select-frame-set-input-focus (selected-frame))) (declare-function x-initialize-window-system "term/x-win" ()) +(defvar x-display-name) (defun make-frame-on-display (display &optional parameters) "Make a frame on X display DISPLAY. @@ -627,6 +630,8 @@ (error "Invalid terminal type")) (make-frame `((window-system . nil) (tty . ,tty) (tty-type . ,type) . ,parameters))) +(declare-function x-close-connection "xfns.c" (terminal)) + (defun close-display-connection (display) "Close the connection to a display, deleting all its associated frames. For DISPLAY, specify either a frame or a display name (a string). @@ -823,6 +828,8 @@ (nreverse frame-initial-geometry-arguments)) (cdr param-list)) +(declare-function x-focus-frame "xfns.c" (frame)) + (defun select-frame-set-input-focus (frame) "Select FRAME, raise it, and set input focus, if possible." (select-frame frame) @@ -992,6 +999,9 @@ If FRAME is omitted, describe the currently selected frame." (cdr (assq 'width (frame-parameters frame)))) +(declare-function x-list-fonts "xfaces.c" + (pattern &optional face frame maximum width)) + (defalias 'set-default-font 'set-frame-font) (defun set-frame-font (font-name &optional keep-size) "Set the font of the selected frame to FONT-NAME. @@ -1206,6 +1216,8 @@ (t nil)))) +(declare-function x-display-screens "xfns.c" (&optional terminal)) + (defun display-screens (&optional display) "Return the number of screens associated with DISPLAY." (let ((frame-type (framep-on-display display))) @@ -1215,6 +1227,8 @@ (t 1)))) +(declare-function x-display-pixel-height "xfns.c" (&optional terminal)) + (defun display-pixel-height (&optional display) "Return the height of DISPLAY's screen in pixels. For character terminals, each character counts as a single pixel." @@ -1225,6 +1239,8 @@ (t (frame-height (if (framep display) display (selected-frame))))))) +(declare-function x-display-pixel-width "xfns.c" (&optional terminal)) + (defun display-pixel-width (&optional display) "Return the width of DISPLAY's screen in pixels. For character terminals, each character counts as a single pixel." @@ -1253,6 +1269,8 @@ (integer :tag "Height"))) :group 'frames) +(declare-function x-display-mm-height "xfns.c" (&optional terminal)) + (defun display-mm-height (&optional display) "Return the height of DISPLAY's screen in millimeters. System values can be overridden by `display-mm-dimensions-alist'. @@ -1263,6 +1281,8 @@ (cddr (assoc t display-mm-dimensions-alist)) (x-display-mm-height display)))) +(declare-function x-display-mm-width "xfns.c" (&optional terminal)) + (defun display-mm-width (&optional display) "Return the width of DISPLAY's screen in millimeters. System values can be overridden by `display-mm-dimensions-alist'. @@ -1273,6 +1293,8 @@ (cadr (assoc t display-mm-dimensions-alist)) (x-display-mm-width display)))) +(declare-function x-display-backing-store "xfns.c" (&optional terminal)) + (defun display-backing-store (&optional display) "Return the backing store capability of DISPLAY's screen. The value may be `always', `when-mapped', `not-useful', or nil if @@ -1284,6 +1306,8 @@ (t 'not-useful)))) +(declare-function x-display-save-under "xfns.c" (&optional terminal)) + (defun display-save-under (&optional display) "Return non-nil if DISPLAY's screen supports the SaveUnder feature." (let ((frame-type (framep-on-display display))) @@ -1293,6 +1317,8 @@ (t 'not-useful)))) +(declare-function x-display-planes "xfns.c" (&optional terminal)) + (defun display-planes (&optional display) "Return the number of planes supported by DISPLAY." (let ((frame-type (framep-on-display display))) @@ -1304,6 +1330,8 @@ (t (truncate (log (length (tty-color-alist)) 2)))))) +(declare-function x-display-color-cells "xfns.c" (&optional terminal)) + (defun display-color-cells (&optional display) "Return the number of color cells supported by DISPLAY." (let ((frame-type (framep-on-display display))) @@ -1315,6 +1343,8 @@ (t (tty-display-color-cells display))))) +(declare-function x-display-visual-class "xfns.c" (&optional terminal)) + (defun display-visual-class (&optional display) "Returns the visual class of DISPLAY. The value is one of the symbols `static-gray', `gray-scale',