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

[Vinicius Jose Latorre]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Vinicius Jose Latorre <viniciusjl>      07/03/01 22:58:42

Index: ps-print.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ps-print.el,v
retrieving revision 1.178
retrieving revision 1.179
diff -u -b -r1.178 -r1.179
--- ps-print.el 1 Mar 2007 20:02:32 -0000       1.178
+++ ps-print.el 1 Mar 2007 22:58:42 -0000       1.179
@@ -3976,12 +3976,12 @@
 
 ;; Start Editing Here:
 
-(defvar ps-source-buffer nil)
+(defvar ps-source-buffer)
 (defvar ps-spool-buffer-name "*PostScript*")
-(defvar ps-spool-buffer nil)
+(defvar ps-spool-buffer)
 
-(defvar ps-output-head nil)
-(defvar ps-output-tail nil)
+(defvar ps-output-head)
+(defvar ps-output-tail)
 
 (defvar ps-page-postscript 0)          ; page number
 (defvar ps-page-order 0)               ; PostScript page counter
@@ -3991,29 +3991,29 @@
 (defvar ps-page-n-up 0)                        ; n-up counter
 (defvar ps-lines-printed 0)            ; total lines printed
 (defvar ps-showline-count 1)           ; line number counter
-(defvar ps-first-page nil)
-(defvar ps-last-page nil)
+(defvar ps-first-page)
+(defvar ps-last-page)
 (defvar ps-print-page-p t)
 
 (defvar ps-control-or-escape-regexp nil)
-(defvar ps-n-up-on nil)
+(defvar ps-n-up-on)
 
-(defvar ps-background-pages nil)
-(defvar ps-background-all-pages nil)
+(defvar ps-background-pages)
+(defvar ps-background-all-pages)
 (defvar ps-background-text-count 0)
 (defvar ps-background-image-count 0)
 
 (defvar ps-current-font 0)
-(defvar ps-default-foreground nil)
-(defvar ps-default-background nil)
-(defvar ps-default-color nil)
-(defvar ps-current-color nil)
-(defvar ps-current-bg nil)
+(defvar ps-default-foreground)
+(defvar ps-default-background)
+(defvar ps-default-color)
+(defvar ps-current-color)
+(defvar ps-current-bg)
 
-(defvar ps-zebra-stripe-full-p nil)
+(defvar ps-zebra-stripe-full-p)
 (defvar ps-razchunk 0)
 
-(defvar ps-color-p nil)
+(defvar ps-color-p)
 (defvar ps-color-format
   (if (featurep 'xemacs)
       ;; XEmacs will have to make do with %s (princ) for floats.
@@ -4042,20 +4042,20 @@
 (defmacro ps-page-dimensions-get-height (dims) `(nth 1 ,dims))
 (defmacro ps-page-dimensions-get-media  (dims) `(nth 2 ,dims))
 
-(defvar ps-landscape-page-height nil)
+(defvar ps-landscape-page-height)
 
-(defvar ps-print-width nil)
-(defvar ps-print-height nil)
+(defvar ps-print-width)
+(defvar ps-print-height)
 
-(defvar ps-height-remaining nil)
-(defvar ps-width-remaining nil)
+(defvar ps-height-remaining)
+(defvar ps-width-remaining)
 
-(defvar ps-font-size-internal nil)
-(defvar ps-header-font-size-internal nil)
-(defvar ps-header-title-font-size-internal nil)
-(defvar ps-footer-font-size-internal nil)
-(defvar ps-line-spacing-internal nil)
-(defvar ps-paragraph-spacing-internal nil)
+(defvar ps-font-size-internal)
+(defvar ps-header-font-size-internal)
+(defvar ps-header-title-font-size-internal)
+(defvar ps-footer-font-size-internal)
+(defvar ps-line-spacing-internal)
+(defvar ps-paragraph-spacing-internal)
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -4252,10 +4252,10 @@
        message-log-max))
 
 
-(defvar ps-print-hook nil)
-(defvar ps-print-begin-sheet-hook nil)
-(defvar ps-print-begin-page-hook nil)
-(defvar ps-print-begin-column-hook nil)
+(defvar ps-print-hook)
+(defvar ps-print-begin-sheet-hook)
+(defvar ps-print-begin-page-hook)
+(defvar ps-print-begin-column-hook)
 
 
 (defun ps-print-without-faces (from to &optional filename region-p)
@@ -4832,10 +4832,10 @@
            content (cdr content)))
     (nreverse str)))
 
-(defvar ps-lh-cache nil)
-(defvar ps-rh-cache nil)
-(defvar ps-lf-cache nil)
-(defvar ps-rf-cache nil)
+(defvar ps-lh-cache)
+(defvar ps-rh-cache)
+(defvar ps-lf-cache)
+(defvar ps-rf-cache)
 
 (defun ps-header-footer-string ()
   (and ps-print-header
@@ -6128,7 +6128,7 @@
                         (/ q-done (/ q-todo 100)))
                       ))))))
 
-(defvar ps-last-font nil)
+(defvar ps-last-font)
 
 (defun ps-set-font (font)
   (setq ps-last-font (format "f%d" (setq ps-current-font font)))