comparison lisp/ps-print.el @ 23310:c827f2846a3d

Test for set-buffer-multibyte rather than using mule-version.

23309:1c0f33283d1f

;; The following comments apply only to this part (through the next ^L).
;; Author:	Kenichi Handa <[e-mail]>
;; Maintainer:	Kenichi Handa <[e-mail]>

(eval-and-compile
  (if (not (string< mule-version "4.0"))
      (progn
	(defalias 'ps-mule-next-point '1+)
	(defalias 'ps-mule-chars-in-string 'length)
	(defalias 'ps-mule-string-char 'aref)
	(defsubst ps-mule-next-index (str i) (1+ i)))

	 (or (face-italic-p face)
	     (memq face ps-italic-faces)))
       )
					; xemacs
					; lucid
					; epoch
      (t				; epoch
       (defun ps-face-bold-p (face)
	 (ps-xemacs-face-kind-p face 'WEIGHT_NAME "bold\\|demibold" ps-bold-faces))

       (defun ps-face-italic-p (face)

23310:c827f2846a3d

;; The following comments apply only to this part (through the next ^L).
;; Author:	Kenichi Handa <[e-mail]>
;; Maintainer:	Kenichi Handa <[e-mail]>

(eval-and-compile
  (if (fboundp 'set-buffer-multibyte)
      (progn
	(defalias 'ps-mule-next-point '1+)
	(defalias 'ps-mule-chars-in-string 'length)
	(defalias 'ps-mule-string-char 'aref)
	(defsubst ps-mule-next-index (str i) (1+ i)))

	 (or (face-italic-p face)
	     (memq face ps-italic-faces)))
       )
					; xemacs
					; lucid
      (t				; epoch
       (defun ps-face-bold-p (face)
	 (ps-xemacs-face-kind-p face 'WEIGHT_NAME "bold\\|demibold" ps-bold-faces))

       (defun ps-face-italic-p (face)