From ba5648250871254be7dbcfe334b98f1fe7f26a44 Mon Sep 17 00:00:00 2001 From: Vinicius Jose Latorre Date: Thu, 1 Mar 2007 22:58:42 +0000 Subject: [PATCH] Replace (defvar VAR nil) by (defvar VAR). --- lisp/ChangeLog | 4 +-- lisp/ps-print.el | 72 ++++++++++++++++++++++++------------------------ 2 files changed, 38 insertions(+), 38 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 28eb674b651..c5ae523cf96 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -5,8 +5,8 @@ 2007-03-01 Vinicius Jose Latorre - * 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 (tiny change) diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 4762f5173c3..2e1fffa8b15 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -3976,12 +3976,12 @@ Note: No major/minor-mode is activated and no local variables are evaluated for ;; 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 @@ Note: No major/minor-mode is activated and no local variables are evaluated for (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 @@ This is in units of points (1/72 inch).") (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 @@ If EXTENSION is any other symbol, it is ignored." 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 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th 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 @@ XSTART YSTART are the relative position for the first page in a sheet.") (/ 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))) -- 2.39.2