Mercurial > emacs

comparison lisp/speedbar.el @ 23241:87bf8eb5c639

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(speedbar-frame-mode): Only set the position on window systems.
author Eric M. Ludlam <zappo@gnu.org>
date Sat, 12 Sep 1998 13:56:25 +0000
parents 46deaf6e62a9
children 94ddde8e0c64
comparison
equal deleted inserted replaced
23240:b9d8ec6db59a 23241:87bf8eb5c639
3 ;;; Copyright (C) 1996, 97, 98 Free Software Foundation 3 ;;; Copyright (C) 1996, 97, 98 Free Software Foundation
4 4
5 ;; Author: Eric M. Ludlam <zappo@gnu.org> 5 ;; Author: Eric M. Ludlam <zappo@gnu.org>
6 ;; Version: 0.7.2a 6 ;; Version: 0.7.2a
7 ;; Keywords: file, tags, tools 7 ;; Keywords: file, tags, tools
8 ;; X-RCS: $Id: speedbar.el,v 1.12 1998/08/24 00:55:45 zappo Exp zappo $ 8 ;; X-RCS: $Id: speedbar.el,v 1.13 1998/08/24 01:16:09 zappo Exp zappo $
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
1003 (make-frame params) 1003 (make-frame params)
1004 (let ((x-pointer-shape x-pointer-top-left-arrow) 1004 (let ((x-pointer-shape x-pointer-top-left-arrow)
1005 (x-sensitive-text-pointer-shape 1005 (x-sensitive-text-pointer-shape
1006 x-pointer-hand2)) 1006 x-pointer-hand2))
1007 (make-frame params))))) 1007 (make-frame params)))))
1008 (set-frame-position frame 1008 (if (and window-system (not (eq window-system 'pc)))
1009 ;; Decide which side to put it 1009 (set-frame-position frame
1010 ;; on. 200 is just a buffer 1010 ;; Decide which side to put it
1011 ;; for the left edge of the 1011 ;; on. 200 is just a buffer
1012 ;; screen. The extra 10 is just 1012 ;; for the left edge of the
1013 ;; dressings for window decorations. 1013 ;; screen. The extra 10 is just
1014 (if (< cfx 200) 1014 ;; dressings for window decorations.
1015 (+ cfx cfw 10) 1015 (if (< cfx 200)
1016 (- cfx (frame-pixel-width frame) 10)) 1016 (+ cfx cfw 10)
1017 cfy) 1017 (- cfx (frame-pixel-width frame)
1018 10))
1019 cfy))
1018 frame))) 1020 frame)))
1019 ;; reset the selection variable 1021 ;; reset the selection variable
1020 (setq speedbar-last-selected-file nil) 1022 (setq speedbar-last-selected-file nil)
1021 ;; Put the buffer into the frame 1023 ;; Put the buffer into the frame
1022 (save-window-excursion 1024 (save-window-excursion