aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorVinicius Jose Latorre2006-11-28 21:00:22 +0000
committerVinicius Jose Latorre2006-11-28 21:00:22 +0000
commit0e80c3731e8175ba1033fcfa440ee00e577abb23 (patch)
tree935922d852d67b79adffb5b5ef206119a793683d
parent86e65006521b1c995f1b55db456c4c396515ce5a (diff)
downloademacs-0e80c3731e8175ba1033fcfa440ee00e577abb23.tar.gz
emacs-0e80c3731e8175ba1033fcfa440ee00e577abb23.zip
New version
-rw-r--r--lisp/ChangeLog.unicode6
-rw-r--r--lisp/ps-print.el38
2 files changed, 15 insertions, 29 deletions
diff --git a/lisp/ChangeLog.unicode b/lisp/ChangeLog.unicode
index 2b3149de4c8..05feff1222e 100644
--- a/lisp/ChangeLog.unicode
+++ b/lisp/ChangeLog.unicode
@@ -1,3 +1,9 @@
12006-11-28 Vinicius Jose Latorre <viniciusjl@ig.com.br>
2
3 * ps-print.el: Fix maintainer email. Eliminate function declaration
4 that kept compatibility with older Emacs version.
5 (ps-print-version): New version (6.7).
6
12006-11-28 Kenichi Handa <handa@m17n.org> 72006-11-28 Kenichi Handa <handa@m17n.org>
2 8
3 * international/quail.el (quail-get-translations): Make 9 * international/quail.el (quail-get-translations): Make
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index d072b905e4a..e97a2344894 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -6,16 +6,16 @@
6;; Author: Jim Thompson (was <thompson@wg2.waii.com>) 6;; Author: Jim Thompson (was <thompson@wg2.waii.com>)
7;; Jacques Duthen (was <duthen@cegelec-red.fr>) 7;; Jacques Duthen (was <duthen@cegelec-red.fr>)
8;; Vinicius Jose Latorre <viniciusjl@ig.com.br> 8;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
9;; Kenichi Handa <handa@etl.go.jp> (multi-byte characters) 9;; Kenichi Handa <handa@m17n.org> (multi-byte characters)
10;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) 10;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters)
11;; Vinicius Jose Latorre <viniciusjl@ig.com.br> 11;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
12;; Keywords: wp, print, PostScript 12;; Keywords: wp, print, PostScript
13;; Time-stamp: <2005/06/27 00:57:22 vinicius> 13;; Time-stamp: <2006/11/28 18:27:15 vinicius>
14;; Version: 6.6.7 14;; Version: 6.7
15;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre 15;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
16 16
17(defconst ps-print-version "6.6.7" 17(defconst ps-print-version "6.7"
18 "ps-print.el, v 6.6.7 <2005/06/27 vinicius> 18 "ps-print.el, v 6.7 <2006/11/28 vinicius>
19 19
20Vinicius's last change version -- this file may have been edited as part of 20Vinicius's last change version -- this file may have been edited as part of
21Emacs without changes to the version number. When reporting bugs, please also 21Emacs without changes to the version number. When reporting bugs, please also
@@ -1459,31 +1459,11 @@ Please send all bug fixes and enhancements to
1459 (error "`ps-print' doesn't support Epoch")) 1459 (error "`ps-print' doesn't support Epoch"))
1460 (t 1460 (t
1461 (unless (and (boundp 'emacs-major-version) 1461 (unless (and (boundp 'emacs-major-version)
1462 (> emacs-major-version 19)) 1462 (> emacs-major-version 22))
1463 (error "`ps-print' only supports Emacs 20 and higher")) 1463 (error "`ps-print' only supports Emacs 23 and higher"))
1464 'emacs)))) 1464 'emacs))))
1465 1465
1466 1466
1467;; For Emacs 20.2 and the earlier version.
1468
1469(or (fboundp 'set-buffer-multibyte)
1470 (defun set-buffer-multibyte (arg)
1471 (setq enable-multibyte-characters arg)))
1472
1473(or (fboundp 'string-as-unibyte)
1474 (defun string-as-unibyte (arg) arg))
1475
1476(or (fboundp 'string-as-multibyte)
1477 (defun string-as-multibyte (arg) arg))
1478
1479(or (fboundp 'char-charset)
1480 (defun char-charset (arg) 'ascii))
1481
1482(or (fboundp 'charset-after)
1483 (defun charset-after (&optional arg)
1484 (char-charset (char-after arg))))
1485
1486
1487;; GNU Emacs 1467;; GNU Emacs
1488(or (fboundp 'line-beginning-position) 1468(or (fboundp 'line-beginning-position)
1489 (defun line-beginning-position (&optional n) 1469 (defun line-beginning-position (&optional n)
@@ -1545,7 +1525,7 @@ Please send all bug fixes and enhancements to
1545 (defun ps-face-background-name (face) 1525 (defun ps-face-background-name (face)
1546 (ps-xemacs-color-name (face-background face))) 1526 (ps-xemacs-color-name (face-background face)))
1547 ) 1527 )
1548 (t ; emacs 1528 (t ; emacs 23 or higher
1549 (defvar mark-active nil) 1529 (defvar mark-active nil)
1550 (defun ps-mark-active-p () 1530 (defun ps-mark-active-p ()
1551 mark-active) 1531 mark-active)