[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ps-print.el,v
From: |
Vinicius Jose Latorre |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ps-print.el,v |
Date: |
Fri, 01 Dec 2006 13:10:36 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Vinicius Jose Latorre <viniciusjl> 06/12/01 13:10:34
Index: ps-print.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ps-print.el,v
retrieving revision 1.168
retrieving revision 1.169
diff -u -b -r1.168 -r1.169
--- ps-print.el 30 Nov 2006 10:03:25 -0000 1.168
+++ ps-print.el 1 Dec 2006 13:10:34 -0000 1.169
@@ -10,12 +10,12 @@
;; Maintainer: Kenichi Handa <address@hidden> (multi-byte characters)
;; Vinicius Jose Latorre <address@hidden>
;; Keywords: wp, print, PostScript
-;; Time-stamp: <2005/06/27 00:57:22 vinicius>
-;; Version: 6.6.7
+;; Time-stamp: <2006/12/01 09:59:01 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/12/01 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
@@ -1332,7 +1332,7 @@
;;
;; Faces are always treated as opaque.
;;
-;; Epoch, Lucid and Emacs 19 not supported. At all.
+;; Epoch, Lucid and Emacs 21 not supported. At all.
;;
;; Fixed-pitch fonts work better for line folding, but are not required.
;;
@@ -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 22 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,12 +1525,6 @@
(defun ps-face-background-name (face)
(ps-xemacs-color-name (face-background face)))
)
- ((<= emacs-major-version 21) ; emacs 20 & 21
- (defvar mark-active nil)
- (defun ps-mark-active-p ()
- mark-active)
- (defalias 'ps-face-foreground-name 'face-foreground)
- (defalias 'ps-face-background-name 'face-background))
(t ; emacs 22 or higher
(defvar mark-active nil)
(defun ps-mark-active-p ()
@@ -3766,9 +3740,7 @@
"(setq ")
key
(if (> col len)
- ;; to keep compatibility with Emacs 20 & 21:
- ;; DO NOT REPLACE `?\ ' BY `?\s'
- (make-string (- col len) ?\ )
+ (make-string (- col len) ?\s)
" ")
(ps-value-string val))))
(t "")
- [Emacs-diffs] Changes to emacs/lisp/ps-print.el,v,
Vinicius Jose Latorre <=