# HG changeset patch
# User Eric M. Ludlam <zappo@gnu.org>
# Date 905608585 0
# Node ID 87bf8eb5c6393bc8de96ccc230287f040210b863
# Parent  b9d8ec6db59a8a88af699a3e45578b5abd183163
(speedbar-frame-mode): Only set the position on window systems.

diff -r b9d8ec6db59a -r 87bf8eb5c639 lisp/speedbar.el
--- a/lisp/speedbar.el	Fri Sep 11 01:40:25 1998 +0000
+++ b/lisp/speedbar.el	Sat Sep 12 13:56:25 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.12 1998/08/24 00:55:45 zappo Exp zappo $
+;; X-RCS: $Id: speedbar.el,v 1.13 1998/08/24 01:16:09 zappo Exp zappo $
 
 ;; This file is part of GNU Emacs.
 
@@ -1005,16 +1005,18 @@
 				(x-sensitive-text-pointer-shape
 				 x-pointer-hand2))
 			    (make-frame params)))))
-		  (set-frame-position frame
-				      ;; Decide which side to put it
-				      ;; on.  200 is just a buffer
-				      ;; for the left edge of the
-				      ;; screen.  The extra 10 is just
-				      ;; dressings for window decorations.
-				      (if (< cfx 200)
-					  (+ cfx cfw 10)
-					(- cfx (frame-pixel-width frame) 10))
-				      cfy)
+		  (if (and window-system (not (eq window-system 'pc)))
+		      (set-frame-position frame
+					  ;; Decide which side to put it
+					  ;; on.  200 is just a buffer
+					  ;; for the left edge of the
+					  ;; screen.  The extra 10 is just
+					  ;; dressings for window decorations.
+					  (if (< cfx 200)
+					      (+ cfx cfw 10)
+					    (- cfx (frame-pixel-width frame)
+					       10))
+					  cfy))
 		  frame)))
 	;; reset the selection variable
 	(setq speedbar-last-selected-file nil)