diff options
| -rw-r--r-- | lisp/ps-print.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 8b62a7b2e35..98e409243fe 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el | |||
| @@ -2804,7 +2804,7 @@ which long lines wrap around." | |||
| 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) |
| @@ -4812,7 +4812,6 @@ If FACE is not a valid face name, it is used default face." | |||
| 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)) |