Mercurial > emacs
changeset 65137:4377043d399d
Move the `defvar's to the top level.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 26 Aug 2005 10:48:00 +0000 |
| parents | d66de68f18cb |
| children | d00e904ef7c4 |
| files | lisp/info-xref.el lisp/obsolete/bg-mouse.el lisp/obsolete/sun-curs.el lisp/obsolete/swedish.el |
| diffstat | 4 files changed, 37 insertions(+), 35 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info-xref.el Fri Aug 26 10:46:50 2005 +0000 +++ b/lisp/info-xref.el Fri Aug 26 10:48:00 2005 +0000 @@ -138,27 +138,25 @@ ;; Some dynamic variables are used to share information with sub-functions ;; below. ;; -(eval-when-compile - ;; - ;; info-xref-filename-header - a heading message for the current top-level - ;; filename, or "" when it's been printed. - ;; - (defvar info-xref-xfile-alist) - ;; - ;; info-xref-good - count of good cross references. - ;; - (defvar info-xref-good) - ;; - ;; info-xref-bad - count of bad cross references. - ;; - (defvar info-xref-bad) - ;; - ;; info-xref-xfile-alist - indexed by "(foo)" with value nil or t according - ;; to whether "(foo)" exists or not. This is used to suppress duplicate - ;; messages about foo not being available. (Duplicates within one - ;; top-level file that is.) - ;; - (defvar info-xref-filename-heading)) +;; info-xref-filename-header - a heading message for the current top-level +;; filename, or "" when it's been printed. +;; +(defvar info-xref-xfile-alist) +;; +;; info-xref-good - count of good cross references. +;; +(defvar info-xref-good) +;; +;; info-xref-bad - count of bad cross references. +;; +(defvar info-xref-bad) +;; +;; info-xref-xfile-alist - indexed by "(foo)" with value nil or t according +;; to whether "(foo)" exists or not. This is used to suppress duplicate +;; messages about foo not being available. (Duplicates within one +;; top-level file that is.) +;; +(defvar info-xref-filename-heading) (defun info-xref-check-list (filename-list) "Check external references in info documents in FILENAME-LIST."
--- a/lisp/obsolete/bg-mouse.el Fri Aug 26 10:46:50 2005 +0000 +++ b/lisp/obsolete/bg-mouse.el Fri Aug 26 10:48:00 2005 +0000 @@ -50,11 +50,12 @@ ;;; semicolon screws up indenting, so use this instead (defconst semicolon ?\;) -(eval-when-compile - (defvar bg-mouse-x) (defvar bg-mouse-y) (defvar bg-cursor-window) - ;; This variable does not exist since 1991, so it's a safe bet - ;; this package is not really used anymore. Still... - (defvar mouse-map)) +(defvar bg-mouse-x) +(defvar bg-mouse-y) +(defvar bg-cursor-window) +;; This variable does not exist since 1991, so it's a safe bet +;; this package is not really used anymore. Still... +(defvar mouse-map) ;;; Defuns:
--- a/lisp/obsolete/sun-curs.el Fri Aug 26 10:46:50 2005 +0000 +++ b/lisp/obsolete/sun-curs.el Fri Aug 26 10:48:00 2005 +0000 @@ -32,11 +32,15 @@ ;;; ;;; 9-dec-86 Jeff Peck, Sun Microsystems Inc. <peck@sun.com> -(eval-when-compile - (require 'cl) - (defvar *edit-icon*) (defvar char) - ;; These are from term/sun-mouse.el - (defvar *mouse-window*) (defvar *mouse-x*) (defvar *mouse-y*) (defvar menu)) +(eval-when-compile (require 'cl)) + +(defvar *edit-icon*) +(defvar char) +;; These are from term/sun-mouse.el +(defvar *mouse-window*) +(defvar *mouse-x*) +(defvar *mouse-y*) +(defvar menu) (require 'sun-fns)
--- a/lisp/obsolete/swedish.el Fri Aug 26 10:46:50 2005 +0000 +++ b/lisp/obsolete/swedish.el Fri Aug 26 10:48:00 2005 +0000 @@ -33,10 +33,9 @@ (require 'latin-1) -(eval-when-compile - (defvar news-inews-hook) - (defvar news-group-hook-alist) - (defvar mail-send-hook)) +(defvar mail-send-hook) +(defvar news-group-hook-alist) +(defvar news-inews-hook) (defvar swedish-re "[ \t\n]\\(och\\|att\\|en\\|{r\\|\\[R\\|p}\\|P\\]\\|som\\|det\\|av\\|den\\|f|r\\|F\\\\R\\)[ \t\n.,?!:;'\")}]"