1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00

Move the `defvar's to the top level.

This commit is contained in:
Juanma Barranquero 2005-08-26 10:51:12 +00:00
parent 735d702631
commit 623f14653d
5 changed files with 45 additions and 36 deletions

View File

@ -5,6 +5,13 @@
2005-08-26 Juanma Barranquero <lekktu@gmail.com>
* emerge.el:
* ibuffer.el:
* info-xref.el:
* obsolete/bg-mouse.el:
* obsolete/sun-curs.el:
* obsolete/swedish.el: Move the `defvar's to the top level.
* smerge-mode.el (smerge-refined-change): Add :group.
2005-08-25 Stefan Monnier <monnier@iro.umontreal.ca>
@ -10185,7 +10192,7 @@
2005-01-21 Ren,Ai(B Kyllingstad <listmailxemacs@kyllingstad.com>
* pcomplete.el: define pcomplete-read-event instead of read-event,
* pcomplete.el: Define pcomplete-read-event instead of read-event,
since it's not a complete read-event implementation
2005-01-20 Jay Belanger <belanger@truman.edu>

View File

@ -138,27 +138,25 @@ should open up the purported top file and see what subfiles it says."
;; 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."

View File

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

View File

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

View File

@ -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.,?!:;'\")}]"