Mercurial > emacs
changeset 26563:79f9edcc8bde
Define mule funs without checking if mule package is
loaded.
(ps-print-version): New version number (5.0.1).
(ps-header-dirpart): Now uses abbreviate-file-name.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 24 Nov 1999 02:28:21 +0000 |
| parents | b32d82817493 |
| children | 6d4aa8156033 |
| files | lisp/ps-print.el |
| diffstat | 1 files changed, 21 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ps-print.el Tue Nov 23 22:16:16 1999 +0000 +++ b/lisp/ps-print.el Wed Nov 24 02:28:21 1999 +0000 @@ -9,11 +9,11 @@ ;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; Keywords: wp, print, PostScript -;; Time-stamp: <99/07/03 20:16:48 vinicius> -;; Version: 5.0 - -(defconst ps-print-version "5.0" - "ps-print.el, v 5.0 <99/07/03 vinicius> +;; Time-stamp: <99/10/18 01:53:12 vinicius> +;; Version: 5.0.1 + +(defconst ps-print-version "5.0.1" + "ps-print.el, v 5.0.1 <99/10/18 vinicius> Vinicius's last change version -- this file may have been edited as part of Emacs without changes to the version number. When reporting bugs, @@ -1056,17 +1056,22 @@ (unless (featurep 'lisp-float-type) (error "`ps-print' requires floating point support")) + ;; For Emacs 20.2 and the earlier version. -(eval-and-compile - (and (boundp 'mule-version) ; only if mule package is loaded - (string< mule-version "4.0") - (progn - (defun set-buffer-multibyte (arg) - (setq enable-multibyte-characters arg)) - (defun string-as-unibyte (arg) arg) - (defun string-as-multibyte (arg) arg) - (defun charset-after (&optional arg) - (char-charset (char-after arg)))))) + +(or (fboundp 'set-buffer-multibyte) + (defun set-buffer-multibyte (arg) + (setq enable-multibyte-characters arg))) + +(or (fboundp 'string-as-unibyte) + (defun string-as-unibyte (arg) arg)) + +(or (fboundp 'string-as-multibyte) + (defun string-as-multibyte (arg) arg)) + +(or (fboundp 'charset-after) + (defun charset-after (&optional arg) + (char-charset (char-after arg)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; User Variables: @@ -4433,7 +4438,7 @@ (let ((fname (buffer-file-name))) (if fname (if (string-equal (buffer-name) (file-name-nondirectory fname)) - (file-name-directory fname) + (abbreviate-file-name (file-name-directory fname)) fname) "")))