[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.160 emacs/lisp/ps-print.el:1.161
*** emacs/lisp/ps-print.el:1.160        Wed Jun 29 01:09:32 2005
--- emacs/lisp/ps-print.el      Mon Jul  4 02:23:37 2005
***************
*** 1562,1574 ****
  ;;; Interface to the command system
  
  (defgroup postscript nil
!   "PostScript Group"
    :tag "PostScript"
    :version "20"
    :group 'emacs)
  
  (defgroup ps-print nil
!   "PostScript generator for Emacs"
    :link '(emacs-library-link :tag "Source Lisp File" "ps-print.el")
    :prefix "ps-"
    :version "20"
--- 1562,1574 ----
  ;;; Interface to the command system
  
  (defgroup postscript nil
!   "PostScript Group."
    :tag "PostScript"
    :version "20"
    :group 'emacs)
  
  (defgroup ps-print nil
!   "PostScript generator for Emacs."
    :link '(emacs-library-link :tag "Source Lisp File" "ps-print.el")
    :prefix "ps-"
    :version "20"
***************
*** 1576,1617 ****
    :group 'postscript)
  
  (defgroup ps-print-horizontal nil
!   "Horizontal page layout"
    :prefix "ps-"
    :tag "Horizontal"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-vertical nil
!   "Vertical page layout"
    :prefix "ps-"
    :tag "Vertical"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-headers nil
!   "Headers & footers layout"
    :prefix "ps-"
    :tag "Header & Footer"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-font nil
!   "Fonts customization"
    :prefix "ps-"
    :tag "Font"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-color nil
!   "Color customization"
    :prefix "ps-"
    :tag "Color"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-face nil
!   "Faces customization"
    :prefix "ps-"
    :tag "PS Faces"
    :version "20"
--- 1576,1617 ----
    :group 'postscript)
  
  (defgroup ps-print-horizontal nil
!   "Horizontal page layout."
    :prefix "ps-"
    :tag "Horizontal"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-vertical nil
!   "Vertical page layout."
    :prefix "ps-"
    :tag "Vertical"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-headers nil
!   "Headers & footers layout."
    :prefix "ps-"
    :tag "Header & Footer"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-font nil
!   "Fonts customization."
    :prefix "ps-"
    :tag "Font"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-color nil
!   "Color customization."
    :prefix "ps-"
    :tag "Color"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-face nil
!   "Faces customization."
    :prefix "ps-"
    :tag "PS Faces"
    :version "20"
***************
*** 1619,1660 ****
    :group 'faces)
  
  (defgroup ps-print-n-up nil
!   "N-up customization"
    :prefix "ps-"
    :tag "N-Up"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-zebra nil
!   "Zebra customization"
    :prefix "ps-"
    :tag "Zebra"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-background nil
!   "Background customization"
    :prefix "ps-"
    :tag "Background"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-printer '((lpr custom-group))
!   "Printer customization"
    :prefix "ps-"
    :tag "Printer"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-page nil
!   "Page customization"
    :prefix "ps-"
    :tag "Page"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-miscellany nil
!   "Miscellany customization"
    :prefix "ps-"
    :tag "Miscellany"
    :version "20"
--- 1619,1660 ----
    :group 'faces)
  
  (defgroup ps-print-n-up nil
!   "N-up customization."
    :prefix "ps-"
    :tag "N-Up"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-zebra nil
!   "Zebra customization."
    :prefix "ps-"
    :tag "Zebra"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-background nil
!   "Background customization."
    :prefix "ps-"
    :tag "Background"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-printer '((lpr custom-group))
!   "Printer customization."
    :prefix "ps-"
    :tag "Printer"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-page nil
!   "Page customization."
    :prefix "ps-"
    :tag "Page"
    :version "20"
    :group 'ps-print)
  
  (defgroup ps-print-miscellany nil
!   "Miscellany customization."
    :prefix "ps-"
    :tag "Miscellany"
    :version "20"
***************
*** 3760,3766 ****
                "(setq ")
              key
              (if (> col len)
!                 (make-string (- col len) ?\ )
                " ")
              (ps-value-string val))))
     (t "")
--- 3760,3766 ----
                "(setq ")
              key
              (if (> col len)
!                 (make-string (- col len) ?\s)
                " ")
              (ps-value-string val))))
     (t "")