# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1093208927 0
# Node ID 87ac4f004dc491f28116b28f8c2354829eb164ef
# Parent  f1b47174fed2df1f40f5e37496d7f2899b71c04b
(speedbar-file-regexp): Give it a phony defvar before and a real
defvar after `speedbar-supported-extension-expressions'.  This is to
silence the compiler without breaking bootstrapping.

diff -r f1b47174fed2 -r 87ac4f004dc4 lisp/speedbar.el
--- a/lisp/speedbar.el	Sun Aug 22 17:46:31 2004 +0000
+++ b/lisp/speedbar.el	Sun Aug 22 21:08:47 2004 +0000
@@ -665,12 +665,8 @@
   "*Regexp matching files we don't want displayed in a speedbar buffer.
 It is generated from the variable `completion-ignored-extensions'")
 
-;; This can't be further down, since it is needed just after.
-(defvar speedbar-file-regexp
-  (speedbar-extension-list-to-regex speedbar-supported-extension-expressions)
-  "Regular expression matching files we know how to expand.
-Created from `speedbar-supported-extension-expression' with the
-function `speedbar-extension-list-to-regex'")
+;; Ugly compiler silencing trick.  The real defvar comes later in this file.
+(defvar speedbar-file-regexp)
 
 ;; this is dangerous to customize, because the defaults will probably
 ;; change in the future.
@@ -698,6 +694,12 @@
 	 (setq speedbar-supported-extension-expressions val
 	       speedbar-file-regexp (speedbar-extension-list-to-regex val))))
 
+(defvar speedbar-file-regexp
+  (speedbar-extension-list-to-regex speedbar-supported-extension-expressions)
+  "Regular expression matching files we know how to expand.
+Created from `speedbar-supported-extension-expression' with the
+function `speedbar-extension-list-to-regex'")
+
 (defcustom speedbar-scan-subdirs nil
   "*Non-nil means speedbar will check if subdirs are empty.
 That way you don't have to click on them to find out.  But this