mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 14:40:54 -08:00
Code Issues Projects Releases Wiki Activity

(font-show-log): New function.

Browse source
This commit is contained in:
Kenichi Handa 2008-05-22 02:05:44 +00:00
parent 1a8dc09bf4
commit fa5ee88925
2 changed files with 24 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -1,3 +1,12 @@
2008-05-22 Kenichi Handa <handa@m17n.org>
* international/mule-diag.el (font-show-log): New function.
* international/fontset.el (script-representative-chars): Add more
chars for latin. Add data for symbol.
(setup-default-fontset): Add entries for phonetic, armenian, and
symbol.
2008-05-21 Stefan Monnier <monnier@iro.umontreal.ca>
* minibuffer.el (completion-all-sorted-completions): New var.

15
lisp/international/mule-diag.el
View file

@ -1293,6 +1293,21 @@ character)")
(string (string-to-number
(nth 13 fields) 16)))))))))))
;;;###autoload
(defun font-show-log ()
(interactive)
(if (eq font-log t)
(message "Font logging is currently suppressed")
(with-output-to-temp-buffer "*Help*"
(set-buffer standard-output)
(dolist (elt (reverse font-log))
(insert (format "%s: %s\n" (car elt) (cadr elt)))
(setq elt (nth 2 elt))
(if (or (vectorp elt) (listp elt))
(mapc #'(lambda (x) (insert (format " %s\n" x))) elt)
(insert (format " %s\n" elt)))))))
(provide 'mule-diag)
;; arch-tag: cd3b607c-2893-45a0-a4fa-a6535754dbee