From xemacs-m  Mon Jul 21 00:59:31 1997
Received: from sauna.ton.tut.fi (maage@sauna.ton.tut.fi [193.166.82.72])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id AAA24978
	for <xemacs-beta@xemacs.org>; Mon, 21 Jul 1997 00:59:30 -0500 (CDT)
Received: (from maage@localhost) by sauna.ton.tut.fi (8.8.5/8.7.3/sauna) id IAA24700; Mon, 21 Jul 1997 08:59:31 +0300
To: xemacs-beta@xemacs.org
Subject: speedbar
From: Markus Linnala <maage@cs.tut.fi>
Reply-To: Markus Linnala <maage@cs.tut.fi>
X-Attribution: maage
X-Name-Order: first last
X-Face: FT5rXy\9|jeFOlfb|;4,U^#kjLrK+Rl:/)b#Rs[0yJy{Mw7=BbJf?I.o&BnKV<G.LqXyG'T
 &sn#2KA=:&JZmmlD';!pz3j4Kxq*u3T"|up!?l^?S>pA8o[arz;GIY~q%jz5qRD+azNap-'|3/9;(K
 ZwNwAd'IBm-<+A1.
X-Url: http://www.cs.tut.fi/~maage/
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Mon_Jul_21_08:59:28_1997-1"
Content-Transfer-Encoding: 7bit
Date: 21 Jul 1997 08:59:28 +0300
Message-ID: <m2g1t9vtbz.fsf@sauna.ton.tut.fi>
Lines: 63
X-Mailer: Gnus v5.4.63/XEmacs 20.3(beta14) - "Vienna"

--Multipart_Mon_Jul_21_08:59:28_1997-1
Content-Type: text/plain; charset=US-ASCII


I have some problems with it.

Below is very quick patch to make it actually work. After applying it
I can start speedbar by manually doing an autoload. Why doesn't
autload work automatically, as I suppose it should? Well actually I
don't know what I'm doing.

-- 
//Markus


--Multipart_Mon_Jul_21_08:59:28_1997-1
Content-Type: text/plain; charset=US-ASCII

--- lisp/utils/speedbar.el.~1~	Mon Jun 30 02:13:33 1997
+++ lisp/utils/speedbar.el	Mon Jul 21 08:49:28 1997
@@ -328,7 +328,8 @@
 is attached to.  To add more frame defaults, `cons' new alist members
 onto this variable through the `speedbar-load-hook'")
 
-(defvar speedbar-use-imenu-flag (stringp (locate-library "imenu"))
+(defvar speedbar-use-imenu-flag (and (not running-xemacs) 
+				     (stringp (locate-library "imenu")))
   "*Non-nil means use imenu for file parsing.  nil to use etags.
 XEmacs doesn't support imenu, therefore the default is to use etags
 instead.  Etags support is not as robust as imenu support.")
@@ -722,7 +723,8 @@
 	(let ((params (cons (cons 'height (frame-height))
 			    speedbar-frame-parameters)))
 	  (setq speedbar-frame
-		(if (< emacs-major-version 20) ;a bug is fixed in v20 & later
+		(if (or running-xemacs 
+			(< emacs-major-version 20)) ;a bug is fixed in v20 & later
 		    (make-frame params)
 		  (let ((x-pointer-shape x-pointer-top-left-arrow)
 			(x-sensitive-text-pointer-shape x-pointer-hand2))
@@ -761,7 +763,9 @@
 (defun speedbar-frame-width ()
   "Return the width of the speedbar frame in characters.
 nil if it doesn't exist."
-  (and speedbar-frame (cdr (assoc 'width (frame-parameters speedbar-frame)))))
+  (and speedbar-frame 
+       (frame-live-p speedbar-frame) 
+       (cdr (assoc 'width (frame-parameters speedbar-frame)))))
 
 (defun speedbar-mode ()
   "Major mode for managing a display of directories and tags.
@@ -887,7 +891,8 @@
 		    ;; The trailer
 		    speedbar-easymenu-definition-trailer)))
     (easy-menu-define speedbar-menu-map speedbar-key-map "Speedbar menu" md)
-    (if speedbar-xemacsp (set-buffer-menubar (list km)))))
+    ;(if speedbar-xemacsp (set-buffer-menubar (list km)))
+))
 
 
 ;;; User Input stuff

--Multipart_Mon_Jul_21_08:59:28_1997-1--

