comparison lisp/ps-print.el @ 78509:3db577f2c6a5

ps-print-color-p fix

78508:5b1c6b581bbe

		Where RED, GREEN and BLUE are reals between 0.0 (no color) and
		1.0 (full color).

Any other value is ignored and black color will be used.

It's used only when `ps-print-color-p' is non-nil."
  :type '(choice :menu-tag "Default Foreground Gray/Color"
		 :tag "Default Foreground Gray/Color"
		 (const :tag "Session Foreground" t)
		 (const :tag "Frame Foreground" frame-parameter)
		 (number :tag "Gray Scale" :value 0.0)

		Where RED, GREEN and BLUE are reals between 0.0 (no color) and
		1.0 (full color).

Any other value is ignored and white color will be used.

It's used only when `ps-print-color-p' is non-nil.

See also `ps-use-face-background'."
  :type '(choice :menu-tag "Default Background Gray/Color"
		 :tag "Default Background Gray/Color"
		 (const :tag "Session Background" t)

	ps-print-color-scale  (if ps-color-p
				  (float (car (ps-color-values "white")))
				1.0)
	ps-default-background (ps-rgb-color
			       (cond
				((or (not (eq ps-print-color-p t))
				     (eq genfunc 'ps-generate-postscript))
				 nil)
				((eq ps-default-bg 'frame-parameter)
				 (ps-frame-parameter nil 'background-color))
				((eq ps-default-bg t)

				 ps-default-bg))
			       "unspecified-bg"
			       1.0)
	ps-default-foreground (ps-rgb-color
			       (cond
				((or (not (eq ps-print-color-p t))
				     (eq genfunc 'ps-generate-postscript))
				 nil)
				((eq ps-default-fg 'frame-parameter)
				 (ps-frame-parameter nil 'foreground-color))
				((eq ps-default-fg t)
				 (ps-face-foreground-name 'default))
				(t
				 ps-default-fg))
			       "unspecified-fg"
			       0.0)
	ps-default-color      (and (eq ps-print-color-p t)
				   ps-default-foreground)
	ps-current-color      ps-default-color)
  ;; initialize page dimensions
  (ps-get-page-dimensions)
  ;; final check

78509:3db577f2c6a5

		Where RED, GREEN and BLUE are reals between 0.0 (no color) and
		1.0 (full color).

Any other value is ignored and black color will be used.

This variable is used only when `ps-print-color-p' (which see) is neither nil
nor black-white."
  :type '(choice :menu-tag "Default Foreground Gray/Color"
		 :tag "Default Foreground Gray/Color"
		 (const :tag "Session Foreground" t)
		 (const :tag "Frame Foreground" frame-parameter)
		 (number :tag "Gray Scale" :value 0.0)

		Where RED, GREEN and BLUE are reals between 0.0 (no color) and
		1.0 (full color).

Any other value is ignored and white color will be used.

This variable is used only when `ps-print-color-p' (which see) is neither nil
nor black-white.

See also `ps-use-face-background'."
  :type '(choice :menu-tag "Default Background Gray/Color"
		 :tag "Default Background Gray/Color"
		 (const :tag "Session Background" t)

	ps-print-color-scale  (if ps-color-p
				  (float (car (ps-color-values "white")))
				1.0)
	ps-default-background (ps-rgb-color
			       (cond
				((or (member ps-print-color-p
					     '(nil back-white))
				     (eq genfunc 'ps-generate-postscript))
				 nil)
				((eq ps-default-bg 'frame-parameter)
				 (ps-frame-parameter nil 'background-color))
				((eq ps-default-bg t)

				 ps-default-bg))
			       "unspecified-bg"
			       1.0)
	ps-default-foreground (ps-rgb-color
			       (cond
				((or (member ps-print-color-p
					     '(nil back-white))
				     (eq genfunc 'ps-generate-postscript))
				 nil)
				((eq ps-default-fg 'frame-parameter)
				 (ps-frame-parameter nil 'foreground-color))
				((eq ps-default-fg t)
				 (ps-face-foreground-name 'default))
				(t
				 ps-default-fg))
			       "unspecified-fg"
			       0.0)
	ps-default-color      (and (not (member ps-print-color-p
						'(nil back-white)))
				   ps-default-foreground)
	ps-current-color      ps-default-color)
  ;; initialize page dimensions
  (ps-get-page-dimensions)
  ;; final check