diff options
author | Eric M. Ludlam <zappo@gnu.org> | 1998-09-12 13:56:25 +0000 |
---|---|---|
committer | Eric M. Ludlam <zappo@gnu.org> | 1998-09-12 13:56:25 +0000 |
commit | 5b55340e64b263d21356f3e068c62f2d2a06d4d2 (patch) | |
tree | 46a69e21bdd5448227233b147f03674b1d253091 | |
parent | 3a508b12342a88a6c71e4d4b02ed3f5591fb6213 (diff) | |
download | emacs-5b55340e64b263d21356f3e068c62f2d2a06d4d2.tar.gz |
(speedbar-frame-mode): Only set the position on window systems.
-rw-r--r-- | lisp/speedbar.el | 24 |
1 files 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 <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 @@ 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) |