From: Kenichi Handa <handa@m17n.org>
Date: Wed, 24 Nov 1999 02:29:08 +0000 (+0000)
Subject: Define mule funs without checking if mule package is
X-Git-Tag: emacs-pretest-21.0.90~6001
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=68e684a01991592dba23d2c32c0684c88f904c75;p=emacs.git

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.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d5015de03fd..b6df37ceec8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+1999-11-23  Vinicius Jose Latorre  <vinicius@cpqd.com.br>
+
+	* ps-print.el: 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.
+
 1999-11-23  Dave Love  <fx@gnu.org>
 
 	* fortran.el (fortran-comment-line-start): Renamed from
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 239fb828d9c..1f68b6e46eb 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -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
+;; Time-stamp:	<99/10/18 01:53:12 vinicius>
+;; Version:	5.0.1
 
-(defconst ps-print-version "5.0"
-  "ps-print.el, v 5.0 <99/07/03 vinicius>
+(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 @@ Please send all bug fixes and enhancements to
 (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 @@ XSTART YSTART are the relative position for the first page in a sheet.")
   (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)
       "")))