[Emacs-diffs] Changes to emacs/lisp/ps-print.el

[Juanma Barranquero]

Index: emacs/lisp/ps-print.el
diff -c emacs/lisp/ps-print.el:1.162 emacs/lisp/ps-print.el:1.163
*** emacs/lisp/ps-print.el:1.162        Mon Jul  4 23:08:56 2005
--- emacs/lisp/ps-print.el      Wed Jul 20 21:33:29 2005
***************
*** 2269,2275 ****
  FILENAME is ignored, if it doesn't exist or is read protected.
  
  X and Y are relative positions on paper to put the image.
! If X and Y are nil, the image is centralized on paper.
  
  XSCALE and YSCALE are scale factor to be applied to image before printing.
  If XSCALE and YSCALE are nil, the original size is used.
--- 2269,2275 ----
  FILENAME is ignored, if it doesn't exist or is read protected.
  
  X and Y are relative positions on paper to put the image.
! If X and Y are nil, the image is centered on paper.
  
  XSCALE and YSCALE are scale factor to be applied to image before printing.
  If XSCALE and YSCALE are nil, the original size is used.
***************
*** 3031,3037 ****
                Where RED, GREEN and BLUE are reals between 0.0 (no color) and
                1.0 (full color).
  
! Any other value is ignored and it's used the black color.
  
  It's used only when `ps-print-color-p' is non-nil."
    :type '(choice :menu-tag "Default Foreground Gray/Color"
--- 3031,3037 ----
                Where RED, GREEN and BLUE are reals between 0.0 (no color) and
                1.0 (full color).
  
! Any other value is ignored and black will be used.
  
  It's used only when `ps-print-color-p' is non-nil."
    :type '(choice :menu-tag "Default Foreground Gray/Color"
***************
*** 3071,3077 ****
                Where RED, GREEN and BLUE are reals between 0.0 (no color) and
                1.0 (full color).
  
! Any other value is ignored and it's used the white color.
  
  It's used only when `ps-print-color-p' is non-nil.
  
--- 3071,3077 ----
                Where RED, GREEN and BLUE are reals between 0.0 (no color) and
                1.0 (full color).
  
! Any other value is ignored and white will be used.
  
  It's used only when `ps-print-color-p' is non-nil.
  
***************
*** 4137,4146 ****
  If optional MERGE-P is non-nil, extensions in FACE-EXTENSION-LIST are merged
  with face extension in ALIST-SYM; otherwise, overrides.
  
! If optional ALIST-SYM is nil, it's used `ps-print-face-extension-alist';
  otherwise, it should be an alist symbol.
  
! The elements in FACE-EXTENSION-LIST is like those for `ps-extend-face'.
  
  See `ps-extend-face' for documentation."
    (while face-extension-list
--- 4137,4146 ----
  If optional MERGE-P is non-nil, extensions in FACE-EXTENSION-LIST are merged
  with face extension in ALIST-SYM; otherwise, overrides.
  
! If optional ALIST-SYM is nil, `ps-print-face-extension-alist' is used;
  otherwise, it should be an alist symbol.
  
! The elements in FACE-EXTENSION-LIST are like those for `ps-extend-face'.
  
  See `ps-extend-face' for documentation."
    (while face-extension-list
***************
*** 4155,4161 ****
  If optional MERGE-P is non-nil, extensions in FACE-EXTENSION list are merged
  with face extensions in ALIST-SYM; otherwise, overrides.
  
! If optional ALIST-SYM is nil, it's used `ps-print-face-extension-alist';
  otherwise, it should be an alist symbol.
  
  The elements of FACE-EXTENSION list have the form:
--- 4155,4161 ----
  If optional MERGE-P is non-nil, extensions in FACE-EXTENSION list are merged
  with face extensions in ALIST-SYM; otherwise, overrides.
  
! If optional ALIST-SYM is nil, `ps-print-face-extension-alist' is used;
  otherwise, it should be an alist symbol.
  
  The elements of FACE-EXTENSION list have the form:
***************
*** 5004,5010 ****
                             "PrintHeight 2 div BottomMargin add")
            "\nBeginBackImage\n")
           (ps-insert-file image-file)
!          ;; coordinate adjustment to centralize image
           ;; around x and y position
           (let ((box (ps-get-boundingbox)))
             (save-excursion
--- 5004,5010 ----
                             "PrintHeight 2 div BottomMargin add")
            "\nBeginBackImage\n")
           (ps-insert-file image-file)
!          ;; coordinate adjustment to center image
           ;; around x and y position
           (let ((box (ps-get-boundingbox)))
             (save-excursion