Mercurial > emacs
diff lisp/ps-print.el @ 90692:d108d1785ea7
New version
author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
---|---|
date | Tue, 28 Nov 2006 21:00:22 +0000 |
parents | bb0e318b7c53 |
children | 6fad8e771ddf |
line wrap: on
line diff
--- 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)