[Emacs-diffs] Changes to emacs/lisp/speedbar.el

[Luc Teirlinck]

Index: emacs/lisp/speedbar.el
diff -c emacs/lisp/speedbar.el:1.57 emacs/lisp/speedbar.el:1.58
*** emacs/lisp/speedbar.el:1.57 Sun Aug 22 17:03:42 2004
--- emacs/lisp/speedbar.el      Sun Aug 22 21:08:47 2004
***************
*** 665,676 ****
    "*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'")
  
  ;; this is dangerous to customize, because the defaults will probably
  ;; change in the future.
--- 665,672 ----
    "*Regexp matching files we don't want displayed in a speedbar buffer.
  It is generated from the variable `completion-ignored-extensions'")
  
! ;; 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,703 ****
--- 694,705 ----
         (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