comparison lisp/ps-print.el @ 23204:70e635407161

To make it work also on Emacs 20.2 and the earlier version, check the value of mule-version.

23203:a4e688757109

;; 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)))

23204:70e635407161

;; 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)))