Mercurial > emacs
changeset 76264:02b8936a414a
Replace (defvar VAR nil) by (defvar VAR).
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Thu, 01 Mar 2007 22:58:42 +0000 |
| parents | 6ad212461ddf |
| children | 2af668ab629d |
| files | lisp/ChangeLog lisp/ps-print.el |
| diffstat | 2 files changed, 44 insertions(+), 44 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Mar 01 22:28:14 2007 +0000 +++ b/lisp/ChangeLog Thu Mar 01 22:58:42 2007 +0000 @@ -5,8 +5,8 @@ 2007-03-01 Vinicius Jose Latorre <viniciusjl@ig.com.br> - * ps-print.el (ps-setup): Print which Emacsen is running ps-print - package. + * ps-print.el: Replace (defvar VAR nil) by (defvar VAR). + (ps-setup): Print which Emacsen is running ps-print package. 2007-03-01 Stuart Herring <herring@lanl.gov> (tiny change)
--- a/lisp/ps-print.el Thu Mar 01 22:28:14 2007 +0000 +++ b/lisp/ps-print.el Thu Mar 01 22:58:42 2007 +0000 @@ -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-output-head nil) -(defvar ps-output-tail nil) +(defvar ps-spool-buffer) + +(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-background-pages nil) -(defvar ps-background-all-pages nil) +(defvar ps-n-up-on) + +(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-zebra-stripe-full-p 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) (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-print-width nil) -(defvar ps-print-height nil) - -(defvar ps-height-remaining nil) -(defvar ps-width-remaining nil) - -(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-landscape-page-height) + +(defvar ps-print-width) +(defvar ps-print-height) + +(defvar ps-height-remaining) +(defvar ps-width-remaining) + +(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)))