Commit aa360da1 authored by Glenn Morris's avatar Glenn Morris

Add some compiler declarations, for builds without X.

parent 1ad31f1b
2008-06-12 Glenn Morris <rgm@gnu.org>
* progmodes/f90.el (f90-beginning-of-subprogram)
(f90-end-of-subprogram): Only give a message when interactive.
* term/mac-win.el (x-toolkit-scroll-bars): Check bound.
* progmodes/cperl-mode.el (cperl-info-on-command): Use
display-pixel-height rather than x-display-pixel-height.
* mail/rmailedit.el (rmail-cease-edit):
* vc-dispatcher.el (vc-dir-mode): Check tool-bar-mode is bound.
* emulation/edt.el (edt-xserver):
* emulation/edt-mapper.el (edt-xserver): Use replace-regexp-in-string.
* emulation/edt-mapper.el: Drop test for Emacs < 19.
* mwheel.el (mouse-wheel-follow-mouse, mwheel-event-window):
Evaluate definitions when compiling. Reverse tests.
* dframe.el (dframe-reposition-frame-emacs): Reorder test, and
use unless.
* menu-bar.el (w32-menu-bar-open): Declare for compiler.
* textmodes/artist.el (x-pointer-shape):
* term/x-win.el (x-parse-geometry, x-resource-name, accelerate-menu)
(x-open-connection, x-server-max-request-size, x-get-resource):
* term/w32console.el (x-setup-function-keys):
* term/w32-win.el (x-parse-geometry, x-resource-name)
(generate-fontset-menu, image-library-alist, x-open-connection)
(setup-default-fontset, set-fontset-font, setup-default-fontset)
(create-fontset-from-fontset-spec, create-fontset-from-x-resource)
(x-get-resource):
* term/mac-win.el (x-parse-geometry, x-resource-name)
(x-get-selection-internal, tool-bar-mode, set-fontset-font)
(new-fontset, x-display-list, x-open-connection, x-get-resource):
* progmodes/gud.el (tooltip-last-mouse-motion-event, tooltip-hide)
(tooltip-start-delayed-tip, tooltip-use-echo-area, tooltip-show)
(tooltip-strip-prompt, tooltip-expr-to-print, tooltip-event-buffer):
* progmodes/gdb-ui.el (tooltip-show, tooltip-use-echo-area)
(tooltip-identifier-from-point, define-fringe-bitmap):
* play/gamegrid.el (image-size):
* play/bubbles.el (image-size):
* mail/emacsbug.el (x-server-vendor, x-server-version):
* international/mule-util.el (internal-char-font):
* international/mule-diag.el (font-info, query-fontset, fontset-info)
(fontset-alias-alist, fontset-list, fontset-plain-name):
* international/mule-cmds.el (x-server-vendor, x-server-version):
* international/fontset.el (font-encoding-charset-alist)
(otf-script-alist, new-fontset, set-fontset-font)
(x-pixel-size-width-font-regexp, vertical-centering-font-regexp)
(fontset-list, query-fontset, x-get-resource):
* emulation/edt.el (x-server-vendor):
* emulation/edt-mapper.el (x-server-vendor):
* emacs-lisp/map-ynp.el (x-popup-dialog):
* emacs-lisp/lmenu.el (x-popup-dialog):
* x-dnd.el (x-window-property, x-change-window-property)
(x-get-selection-internal):
* woman.el (x-list-fonts):
* w32-fns.el (x-server-version):
* tooltip.el (x-show-tip, x-hide-tip):
* tool-bar.el (image-mask-p):
* thumbs.el (image-size):
* term.el (overflow-newline-into-fringe):
* subr.el (scroll-bar-scale):
* startup.el (x-get-resource, tool-bar-mode, image-size):
* select.el (x-get-selection-internal, x-own-selection-internal)
(x-disown-selection-internal):
* mouse.el (generate-fontset-menu):
* mouse-sel.el (x-select-text, x-cut-buffer-or-selection-value):
* image.el (image-library-alist):
* image-mode.el (image-size, image-refresh):
* image-dired.el (clear-image-cache):
* gs.el (x-display-mm-width, x-display-pixel-width)
(x-display-mm-height, x-display-pixel-height)
(x-change-window-property, x-display-grayscale-p, x-window-property):
* frame.el (tool-bar-mode, x-display-name, x-close-connection)
(x-focus-frame, x-list-fonts, x-display-screens)
(x-display-pixel-height, x-display-pixel-width, x-display-mm-height)
(x-display-mm-width, x-display-backing-store, x-display-save-under)
(x-display-planes, x-display-color-cells, x-display-visual-class):
* faces.el (internal-face-x-get-resource)
(internal-set-lisp-face-attribute-from-resource, x-bitmap-file-path)
(fontset-list, x-list-fonts, xw-color-defined-p, xw-color-values)
(xw-display-color-p, x-display-grayscale-p, x-get-resource)
(x-parse-geometry, x-create-frame, x-setup-function-keys)
(tool-bar-setup):
* doc-view.el (clear-image-cache, image-size, tooltip-show):
* dired.el (dnd-get-local-file-name, dnd-get-local-file-uri):
* dframe.el (x-display-pixel-width, x-display-pixel-height):
* descr-text.el (internal-char-font):
Define for compiler, for builds without X.
2008-06-11 Stefan Monnier <monnier@iro.umontreal.ca>
* vc-rcs.el (vc-rcs-state-heuristic): Don't assume the file exists.
......
......@@ -318,6 +318,9 @@ This function is semi-obsolete. Use `get-char-code-property'."
(string (string-to-number
(nth 13 fields) 16)))))))))))
;; Not defined on builds without X, but behind display-graphic-p.
(declare-function internal-char-font "fontset.c" (position &optional ch))
;; Return information about how CHAR is displayed at the buffer
;; position POS. If the selected frame is on a graphic display,
;; return a cons (FONTNAME . GLYPH-CODE) where GLYPH-CODE is a
......
......@@ -3315,6 +3315,10 @@ Anything else means ask for each directory."
(declare-function dired-relist-entry "dired-aux" (file))
(declare-function make-symbolic-link "fileio.c")
;; Only used when (featurep 'dnd).
(declare-function dnd-get-local-file-name "dnd" (uri &optional must-exist))
(declare-function dnd-get-local-file-uri "dnd" (uri))
(defun dired-dnd-handle-local-file (uri action)
"Copy, move or link a file to the dired directory.
URI is the file to handle, ACTION is one of copy, move, link or ask.
......
......@@ -628,6 +628,8 @@ Call CALLBACK with no arguments when done."
pdf))
callback))
(declare-function clear-image-cache "image.c" (&optional filter))
(defun doc-view-pdf->png (pdf png pages)
"Convert a PDF file to PNG asynchronously.
Start by converting PAGES, and then the rest."
......@@ -728,6 +730,8 @@ Those files are saved in the directory given by the function
;;;; Slicing
(declare-function image-size "image.c" (spec &optional pixels frame))
(defun doc-view-set-slice (x y width height)
"Set the slice of the images that should be displayed.
You can use this function to tell doc-view not to display the
......@@ -864,6 +868,8 @@ For now these keys are useful:
`k' : Kill the conversion process and this buffer.
`K' : Kill the conversion process.\n"))))
(declare-function tooltip-show "tooltip" (text &optional use-echo-area))
(defun doc-view-show-tooltip ()
(interactive)
(tooltip-show (doc-view-current-info)))
......
......@@ -128,6 +128,8 @@
(setq menu-items (cdr menu-items)))
menu))
(declare-function x-popup-dialog "xmenu.c" (position contents &optional header))
;; XEmacs compatibility function
(defun popup-dialog-box (data)
"Pop up a dialog box.
......
......@@ -34,6 +34,8 @@
;;; Code:
(declare-function x-popup-dialog "xmenu.c" (position contents &optional header))
(defun map-y-or-n-p (prompter actor list &optional help action-alist
no-cursor-in-echo-area)
"Ask a series of boolean questions.
......
......@@ -299,6 +299,12 @@ X resource class for the attribute."
:group 'faces)
(declare-function internal-face-x-get-resource "xfaces.c"
(resource class frame))
(declare-function internal-set-lisp-face-attribute-from-resource "xfaces.c"
(face attr value &optional frame))
(defun set-face-attribute-from-resource (face attribute resource class frame)
"Set FACE's ATTRIBUTE from X resource RESOURCE, class CLASS on FRAME.
Value is the attribute value specified by the resource, or nil
......@@ -930,6 +936,8 @@ Otherwise, return a single face."
output
(car output)))))
;; Not defined without X, but behind window-system test.
(defvar x-bitmap-file-path)
(defun face-valid-attribute-values (attribute &optional frame)
"Return valid values for face attribute ATTRIBUTE.
......@@ -1110,6 +1118,9 @@ of a global face. Value is the new attribute value."
(setq new-value (read new-value)))
new-value))
(declare-function fontset-list "fontset.c" ())
(declare-function x-list-fonts "xfaces.c"
(pattern &optional face frame maximum width))
(defun read-face-font (face &optional frame)
"Read the name of a font for FACE on FRAME.
......@@ -1586,6 +1597,8 @@ If FRAME is nil, that stands for the selected frame."
(mapcar 'car (tty-color-alist frame))))
(defalias 'x-defined-colors 'defined-colors)
(declare-function xw-color-defined-p "xfns.c" (color &optional frame))
(defun color-defined-p (color &optional frame)
"Return non-nil if color COLOR is supported on frame FRAME.
If FRAME is omitted or nil, use the selected frame.
......@@ -1598,6 +1611,8 @@ If COLOR is the symbol `unspecified' or one of the strings
(numberp (tty-color-translate color frame)))))
(defalias 'x-color-defined-p 'color-defined-p)
(declare-function xw-color-values "xfns.c" (color &optional frame))
(defun color-values (color &optional frame)
"Return a description of the color named COLOR on frame FRAME.
The value is a list of integer RGB values--(RED GREEN BLUE).
......@@ -1614,6 +1629,8 @@ If COLOR is the symbol `unspecified' or one of the strings
(tty-color-values color frame))))
(defalias 'x-color-values 'color-values)
(declare-function xw-display-color-p "xfns.c" (&optional terminal))
(defun display-color-p (&optional display)
"Return t if DISPLAY supports color.
The optional argument DISPLAY specifies which display to ask about.
......@@ -1624,6 +1641,8 @@ If omitted or nil, that stands for the selected frame's display."
(tty-display-color-p display)))
(defalias 'x-display-color-p 'display-color-p)
(declare-function x-display-grayscale-p "xfns.c" (&optional terminal))
(defun display-grayscale-p (&optional display)
"Return non-nil if frames on DISPLAY can display shades of gray."
(let ((frame-type (framep-on-display display)))
......@@ -1788,6 +1807,9 @@ variable with `setq'; this won't have the expected effect."
(const :tag "automatic" nil)))
(declare-function x-get-resource "frame.c"
(attribute class &optional component subclass))
(defun frame-set-background-mode (frame)
"Set up display-dependent faces on FRAME.
Display-dependent faces are those which have different definitions
......@@ -1870,6 +1892,8 @@ according to the `background-mode' and `display-type' frame parameters."
;;; Frame creation.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(declare-function x-parse-geometry "frame.c" (string))
(defun x-handle-named-frame-geometry (parameters)
"Add geometry parameters for a named frame to parameter list PARAMETERS.
Value is the new parameter list."
......@@ -1916,6 +1940,9 @@ Value is the new parameter list."
(modify-frame-parameters frame
(list (cons 'cursor-color fg)))))))
(declare-function x-create-frame "xfns.c" (parms))
(declare-function x-setup-function-keys "term/x-win" (frame))
(declare-function tool-bar-setup "tool-bar" (&optional frame))
(defun x-create-frame-with-faces (&optional parameters)
"Create a frame from optional frame parameters PARAMETERS.
......
......@@ -246,6 +246,8 @@ Pass it BUFFER as first arg, and (cdr ARGS) gives the rest of the args."
(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 @@ is not considered (see `next-frame')."
(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 @@ additional frame parameters."
(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 @@ the user during startup."
(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."
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 @@ frame's display)."
(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 @@ frame's display)."
(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 @@ For character terminals, each character counts as a single pixel."
(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 @@ displays not explicitely specified."
(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 @@ If the information is unavailable, value is nil."
(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 @@ If the information is unavailable, value is nil."
(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 @@ the question is inapplicable to a certain kind of display."
(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 @@ the question is inapplicable to a certain kind of display."
(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 @@ the question is inapplicable to a certain kind of display."
(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 @@ the question is inapplicable to a certain kind of display."
(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',
......
;;; gs.el --- interface to Ghostscript
;; Copyright (C) 1998, 2001, 2002, 2003, 2004,
;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
;; 2008 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: internal
......@@ -93,6 +93,9 @@ FILE is the value to substitute for the place-holder `<file>'."
;; specified in PostScript points. If omitted, the margins are
;; assumed to be 0.
(declare-function x-display-mm-width "xfns.c" (&optional terminal))
(declare-function x-display-pixel-width "xfns.c" (&optional terminal))
(defun gs-width-in-pt (frame pixel-width)
"Return, on FRAME, pixel width PIXEL-WIDTH tranlated to pt."
(let ((mm (* (float pixel-width)
......@@ -100,6 +103,8 @@ FILE is the value to substitute for the place-holder `<file>'."
(float (x-display-pixel-width frame))))))
(/ (* 25.4 mm) 72.0)))
(declare-function x-display-mm-height "xfns.c" (&optional terminal))
(declare-function x-display-pixel-height "xfns.c" (&optional terminal))
(defun gs-height-in-pt (frame pixel-height)
"Return, on FRAME, pixel height PIXEL-HEIGHT tranlated to pt."
......@@ -108,6 +113,8 @@ FILE is the value to substitute for the place-holder `<file>'."
(float (x-display-pixel-height frame))))))
(/ (* 25.4 mm) 72.0)))
(declare-function x-change-window-property "xfns.c"
(prop value &optional frame type format outer-p))
(defun gs-set-ghostview-window-prop (frame spec img-width img-height)
"Set the `GHOSTVIEW' window property of FRAME.
......@@ -131,6 +138,7 @@ image in pixels."
rotation llx lly urx ury xdpi ydpi)
frame)))
(declare-function x-display-grayscale-p "xfns.c" (&optional terminal))
(defun gs-set-ghostview-colors-window-prop (frame pixel-colors)
"Set the `GHOSTVIEW_COLORS' environment variable depending on FRAME."
......@@ -141,8 +149,9 @@ image in pixels."
(format "%s %s" mode pixel-colors)
frame)))
(declare-function x-window-property "xfns.c"
(prop &optional frame type source delete-p vector-ret-p))
;
;;;###autoload
(defun gs-load-image (frame spec img-width img-height window-and-pixmap-id
pixel-colors)
......
......@@ -1583,6 +1583,8 @@ Note that n, p and <down> and <up> will be hijacked and bound to
[menu-bar image-dired image-dired-next-line-and-display]
'("Display thumb for next file" . image-dired-next-line-and-display)))
(declare-function clear-image-cache "image.c" (&optional filter))
(defun image-dired-create-thumbs (&optional arg)
"Create thumbnail images for all marked files in dired.
With prefix argument ARG, create thumbnails even if they already exist
......
......@@ -126,6 +126,8 @@ A winprops object has the shape (WINDOW . ALIST)."
(if (eq (window-buffer) (current-buffer))
(selected-window))))
(declare-function image-size "image.c" (spec &optional pixels frame))
(defun image-forward-hscroll (&optional n)
"Scroll image in current window to the left by N character widths.
Stop if the right edge of the image is reached."
......@@ -397,6 +399,7 @@ information on these modes."
(defvar archive-superior-buffer)
(defvar tar-superior-buffer)
(declare-function image-refresh "image.c" (spec &optional frame))
(defun image-toggle-display ()
"Start or stop displaying an image file as the actual image.
......
......@@ -326,6 +326,8 @@ Optional DATA-P non-nil means SOURCE is a string containing image data."
type)
(defvar image-library-alist)
;;;###autoload
(defun image-type-available-p (type)
"Return non-nil if image type TYPE is available.
......
......@@ -117,6 +117,8 @@
("muletibetan-2" . tibetan)
("muletibetan-1" . tibetan-1-column)))
(defvar font-encoding-charset-alist)
(setq font-encoding-charset-alist
'((latin-iso8859-1 . iso-8859-1)
(latin-iso8859-2 . iso-8859-2)
......@@ -186,6 +188,8 @@
(tai-viet #xAA80)
(hangul #xAC00)))
(defvar otf-script-alist)
(setq otf-script-alist
'((arab . arabic)
(armn . armenian)
......@@ -273,6 +277,10 @@
;; `char-script-table'. SCRIPT may be a charset specifying the range
;; of characters.
(declare-function new-fontset "fontset.c" (name fontlist))
(declare-function set-fontset-font "fontset.c"
(name target font-spec &optional frame add))
(defun setup-default-fontset ()
"Setup the default fontset."
(new-fontset
......@@ -616,6 +624,9 @@
(setq font-encoding-alist
(cons (cons pattern charset) font-encoding-alist)))))
(defvar x-pixel-size-width-font-regexp)
(defvar vertical-centering-font-regexp)
;; Setting for suppressing XLoadQueryFont on big fonts.
(setq x-pixel-size-width-font-regexp
"gb2312\\|gbk\\|gb18030\\|jisx0208\\|ksc5601\\|cns11643\\|big5")
......@@ -746,6 +757,8 @@ with \"fontset\" in `<CHARSET_REGISTRY>' field."
(string= (match-string (1+ xlfd-regexp-registry-subnum) fontset)
"fontset")))
(declare-function fontset-list "fontset.c" ())
(defun generate-fontset-menu ()
"Return list to be appended to `x-fixed-font-alist'.
Done when `mouse-set-font' is called."
......@@ -757,6 +770,8 @@ Done when `mouse-set-font' is called."
(cons "Fontset"
(sort l #'(lambda (x y) (string< (car x) (car y)))))))
(declare-function query-fontset "fontset.c" (pattern &optional regexpp))
(defun fontset-plain-name (fontset)
"Return a plain and descriptive name of FONTSET."
(if (not (setq fontset (query-fontset fontset)))
......@@ -947,6 +962,9 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
;; The values of the resources the string of the same format as
;; `standard-fontset-spec'.
(declare-function x-get-resource "frame.c"
(attribute class &optional component subclass))
(defun create-fontset-from-x-resource ()
(let ((idx 0)
fontset-spec)
......
......@@ -1910,6 +1910,9 @@ Setting this variable directly does not take effect. See
(features (repeat symbol))
(unibyte-display coding-system)))))
(declare-function x-server-vendor "xfns.c" (&optional terminal))
(declare-function x-server-version "xfns.c" (&optional terminal))
(defun standard-display-european-internal ()
;; Actually set up direct output of non-ASCII characters.
(standard-display-8bit (if (eq window-system 'pc) 128 160) 255)
......
......@@ -818,6 +818,8 @@ but still contains full information about each coding system."
;;; FONT
(declare-function font-info "font.c" (name &optional frame))
(defun describe-font-internal (font-info &optional verbose)
"Print information about a font in FONT-INFO."
(print-list "name (opened by):" (aref font-info 0))
......@@ -910,6 +912,9 @@ The font must be already used by Emacs."
(dolist (opened (cdr elt))
(insert "\n\t[" opened "]")))))))
(declare-function query-fontset "fontset.c" (pattern &optional regexpp))
(declare-function fontset-info "fontset.c" (fontset &optional frame))
(defun print-fontset (fontset &optional print-opened)
"Print information about FONTSET.
If FONTSET is nil, print information about the default fontset.
......@@ -930,6 +935,9 @@ the current buffer."
(insert "\n ---<fallback to the default fontset>---")
(describe-vector (char-table-extra-slot info 0) 'print-fontset-element)))
(defvar fontset-alias-alist)
(declare-function fontset-list "fontset.c" ())
;;;###autoload
(defun describe-fontset (fontset)
"Display information about FONTSET.
......@@ -952,6 +960,8 @@ This shows which font is used for which character(s)."
(with-current-buffer standard-output
(print-fontset fontset t))))
(declare-function fontset-plain-name "fontset" (fontset))
;;;###autoload
(defun list-fontsets (arg)
"Display a list of all fontsets.
......
......@@ -347,6 +347,8 @@ language environment LANG-ENV."
(with-coding-priority coding-priority
(detect-coding-region from to)))))
(declare-function internal-char-font "fontset.c" (position &optional ch))
;;;###autoload
(defun char-displayable-p (char)
"Return non-nil if we should be able to display CHAR.
......@@ -374,7 +376,7 @@ basis, this may not be accurate."
(cond
((listp cs-list)
(catch 'tag
(mapc #'(lambda (charset)
(mapc #'(lambda (charset)
(if (encode-char char charset)
(throw 'tag charset)))
cs-list)
......
......@@ -65,6 +65,9 @@
(defvar report-emacs-bug-orig-text nil
"The automatically-created initial text of bug report.")
(declare-function x-server-vendor "xfns.c" (&optional terminal))
(declare-function x-server-version "xfns.c" (&optional terminal))
;;;###autoload
(defun report-emacs-bug (topic &optional recent-keys)
"Report a bug in GNU Emacs.
......
......@@ -305,6 +305,8 @@ where SELECTION-NAME = name of selection
SELECTION-THING-SYMBOL = name of variable where the current selection
type for this selection should be stored.")
(declare-function x-select-text "term/x-win" (text &optional push))
(defvar mouse-sel-set-selection-function
(if (eq mouse-sel-default-bindings 'interprogram-cut-paste)
'x-set-selection
......@@ -321,6 +323,8 @@ Called with two arguments:
This sets the selection as well as the cut buffer for the older applications,
unless `mouse-sel-default-bindings' is `interprogram-cut-paste'.")
(declare-function x-cut-buffer-or-selection-value "term/x-win" ())
(defvar mouse-sel-get-selection-function
(lambda (selection)
(if (eq selection 'PRIMARY)
......
......@@ -2425,6 +2425,8 @@ and selects that window."
)
"X fonts suitable for use in Emacs.")
(declare-function generate-fontset-menu "fontset" ())
(defun mouse-select-font ()
"Prompt for a font name, using `x-popup-menu', and return it."
(interactive)
......
......@@ -950,6 +950,8 @@ static char * dot3d_xpm[] = {
(message "bubbles-quit")
(bury-buffer))
(declare-function image-size "image.c" (spec &optional pixels frame))
(defun bubbles--compute-offsets ()
"Update horizontal and vertical offsets for centering the bubbles grid.
Set `bubbles--col-offset' and `bubbles--row-offset'."
......