[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/speedbar.el
From: |
Luc Teirlinck |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/speedbar.el |
Date: |
Sun, 22 Aug 2004 17:13:19 -0400 |
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