Skip to content
Snippets Groups Projects
Commit a82fe41e authored by youngs's avatar youngs
Browse files

2002-06-10 Mike Fabian <mfabian@suse.de>

        * ps-mule.el (ps-mule-string-encoding): use find-coding-system
	for XEmacs where coding-system-p is used in Emacs.
	* ps-mule.el (ps-mule-begin-job): assume that
	enable-multibyte-character is always t because this variable
	exists only for compatibility with Emacs and does not change
	the behaviour of XEmacs.
	* ps-mule.el: define a few aliases for coding systems which
	have different names in Emacs.
	* ps-mule.el (ps-mule-font-info-database-ps):
	use ps-mule-encode-8bit instead of ps-mule-encode-7bit for the
	Korean Munhwa-Bold-KSC-EUC-H font.
	* ps-mule.el (ps-mule-font-info-database-bdf):
	prefer gulim24.bdf over hanglm24.bdf (looks better).
	use ps-mule-encode-8bit instead of ps-mule-encode-7bit for the
	chinese-sisheng bdf fonts.

2002-06-09  Stephen J. Turnbull  <stephen@xemacs.org>

	* xpm-mode.el (xpm-init): Toolbar specs go with buffer, not frame.
parent fe4b7770
No related branches found
No related tags found
No related merge requests found
2002-06-10 Mike Fabian <mfabian@suse.de>
* ps-mule.el (ps-mule-string-encoding): use find-coding-system
for XEmacs where coding-system-p is used in Emacs.
* ps-mule.el (ps-mule-begin-job): assume that
enable-multibyte-character is always t because this variable
exists only for compatibility with Emacs and does not change
the behaviour of XEmacs.
* ps-mule.el: define a few aliases for coding systems which
have different names in Emacs.
* ps-mule.el (ps-mule-font-info-database-ps):
use ps-mule-encode-8bit instead of ps-mule-encode-7bit for the
Korean Munhwa-Bold-KSC-EUC-H font.
* ps-mule.el (ps-mule-font-info-database-bdf):
prefer gulim24.bdf over hanglm24.bdf (looks better).
use ps-mule-encode-8bit instead of ps-mule-encode-7bit for the
chinese-sisheng bdf fonts.
2002-04-24 Steve Youngs <youngs@xemacs.org>
* Makefile (VERSION): XEmacs package 1.04 released.
......
......@@ -42,5 +42,5 @@
(defvar bdf-directory-list
(if (eq system-type 'ms-dos)
(list (expand-file-name "fonts/bdf" installation-directory))
'("/usr/local/share/emacs/fonts/bdf"))
'("/usr/share/fonts/bdf"))
"*List of directories to search for `BDF' font files.
......@@ -46,5 +46,5 @@
"*List of directories to search for `BDF' font files.
The default value is '(\"/usr/local/share/emacs/fonts/bdf\").")
The default value is '(\"/usr/share/fonts/bdf\").")
;; MS-DOS users like to move the binary around after it's built, but
;; the value above is computed at load-up time.
......
......@@ -321,10 +321,10 @@
(normal builtin "Ryumin-Light-H" ps-mule-encode-7bit 2)
(bold builtin "GothicBBB-Medium-H" ps-mule-encode-7bit 2))
(korean-ksc5601
(normal builtin "Munhwa-Regular-KSC-EUC-H" ps-mule-encode-7bit 2)
(bold builtin "Munhwa-Bold-KSC-EUC-H" ps-mule-encode-7bit 2))
(normal builtin "Munhwa-Regular-KSC-EUC-H" ps-mule-encode-8bit 2)
(bold builtin "Munhwa-Bold-KSC-EUC-H" ps-mule-encode-8bit 2))
)
"Sample setting of the `ps-mule-font-info-database' to use builtin PS font.
Currently, data for Japanese and Korean PostScript printers are listed.")
......@@ -326,8 +326,16 @@
)
"Sample setting of the `ps-mule-font-info-database' to use builtin PS font.
Currently, data for Japanese and Korean PostScript printers are listed.")
(define-coding-system-alias 'greek-iso-8bit 'iso-8859-7)
(define-coding-system-alias 'hebrew-iso-8bit 'iso-8859-8)
(define-coding-system-alias 'cyrillic-iso-8bit 'iso-8859-5)
(define-coding-system-alias 'vietnamese-viscii 'viscii)
(define-coding-system-alias 'chinese-big5 'big5)
(define-coding-system-alias 'thai-tis620 'tis-620)
(defconst ps-mule-font-info-database-bdf
'((ascii
(normal bdf ("lt1-24-etl.bdf" "etl24-latin1.bdf") nil 1)
......@@ -367,7 +375,7 @@
(japanese-jisx0208
(normal bdf "jiskan24.bdf" ps-mule-encode-7bit 2))
(korean-ksc5601
(normal bdf "hanglm24.bdf" ps-mule-encode-7bit 2))
(normal bdf ("gulim24.bdf" "hanglm24.bdf") ps-mule-encode-7bit 2))
(japanese-jisx0212
(normal bdf ("jksp40.bdf" "jisksp40.bdf") ps-mule-encode-7bit 2))
(chinese-cns11643-1
......@@ -379,7 +387,7 @@
(chinese-big5-2
(normal bdf "taipei24.bdf" chinese-big5 2))
(chinese-sisheng
(normal bdf ("sish24-etl.bdf" "etl24-sisheng.bdf") ps-mule-encode-7bit 1))
(normal bdf ("sish24-etl.bdf" "etl24-sisheng.bdf") ps-mule-encode-8bit 1))
(ipa
(normal bdf ("ipa24-etl.bdf" "etl24-ipa.bdf") ps-mule-encode-8bit 1))
(vietnamese-viscii-lower
......@@ -1156,7 +1164,9 @@
(let ((encoding (ps-mule-font-spec-encoding font-spec)))
(setq str
(string-as-unibyte
(cond ((coding-system-p encoding)
(cond ((if (string-match "XEmacs" emacs-version)
(find-coding-system encoding)
(coding-system-p encoding))
(encode-coding-string str encoding))
((functionp encoding)
(funcall encoding str))
......@@ -1460,7 +1470,9 @@
(t
ps-mule-font-info-database-default)))
(and (boundp 'enable-multibyte-characters)
enable-multibyte-characters
(if (string-match "XEmacs" emacs-version)
t
enable-multibyte-characters)
;; Initialize `ps-mule-charset-list'. If some characters aren't
;; printable, warn it.
(let ((charsets (find-charset-region from to)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment