Mercurial > emacs

diff lisp/ps-print.el @ 74327:78c65b1a07f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix maintainer email. Emacs 20/21 compatibility.
author Vinicius Jose Latorre <viniciusjl@ig.com.br>
date Thu, 30 Nov 2006 10:03:25 +0000
parents 575850f5bd53
children b51283822ec9
line wrap: on
line diff
--- a/lisp/ps-print.el	Thu Nov 30 09:18:25 2006 +0000
+++ b/lisp/ps-print.el	Thu Nov 30 10:03:25 2006 +0000
@@ -6,8 +6,8 @@
 ;; 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>
@@ -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 "")