From: Eric M. Ludlam Date: Mon, 24 Aug 1998 00:55:45 +0000 (+0000) Subject: (speedbar-temp-buffer-show-function): For emacs don't call hook X-Git-Tag: emacs-20.4~1865 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1095518aeac7d91119aae01a6a34ccbea5c275fb;p=emacs.git (speedbar-temp-buffer-show-function): For emacs don't call hook with arguments. --- diff --git a/lisp/speedbar.el b/lisp/speedbar.el index 6b4a21e2a86..b4ad8cffd30 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el @@ -5,7 +5,7 @@ ;; Author: Eric M. Ludlam ;; 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 @@ redirected into a window on the attached frame." (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))