[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: |
Thu, 30 Nov 2006 10:03:27 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Vinicius Jose Latorre <viniciusjl> 06/11/30 10:03:25
Index: ps-print.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ps-print.el,v
retrieving revision 1.167
retrieving revision 1.168
diff -u -b -r1.167 -r1.168
--- ps-print.el 20 Sep 2006 19:59:03 -0000 1.167
+++ ps-print.el 30 Nov 2006 10:03:25 -0000 1.168
@@ -6,8 +6,8 @@
;; Author: Jim Thompson (was <address@hidden>)
;; Jacques Duthen (was <address@hidden>)
;; Vinicius Jose Latorre <address@hidden>
-;; Kenichi Handa <address@hidden> (multi-byte characters)
-;; Maintainer: Kenichi Handa <address@hidden> (multi-byte characters)
+;; Kenichi Handa <address@hidden> (multi-byte characters)
+;; 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>
@@ -1545,7 +1545,13 @@
(defun ps-face-background-name (face)
(ps-xemacs-color-name (face-background face)))
)
- (t ; emacs
+ ((<= 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 ()
mark-active)
@@ -3760,7 +3766,9 @@
"(setq ")
key
(if (> col len)
- (make-string (- col len) ?\s)
+ ;; to keep compatibility with Emacs 20 & 21:
+ ;; DO NOT REPLACE `?\ ' BY `?\s'
+ (make-string (- col len) ?\ )
" ")
(ps-value-string val))))
(t "")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/ps-print.el,v,
Vinicius Jose Latorre <=