summaryrefslogtreecommitdiff
path: root/lisp/international/mule-diag.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/international/mule-diag.el')
-rw-r--r--lisp/international/mule-diag.el10
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.