summaryrefslogtreecommitdiff
path: root/lisp/ps-print.el
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2005-07-04 02:23:37 +0000
committerJuanma Barranquero <lekktu@gmail.com>2005-07-04 02:23:37 +0000
commitb0fa9df702075f05281598099d3d76325ae12135 (patch)
tree99f68725385985cf0274bd64a24dab104fe9f722 /lisp/ps-print.el
parent3c22da45d246e524830629fa10d376dd529ecf0e (diff)
downloademacs-b0fa9df702075f05281598099d3d76325ae12135.tar.gz
(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".
Diffstat (limited to 'lisp/ps-print.el')
-rw-r--r--lisp/ps-print.el30
1 files changed, 15 insertions, 15 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 86d65d35401..79215f2a8ad 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -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 "")