changeset 56772:87ac4f004dc4

(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.
author Luc Teirlinck <teirllm@auburn.edu>
date Sun, 22 Aug 2004 21:08:47 +0000
parents f1b47174fed2
children 6764baacc7a3
files lisp/speedbar.el
diffstat 1 files changed, 8 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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