mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-30 11:09:23 +00:00
Code Issues Releases Activity

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

Browse Source 
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".
This commit is contained in:
Juanma Barranquero 2005-07-04 02:23:37 +00:00
parent 3c22da45d2
commit b0fa9df702
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lisp/ps-print.el
View File

@ -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 "")