Mercurial > emacs
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