emacs-diffs
[Top][All Lists]
Advanced

[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 "")




reply via email to

[Prev in Thread] Current Thread [Next in Thread]