Add some compiler declarations, for builds without X.

1 files changed, 10 insertions, 0 deletions

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 3647dfd8224..93571846345 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -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.