mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(speedbar-frame-mode): Check if cfx or cfy is a list, and make sure it

Browse Source 
gets evalled to a number.  Also verify that set-frame-name fn exists
before calling it.
(speedbar-initial-expansion-list-name): Remove customization since it
is not useful in this case.
This commit is contained in:
Eric M. Ludlam 1998-10-04 13:00:45 +00:00
parent 1a553b8be1
commit f412d5ddaa
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/speedbar.el
View File

@ -5,7 +5,7 @@
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Version: 0.7.2c
;; Keywords: file, tags, tools
;; X-RCS: $Id: speedbar.el,v 1.15 1998/09/12 13:58:46 zappo Exp $
;; X-RCS: $Id: speedbar.el,v 1.16 1998/09/18 09:21:27 schwab Exp zappo $
;; This file is part of GNU Emacs.
@ -267,15 +267,10 @@ second parameter. The 0 indicates the uppermost indentation level.
They must assume that the cursor is at the position where they start
inserting buttons.")
(defcustom speedbar-initial-expansion-list-name "files"
(defvar speedbar-initial-expansion-list-name "files"
"A symbol name representing the expansion list to use.
The expansion list `speedbar-initial-expansion-mode-alist' contains
the names and associated functions to use for buttons in speedbar."
:group 'speedbar
:type '(radio (const :tag "File Directories" "files")
(const "buffers")
(const "quick buffers")
))
the names and associated functions to use for buttons in speedbar.")
(defvar speedbar-previously-used-expansion-list-name "files"
"Save the last expansion list method.
@ -1007,6 +1002,8 @@ supported at a time.
(x-sensitive-text-pointer-shape
x-pointer-hand2))
(make-frame params)))))
(if (listp cfx) (setq cfx (eval cfx)))
(if (listp cfy) (setq cfx (eval cfy)))
(if (and window-system (not (eq window-system 'pc)))
(set-frame-position frame
;; Decide which side to put it
@ -1029,7 +1026,8 @@ supported at a time.
(select-frame speedbar-frame)
(switch-to-buffer speedbar-buffer)
(set-window-dedicated-p (selected-window) t))
(if (or (null window-system) (eq window-system 'pc))
(if (and (or (null window-system) (eq window-system 'pc))
(fboundp 'set-frame-name))
(progn
(select-frame speedbar-frame)
(set-frame-name "Speedbar")))