procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Replace (defvar VAR nil) by (defvar VAR).

Browse source
This commit is contained in:
Vinicius Jose Latorre 2007-03-01 22:58:42 +00:00
parent 3a5c4810ac
commit ba56482508
2 changed files with 38 additions and 38 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

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

72
lisp/ps-print.el
View file

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