New version

diff --git a/lisp/ChangeLog.unicode b/lisp/ChangeLog.unicode
index 2b3149de4c845c286aefda0c7a74e7ab11507989..05feff1222e372201228d0536ed66d60d1522379 100644 (file)
--- a/lisp/ChangeLog.unicode
+++ b/lisp/ChangeLog.unicode
@@ -1,3 +1,9 @@
+2006-11-28  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
+
+       * ps-print.el: Fix maintainer email.  Eliminate function declaration
+       that kept compatibility with older Emacs version.
+       (ps-print-version): New version (6.7).
+
 2006-11-28  Kenichi Handa  <handa@m17n.org>
 
        * international/quail.el (quail-get-translations): Make

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index d072b905e4af2ae0de84b06e491e8d1abc7c16f5..e97a2344894b0352853009ef4aef86508ba64a65 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -6,16 +6,16 @@
 ;; Author: Jim Thompson (was <thompson@wg2.waii.com>)
 ;;     Jacques Duthen (was <duthen@cegelec-red.fr>)
 ;;     Vinicius Jose Latorre <viniciusjl@ig.com.br>
-;;     Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
-;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
+;;     Kenichi Handa <handa@m17n.org> (multi-byte characters)
+;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters)
 ;;     Vinicius Jose Latorre <viniciusjl@ig.com.br>
 ;; Keywords: wp, print, PostScript
-;; Time-stamp: <2005/06/27 00:57:22 vinicius>
-;; Version: 6.6.7
+;; Time-stamp: <2006/11/28 18:27:15 vinicius>
+;; Version: 6.7
 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
 
-(defconst ps-print-version "6.6.7"
-  "ps-print.el, v 6.6.7 <2005/06/27 vinicius>
+(defconst ps-print-version "6.7"
+  "ps-print.el, v 6.7 <2006/11/28 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, please also
@@ -1459,31 +1459,11 @@ Please send all bug fixes and enhancements to
           (error "`ps-print' doesn't support Epoch"))
          (t
           (unless (and (boundp 'emacs-major-version)
-                       (> emacs-major-version 19))
-            (error "`ps-print' only supports Emacs 20 and higher"))
+                       (> emacs-major-version 22))
+            (error "`ps-print' only supports Emacs 23 and higher"))
           'emacs))))
 
 
-;; For Emacs 20.2 and the earlier version.
-
-(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 'char-charset)
-    (defun char-charset (arg) 'ascii))
-
-(or (fboundp 'charset-after)
-    (defun charset-after (&optional arg)
-      (char-charset (char-after arg))))
-
-
 ;; GNU Emacs
 (or (fboundp 'line-beginning-position)
     (defun line-beginning-position (&optional n)
@@ -1545,7 +1525,7 @@ Please send all bug fixes and enhancements to
        (defun ps-face-background-name (face)
         (ps-xemacs-color-name (face-background face)))
        )
-      (t                               ; emacs
+      (t                               ; emacs 23 or higher
        (defvar mark-active nil)
        (defun ps-mark-active-p ()
         mark-active)