Show
Ignore:
Timestamp:
06/02/07 09:29:41 (1 year ago)
Author:
miyoshi
Message:

Sync up with Emacs_22_BASE.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/ps-print.el

    r4196 r4210  
    1111;;      Vinicius Jose Latorre <viniciusjl@ig.com.br> 
    1212;; Keywords: wp, print, PostScript 
    13 ;; Version: 6.7.3 
     13;; Version: 6.7.4 
    1414;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre 
    1515 
    16 (defconst ps-print-version "6.7.3" 
    17   "ps-print.el, v 6.7.3 <2007/02/06 vinicius> 
     16(defconst ps-print-version "6.7.4" 
     17  "ps-print.el, v 6.7.4 <2007/05/13 vinicius> 
    1818 
    1919Vinicius's last change version -- this file may have been edited as part of 
    …… 
    58185818 
    58195819 
    5820 (defun ps-rgb-color (color default) 
    5821   (cond ((and color (listp color) (= (length color) 3) 
    5822               (let ((cl color) 
    5823                     (ok t) e) 
    5824                 (while (and ok cl) 
    5825                   (setq e  (car cl) 
    5826                         cl (cdr cl) 
    5827                         ok (and (floatp e) (<= 0.0 e) (<= e 1.0)))) 
    5828                 ok)) 
    5829          color) 
    5830         ((and (floatp color) (<= 0.0 color) (<= color 1.0)) 
    5831          (list color color color)) 
    5832         ((stringp color) (ps-color-scale color)) 
    5833         (t (list default default default)) 
    5834         )) 
     5820(defun ps-rgb-color (color unspecified default) 
     5821  (cond 
     5822   ;; (float float float) ==> (R G B) 
     5823   ((and color (listp color) (= (length color) 3) 
     5824         (let ((cl color) 
     5825               (ok t) e) 
     5826           (while (and ok cl) 
     5827             (setq e  (car cl) 
     5828                   cl (cdr cl) 
     5829                   ok (and (floatp e) (<= 0.0 e) (<= e 1.0)))) 
     5830           ok)) 
     5831    color) 
     5832   ;; float ==> 0.0 = black .. 1.0 = white 
     5833   ((and (floatp color) (<= 0.0 color) (<= color 1.0)) 
     5834    (list color color color)) 
     5835   ;; "colorName" but different from "unspecified-[bf]g" 
     5836   ((and (stringp color) (not (string= color unspecified))) 
     5837    (ps-color-scale color)) 
     5838   ;; ok, use the default 
     5839   (t 
     5840    (list default default default)))) 
    58355841 
    58365842 
    …… 
    59145920                                (t 
    59155921                                 ps-default-bg)) 
     5922                               "unspecified-bg" 
    59165923                               1.0) 
    59175924        ps-default-foreground (ps-rgb-color 
    …… 
    59255932                                (t 
    59265933                                 ps-default-fg)) 
     5934                               "unspecified-fg" 
    59275935                               0.0) 
    59285936        ps-default-color (and (eq ps-print-color-p t) ps-default-foreground)