;;; ps-mule.el --- provide multi-byte character facility to ps-print
-;; Copyright (C) 1998-2013 Free Software Foundation, Inc.
+;; Copyright (C) 1998-2016 Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Kenichi Handa <handa@m17n.org> (multi-byte characters)
(defcustom ps-mule-font-info-database-default
ps-mule-font-info-database-latin
"The default setting to use when `ps-multibyte-buffer' is nil."
- :type '(symbol :tag "Multi-Byte Buffer Database Font Default")
+ :type '(alist :key-type symbol :tag "Charset"
+ :value-type
+ (list (list
+ (choice :tag "Font type"
+ (const normal)
+ (const bold)
+ (const italic)
+ (const bold-italic))
+ (choice :tag "Font source"
+ (const builtin)
+ (const bdf)
+ (const vflib)
+ (const nil))
+ ;; My guess as to what the doc is trying to say...
+ (choice :tag "Font name"
+ (const nil)
+ string
+ (repeat :tag "List" string))
+ (choice :tag "Encoding"
+ (const nil)
+ coding-system
+ function)
+ (choice :tag "Bytes"
+ (const nil)
+ (const 1)
+ (const 2)))))
:group 'ps-print-font)
(defconst ps-mule-font-info-database-ps
(= (skip-chars-forward "\x00-\x7F" to) to)))
;; All characters can be printed by normal PostScript fonts.
(setq ps-basic-plot-string-function 'ps-basic-plot-string
+ ;; FIXME: Doesn't ps-encode-header-string-function take 2 args?
ps-encode-header-string-function 'identity)
(setq ps-basic-plot-string-function 'ps-mule-plot-string
ps-encode-header-string-function 'ps-mule-encode-header-string