# HG changeset patch
# User Eric M. Ludlam <zappo@gnu.org>
# Date 903920145 0
# Node ID e1613f1c52f8ef285c3788bfd0992c1bcb497518
# Parent  2dea437fe88ac4d23428ce8fd2d6c4724b764c26
 (speedbar-temp-buffer-show-function): For emacs don't call hook
 with arguments.

diff -r 2dea437fe88a -r e1613f1c52f8 lisp/speedbar.el
--- a/lisp/speedbar.el	Mon Aug 24 00:37:22 1998 +0000
+++ b/lisp/speedbar.el	Mon Aug 24 00:55:45 1998 +0000
@@ -5,7 +5,7 @@
 ;; Author: Eric M. Ludlam <zappo@gnu.org>
 ;; Version: 0.7.2a
 ;; Keywords: file, tags, tools
-;; X-RCS: $Id: speedbar.el,v 1.10 1998/08/19 21:43:56 done Exp zappo $
+;; X-RCS: $Id: speedbar.el,v 1.11 1998/08/24 00:37:22 zappo Exp zappo $
 
 ;; This file is part of GNU Emacs.
 
@@ -1237,8 +1237,10 @@
   (if speedbar-attached-frame (select-frame speedbar-attached-frame))
   (pop-to-buffer buffer nil)
   (other-window -1)
-  ;; Fix for using this hook: Bob Weiner
-  (cond ((fboundp 'run-hook-with-args)
+  ;; Fix for using this hook on some platforms: Bob Weiner
+  (cond ((not speedbar-xemacsp)
+	 (run-hooks 'temp-buffer-show-hook))
+	((fboundp 'run-hook-with-args)
 	 (run-hook-with-args 'temp-buffer-show-hook buffer))
 	((and (boundp 'temp-buffer-show-hook)
 	      (listp temp-buffer-show-hook))