665 |
"*Regexp matching files we don't want displayed in a speedbar buffer. |
"*Regexp matching files we don't want displayed in a speedbar buffer. |
666 |
It is generated from the variable `completion-ignored-extensions'") |
It is generated from the variable `completion-ignored-extensions'") |
667 |
|
|
668 |
|
;; This can't be further down, since it is needed just after. |
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 |
|
|
675 |
;; this is dangerous to customize, because the defaults will probably |
;; this is dangerous to customize, because the defaults will probably |
676 |
;; change in the future. |
;; change in the future. |
677 |
(defcustom speedbar-supported-extension-expressions |
(defcustom speedbar-supported-extension-expressions |
707 |
:type 'boolean |
:type 'boolean |
708 |
:version 21.4) |
:version 21.4) |
709 |
|
|
|
(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'") |
|
|
|
|
710 |
(defun speedbar-add-supported-extension (extension) |
(defun speedbar-add-supported-extension (extension) |
711 |
"Add EXTENSION as a new supported extension for speedbar tagging. |
"Add EXTENSION as a new supported extension for speedbar tagging. |
712 |
This should start with a `.' if it is not a complete file name, and |
This should start with a `.' if it is not a complete file name, and |
1296 |
(toggle-read-only 1) |
(toggle-read-only 1) |
1297 |
(speedbar-set-mode-line-format) |
(speedbar-set-mode-line-format) |
1298 |
(if speedbar-xemacsp |
(if speedbar-xemacsp |
1299 |
(set (make-local-variable 'mouse-motion-handler) |
(with-no-warnings |
1300 |
'speedbar-track-mouse-xemacs) |
(set (make-local-variable 'mouse-motion-handler) |
1301 |
|
'speedbar-track-mouse-xemacs)) |
1302 |
(if speedbar-track-mouse-flag |
(if speedbar-track-mouse-flag |
1303 |
(set (make-local-variable 'track-mouse) t)) ;this could be messy. |
(set (make-local-variable 'track-mouse) t)) ;this could be messy. |
1304 |
(setq auto-show-mode nil)) ;no auto-show for Emacs |
(setq auto-show-mode nil)) ;no auto-show for Emacs |
1347 |
frame and window to be the currently active frame and window." |
frame and window to be the currently active frame and window." |
1348 |
(if (and (frame-live-p speedbar-frame) |
(if (and (frame-live-p speedbar-frame) |
1349 |
(or (not speedbar-xemacsp) |
(or (not speedbar-xemacsp) |
1350 |
(specifier-instance has-modeline-p))) |
(with-no-warnings |
1351 |
|
(specifier-instance has-modeline-p)))) |
1352 |
(save-excursion |
(save-excursion |
1353 |
(set-buffer speedbar-buffer) |
(set-buffer speedbar-buffer) |
1354 |
(let* ((w (or (speedbar-frame-width) 20)) |
(let* ((w (or (speedbar-frame-width) 20)) |
1549 |
;; This gets the cursor where the user can see it. |
;; This gets the cursor where the user can see it. |
1550 |
(if (not (bolp)) (forward-char -1)) |
(if (not (bolp)) (forward-char -1)) |
1551 |
(sit-for 0) |
(sit-for 0) |
1552 |
(if (< emacs-major-version 20) |
(mouse-major-mode-menu e nil))) |
|
(mouse-major-mode-menu e) |
|
|
(mouse-major-mode-menu e nil)))) |
|
1553 |
|
|
1554 |
(defun speedbar-hack-buffer-menu (e) |
(defun speedbar-hack-buffer-menu (e) |
1555 |
"Control mouse 1 is buffer menu. |
"Control mouse 1 is buffer menu. |