# HG changeset patch # User Chong Yidong # Date 1128135702 0 # Node ID 444ba3362b80b42b41a90eb2e9c82fdd6ca6b284 # Parent 375ab086d366c73bc33d4fb74424adb8d5b4b699 * speedbar.el: Re-apply arch tag. (speedbar-version): Renamed to version 1.0. Suggested by Eric M. Ludlam. Reapply two changes from Emacs CVS' version of speedbar lost during the merge: (speedbar-use-imenu-flag): Avoid unnecessary use of locate-library. (speedbar-frame-parameters): Improve customize type. diff -r 375ab086d366 -r 444ba3362b80 lisp/ChangeLog --- a/lisp/ChangeLog Fri Sep 30 22:38:16 2005 +0000 +++ b/lisp/ChangeLog Sat Oct 01 03:01:42 2005 +0000 @@ -1,3 +1,14 @@ +2005-10-01 Chong Yidong + + * speedbar.el: Re-apply arch tag. + (speedbar-version): Renamed to version 1.0. Suggested by Eric + M. Ludlam. + Reapply two changes from Emacs CVS' version of speedbar lost + during the merge: + (speedbar-use-imenu-flag): Avoid unnecessary use of + locate-library. + (speedbar-frame-parameters): Improve customize type. + 2005-09-30 Bill Wohler Moved MH-E image files from toolbar and mail directories into diff -r 375ab086d366 -r 444ba3362b80 lisp/speedbar.el --- a/lisp/speedbar.el Fri Sep 30 22:38:16 2005 +0000 +++ b/lisp/speedbar.el Sat Oct 01 03:01:42 2005 +0000 @@ -4,9 +4,9 @@ ;; Author: Eric M. Ludlam ;; Keywords: file, tags, tools -;; X-RCS: $Id: speedbar.el,v 1.247 2005/06/30 02:37:40 zappo Exp $ - -(defvar speedbar-version "1.0pre3" +;; X-RCS: $Id: speedbar.el,v 1.68 2005/09/30 13:15:10 cyd Exp $ + +(defvar speedbar-version "1.0" "The current version of speedbar.") (defvar speedbar-incompatible-version "0.14beta4" "This version of speedbar is incompatible with this version. @@ -278,7 +278,9 @@ will be initialized to the height of the frame speedbar is attached to and added to this list before the new frame is initialized." :group 'speedbar - :type '(repeat (sexp :tag "Parameter:"))) + :type '(repeat (cons :format "%v" + (symbol :tag "Parameter") + (sexp :tag "Value")))) ;; These values by Hrvoje Niksic (defcustom speedbar-frame-plist @@ -297,7 +299,7 @@ (symbol :tag "Property") (sexp :tag "Value")))) -(defcustom speedbar-use-imenu-flag (stringp (locate-library "imenu")) +(defcustom speedbar-use-imenu-flag (fboundp 'imenu) "*Non-nil means use imenu for file parsing. nil to use etags. XEmacs prior to 20.4 doesn't support imenu, therefore the default is to use etags instead. Etags support is not as robust as imenu support." @@ -3598,7 +3600,7 @@ nil -(eval-when-compile (if (locate-library "imenu") (require 'imenu))) +(eval-when-compile (condition-case nil (require 'imenu) (error nil))) (defun speedbar-fetch-dynamic-imenu (file) "Load FILE into a buffer, and generate tags using Imenu. @@ -4092,7 +4094,9 @@ ) (provide 'speedbar) -;;; speedbar ends here ;; run load-time hooks (run-hooks 'speedbar-load-hook) + +;; arch-tag: 4477e6d1-f78c-48b9-a503-387d3c9767d5 +;;; speedbar ends here