changeset 90692:d108d1785ea7

New version
author Vinicius Jose Latorre <viniciusjl@ig.com.br>
date Tue, 28 Nov 2006 21:00:22 +0000
parents 1609d170cf69
children 42871c3ee387
files lisp/ChangeLog.unicode lisp/ps-print.el
diffstat 2 files changed, 15 insertions(+), 29 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog.unicode	Tue Nov 28 05:34:46 2006 +0000
+++ b/lisp/ChangeLog.unicode	Tue Nov 28 21:00:22 2006 +0000
@@ -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
--- a/lisp/ps-print.el	Tue Nov 28 05:34:46 2006 +0000
+++ b/lisp/ps-print.el	Tue Nov 28 21:00:22 2006 +0000
@@ -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 @@
 	   (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 @@
        (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)