Mercurial > emacs
comparison lisp/ps-print.el @ 23310:c827f2846a3d
Test for set-buffer-multibyte rather than using mule-version.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 23 Sep 1998 23:25:48 +0000 |
parents | 5d6530954ece |
children | fa40617f5902 |
comparison
equal
deleted
inserted
replaced
23309:1c0f33283d1f | 23310:c827f2846a3d |
---|---|
2802 ;; The following comments apply only to this part (through the next ^L). | 2802 ;; The following comments apply only to this part (through the next ^L). |
2803 ;; Author: Kenichi Handa <handa@etl.go.jp> | 2803 ;; Author: Kenichi Handa <handa@etl.go.jp> |
2804 ;; Maintainer: Kenichi Handa <handa@etl.go.jp> | 2804 ;; Maintainer: Kenichi Handa <handa@etl.go.jp> |
2805 | 2805 |
2806 (eval-and-compile | 2806 (eval-and-compile |
2807 (if (not (string< mule-version "4.0")) | 2807 (if (fboundp 'set-buffer-multibyte) |
2808 (progn | 2808 (progn |
2809 (defalias 'ps-mule-next-point '1+) | 2809 (defalias 'ps-mule-next-point '1+) |
2810 (defalias 'ps-mule-chars-in-string 'length) | 2810 (defalias 'ps-mule-chars-in-string 'length) |
2811 (defalias 'ps-mule-string-char 'aref) | 2811 (defalias 'ps-mule-string-char 'aref) |
2812 (defsubst ps-mule-next-index (str i) (1+ i))) | 2812 (defsubst ps-mule-next-index (str i) (1+ i))) |
4810 (or (face-italic-p face) | 4810 (or (face-italic-p face) |
4811 (memq face ps-italic-faces))) | 4811 (memq face ps-italic-faces))) |
4812 ) | 4812 ) |
4813 ; xemacs | 4813 ; xemacs |
4814 ; lucid | 4814 ; lucid |
4815 ; epoch | |
4816 (t ; epoch | 4815 (t ; epoch |
4817 (defun ps-face-bold-p (face) | 4816 (defun ps-face-bold-p (face) |
4818 (ps-xemacs-face-kind-p face 'WEIGHT_NAME "bold\\|demibold" ps-bold-faces)) | 4817 (ps-xemacs-face-kind-p face 'WEIGHT_NAME "bold\\|demibold" ps-bold-faces)) |
4819 | 4818 |
4820 (defun ps-face-italic-p (face) | 4819 (defun ps-face-italic-p (face) |