/[emacs]/emacs/lisp/speedbar.el
ViewVC logotype

Diff of /emacs/lisp/speedbar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.60 by schwab, Fri Oct 29 20:57:51 2004 UTC revision 1.61 by monnier, Fri Jan 28 02:20:38 2005 UTC
# Line 1  Line 1 
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
# Line 170  Line 171 
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    
# Line 201  Line 204 
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)
# Line 373  is attached to." Line 375  is attached to."
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."
# Line 3749  functions to do caching and flushing if Line 3751  functions to do caching and flushing if
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.
# Line 4359  If we have an image associated with it, Line 4361  If we have an image associated with it,
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

Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26