comparison lisp/speedbar.el @ 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 (2004-08-22)
parents 85c0c238dbbf
children c36d40df2cc6
comparison
equal deleted inserted replaced
56771:f1b47174fed2 56772:87ac4f004dc4
663 ;; backup refdir lockfile 663 ;; backup refdir lockfile
664 (concat nstr "\\|#[^#]+#$\\|\\.\\.?\\'\\|\\.#")) 664 (concat nstr "\\|#[^#]+#$\\|\\.\\.?\\'\\|\\.#"))
665 "*Regexp matching files we don't want displayed in a speedbar buffer. 665 "*Regexp matching files we don't want displayed in a speedbar buffer.
666 It is generated from the variable `completion-ignored-extensions'") 666 It is generated from the variable `completion-ignored-extensions'")
667 667
668 ;; This can't be further down, since it is needed just after. 668 ;; Ugly compiler silencing trick. The real defvar comes later in this file.
669 (defvar speedbar-file-regexp 669 (defvar speedbar-file-regexp)
670 (speedbar-extension-list-to-regex speedbar-supported-extension-expressions)
671 "Regular expression matching files we know how to expand.
672 Created from `speedbar-supported-extension-expression' with the
673 function `speedbar-extension-list-to-regex'")
674 670
675 ;; this is dangerous to customize, because the defaults will probably 671 ;; this is dangerous to customize, because the defaults will probably
676 ;; change in the future. 672 ;; change in the future.
677 (defcustom speedbar-supported-extension-expressions 673 (defcustom speedbar-supported-extension-expressions
678 (append '(".[ch]\\(\\+\\+\\|pp\\|c\\|h\\|xx\\)?" ".tex\\(i\\(nfo\\)?\\)?" 674 (append '(".[ch]\\(\\+\\+\\|pp\\|c\\|h\\|xx\\)?" ".tex\\(i\\(nfo\\)?\\)?"
695 :version "21.1" 691 :version "21.1"
696 :type '(repeat (regexp :tag "Extension Regexp")) 692 :type '(repeat (regexp :tag "Extension Regexp"))
697 :set (lambda (sym val) 693 :set (lambda (sym val)
698 (setq speedbar-supported-extension-expressions val 694 (setq speedbar-supported-extension-expressions val
699 speedbar-file-regexp (speedbar-extension-list-to-regex val)))) 695 speedbar-file-regexp (speedbar-extension-list-to-regex val))))
696
697 (defvar speedbar-file-regexp
698 (speedbar-extension-list-to-regex speedbar-supported-extension-expressions)
699 "Regular expression matching files we know how to expand.
700 Created from `speedbar-supported-extension-expression' with the
701 function `speedbar-extension-list-to-regex'")
700 702
701 (defcustom speedbar-scan-subdirs nil 703 (defcustom speedbar-scan-subdirs nil
702 "*Non-nil means speedbar will check if subdirs are empty. 704 "*Non-nil means speedbar will check if subdirs are empty.
703 That way you don't have to click on them to find out. But this 705 That way you don't have to click on them to find out. But this
704 incurs extra I/O, hence it slows down directory display 706 incurs extra I/O, hence it slows down directory display