Anonymous avatar Anonymous committed a82fe41

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.

Comments (0)

Files changed (3)

+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.
 (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.
-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.
      (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.")
 
+(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)
     (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
     (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
   (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))
 	      (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)))
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.