Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
74326:43573f264b7f 74327:78c65b1a07f6
4 ;; 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. 4 ;; 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
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: <2005/06/27 00:57:22 vinicius>
14 ;; Version: 6.6.7 14 ;; Version: 6.6.7
15 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre 15 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
1543 (defun ps-face-foreground-name (face) 1543 (defun ps-face-foreground-name (face)
1544 (ps-xemacs-color-name (face-foreground face))) 1544 (ps-xemacs-color-name (face-foreground face)))
1545 (defun ps-face-background-name (face) 1545 (defun ps-face-background-name (face)
1546 (ps-xemacs-color-name (face-background face))) 1546 (ps-xemacs-color-name (face-background face)))
1547 ) 1547 )
1548 (t ; emacs 1548 ((<= emacs-major-version 21) ; emacs 20 & 21
1549 (defvar mark-active nil)
1550 (defun ps-mark-active-p ()
1551 mark-active)
1552 (defalias 'ps-face-foreground-name 'face-foreground)
1553 (defalias 'ps-face-background-name 'face-background))
1554 (t ; emacs 22 or higher
1549 (defvar mark-active nil) 1555 (defvar mark-active nil)
1550 (defun ps-mark-active-p () 1556 (defun ps-mark-active-p ()
1551 mark-active) 1557 mark-active)
1552 (defun ps-face-foreground-name (face) 1558 (defun ps-face-foreground-name (face)
1553 (face-foreground face nil t)) 1559 (face-foreground face nil t))
3758 " " 3764 " "
3759 (setq ps-prefix-quote t) 3765 (setq ps-prefix-quote t)
3760 "(setq ") 3766 "(setq ")
3761 key 3767 key
3762 (if (> col len) 3768 (if (> col len)
3763 (make-string (- col len) ?\s) 3769 ;; to keep compatibility with Emacs 20 & 21:
3770 ;; DO NOT REPLACE `?\ ' BY `?\s'
3771 (make-string (- col len) ?\ )
3764 " ") 3772 " ")
3765 (ps-value-string val)))) 3773 (ps-value-string val))))
3766 (t "") 3774 (t "")
3767 )) 3775 ))
3768 3776