1 |
;;; speedbar.el --- quick access to files and tags in a frame |
;;; speedbar.el --- quick access to files and tags in a frame |
2 |
|
|
3 |
;;; Copyright (C) 1996, 97, 98, 99, 2000, 01 Free Software Foundation |
;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2005 |
4 |
|
;; Free Software Foundation |
5 |
|
|
6 |
;; Author: Eric M. Ludlam <zappo@gnu.org> |
;; Author: Eric M. Ludlam <zappo@gnu.org> |
7 |
;; Version: 0.11a |
;; Version: 0.11a |
171 |
;; - More functions to create buttons and options |
;; - More functions to create buttons and options |
172 |
;; - Timeout directories we haven't visited in a while. |
;; - Timeout directories we haven't visited in a while. |
173 |
|
|
174 |
|
;;; Code: |
175 |
|
|
176 |
(require 'assoc) |
(require 'assoc) |
177 |
(require 'easymenu) |
(require 'easymenu) |
178 |
|
|
204 |
:prefix "speedbar-" |
:prefix "speedbar-" |
205 |
:group 'speedbar) |
:group 'speedbar) |
206 |
|
|
|
;;; Code: |
|
207 |
(defvar speedbar-initial-expansion-mode-alist |
(defvar speedbar-initial-expansion-mode-alist |
208 |
'(("buffers" speedbar-buffer-easymenu-definition speedbar-buffers-key-map |
'(("buffers" speedbar-buffer-easymenu-definition speedbar-buffers-key-map |
209 |
speedbar-buffer-buttons) |
speedbar-buffer-buttons) |
375 |
(symbol :tag "Property") |
(symbol :tag "Property") |
376 |
(sexp :tag "Value")))) |
(sexp :tag "Value")))) |
377 |
|
|
378 |
(defcustom speedbar-use-imenu-flag (stringp (locate-library "imenu")) |
(defcustom speedbar-use-imenu-flag (fboundp 'imenu) |
379 |
"*Non-nil means use imenu for file parsing. nil to use etags. |
"*Non-nil means use imenu for file parsing. nil to use etags. |
380 |
XEmacs prior to 20.4 doesn't support imenu, therefore the default is to |
XEmacs prior to 20.4 doesn't support imenu, therefore the default is to |
381 |
use etags instead. Etags support is not as robust as imenu support." |
use etags instead. Etags support is not as robust as imenu support." |
3751 |
|
|
3752 |
nil |
nil |
3753 |
|
|
3754 |
(eval-when-compile (if (locate-library "imenu") (require 'imenu))) |
(eval-when-compile (condition-case nil (require 'imenu) (error nil))) |
3755 |
|
|
3756 |
(defun speedbar-fetch-dynamic-imenu (file) |
(defun speedbar-fetch-dynamic-imenu (file) |
3757 |
"Load FILE into a buffer, and generate tags using Imenu. |
"Load FILE into a buffer, and generate tags using Imenu. |
4361 |
;; run load-time hooks |
;; run load-time hooks |
4362 |
(run-hooks 'speedbar-load-hook) |
(run-hooks 'speedbar-load-hook) |
4363 |
|
|
4364 |
;;; arch-tag: 4477e6d1-f78c-48b9-a503-387d3c9767d5 |
;; arch-tag: 4477e6d1-f78c-48b9-a503-387d3c9767d5 |
4365 |
;;; speedbar.el ends here |
;;; speedbar.el ends here |