aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGerd Moellmann2000-08-02 20:20:55 +0000
committerGerd Moellmann2000-08-02 20:20:55 +0000
commit8fdd56afa43845b5bbae3c73e82091a0af99e065 (patch)
treef33e30640c00e7a4608bd57ce223c6ecaeaddfa7
parent9c3da604d1f15bc23bf47a68fce38188e23b022a (diff)
downloademacs-8fdd56afa43845b5bbae3c73e82091a0af99e065.tar.gz
emacs-8fdd56afa43845b5bbae3c73e82091a0af99e065.zip
Fix a customization problem on
ps-mule-font-info-database-default.
-rw-r--r--lisp/ps-mule.el18
1 files changed, 3 insertions, 15 deletions
diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el
index 7c370b9bf38..7cf3c781242 100644
--- a/lisp/ps-mule.el
+++ b/lisp/ps-mule.el
@@ -7,7 +7,7 @@
7;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) 7;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
8;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> 8;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
9;; Keywords: wp, print, PostScript, multibyte, mule 9;; Keywords: wp, print, PostScript, multibyte, mule
10;; Time-stamp: <2000/04/17 11:28:09 vinicius> 10;; Time-stamp: <2000/08/01 11:17:35 vinicius>
11 11
12;; This file is part of GNU Emacs. 12;; This file is part of GNU Emacs.
13 13
@@ -226,20 +226,8 @@ See also the variable `ps-font-info-database'.")
226 226
227(defcustom ps-mule-font-info-database-default 227(defcustom ps-mule-font-info-database-default
228 ps-mule-font-info-database-latin 228 ps-mule-font-info-database-latin
229 "*The default setting to use if `ps-multibyte-buffer' is nil." 229 "*The default setting to use when `ps-multibyte-buffer' is nil."
230 :type '(repeat :tag "Multi-Byte Buffer Database Font Default" 230 :type '(symbol :tag "Multi-Byte Buffer Database Font Default")
231 (list (symbol :tag "Charset")
232 (repeat :inline t
233 (list (choice :tag "Font Type"
234 (const normal) (const bold)
235 (const italic) (const bold-italic))
236 (choice :tag "Font Source"
237 (const builtin) (const ps-bdf)
238 (const vflib)
239 (other :tag "nil" nil))
240 (list (string :tag "Font Name"))
241 (function :tag "Encoding")
242 (integer :tag "Bytes")))))
243 :group 'ps-print-font) 231 :group 'ps-print-font)
244 232
245(defconst ps-mule-font-info-database-ps 233(defconst ps-mule-font-info-database-ps