From afa43ce1079098180a7deaa982f9d7332a79caae Mon Sep 17 00:00:00 2001 From: "Eric M. Ludlam" Date: Sat, 12 Sep 1998 13:56:25 +0000 Subject: [PATCH] (speedbar-frame-mode): Only set the position on window systems. --- lisp/speedbar.el | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) diff --git a/lisp/speedbar.el b/lisp/speedbar.el index 4c11902d0b6..e5fba74244e 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.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 @@ supported at a time. (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) -- 2.39.2