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