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 | afa43ce1079098180a7deaa982f9d7332a79caae (patch) | |
| tree | 56d6a635f75d608486d81bc02322ba79a8963356 /lisp/speedbar.el | |
| parent | f6cafb3ece32f7203c390b54cb4567bc9ec13f97 (diff) | |
| download | emacs-afa43ce1079098180a7deaa982f9d7332a79caae.tar.gz | |
(speedbar-frame-mode): Only set the position on window systems.
Diffstat (limited to 'lisp/speedbar.el')
| -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) |