Commit b0fa9df7 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(postscript, ps-print, ps-print-horizontal, ps-print-vertical, ps-print-headers,

ps-print-font, ps-print-color, ps-print-face, ps-print-n-up, ps-print-zebra,
ps-print-background, ps-print-printer, ps-print-page, ps-print-miscellany):
Finish `defgroup' description with period.
(ps-print-quote): "?\ " -> "?\s".
parent 3c22da45
......@@ -1562,13 +1562,13 @@ Please send all bug fixes and enhancements to
;;; Interface to the command system
(defgroup postscript nil
"PostScript Group"
"PostScript Group."
:tag "PostScript"
:version "20"
:group 'emacs)
(defgroup ps-print nil
"PostScript generator for Emacs"
"PostScript generator for Emacs."
:link '(emacs-library-link :tag "Source Lisp File" "ps-print.el")
:prefix "ps-"
:version "20"
......@@ -1576,42 +1576,42 @@ Please send all bug fixes and enhancements to
:group 'postscript)
(defgroup ps-print-horizontal nil
"Horizontal page layout"
"Horizontal page layout."
:prefix "ps-"
:tag "Horizontal"
:version "20"
:group 'ps-print)
(defgroup ps-print-vertical nil
"Vertical page layout"
"Vertical page layout."
:prefix "ps-"
:tag "Vertical"
:version "20"
:group 'ps-print)
(defgroup ps-print-headers nil
"Headers & footers layout"
"Headers & footers layout."
:prefix "ps-"
:tag "Header & Footer"
:version "20"
:group 'ps-print)
(defgroup ps-print-font nil
"Fonts customization"
"Fonts customization."
:prefix "ps-"
:tag "Font"
:version "20"
:group 'ps-print)
(defgroup ps-print-color nil
"Color customization"
"Color customization."
:prefix "ps-"
:tag "Color"
:version "20"
:group 'ps-print)
(defgroup ps-print-face nil
"Faces customization"
"Faces customization."
:prefix "ps-"
:tag "PS Faces"
:version "20"
......@@ -1619,42 +1619,42 @@ Please send all bug fixes and enhancements to
:group 'faces)
(defgroup ps-print-n-up nil
"N-up customization"
"N-up customization."
:prefix "ps-"
:tag "N-Up"
:version "20"
:group 'ps-print)
(defgroup ps-print-zebra nil
"Zebra customization"
"Zebra customization."
:prefix "ps-"
:tag "Zebra"
:version "20"
:group 'ps-print)
(defgroup ps-print-background nil
"Background customization"
"Background customization."
:prefix "ps-"
:tag "Background"
:version "20"
:group 'ps-print)
(defgroup ps-print-printer '((lpr custom-group))
"Printer customization"
"Printer customization."
:prefix "ps-"
:tag "Printer"
:version "20"
:group 'ps-print)
(defgroup ps-print-page nil
"Page customization"
"Page customization."
:prefix "ps-"
:tag "Page"
:version "20"
:group 'ps-print)
(defgroup ps-print-miscellany nil
"Miscellany customization"
"Miscellany customization."
:prefix "ps-"
:tag "Miscellany"
:version "20"
......@@ -3760,7 +3760,7 @@ If `ps-prefix-quote' is nil, it's set to t after generating string."
"(setq ")
key
(if (> col len)
(make-string (- col len) ?\ )
(make-string (- col len) ?\s)
" ")
(ps-value-string val))))
(t "")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment