mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-23 22:42:01 -07:00
Code Issues Projects Releases Wiki Activity

(speedbar-frame-parameters): No toolbar lines.

Browse source 
(speedbar-line-file): Return nil if not a file.
(speedbar-buffers-line-path): Return file for tags, and dir for files.
This commit is contained in:
Eric M. Ludlam 2001-02-12 16:33:03 +00:00
parent 60222d69c6
commit 68514d48aa
2 changed files with 26 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2001-02-12 Eric M. Ludlam <zappo@choochoo.ultranet.com>
* speedbar.el (speedbar-frame-parameters): No toolbar lines.
(speedbar-line-file): Return nil if not a file.
(speedbar-buffers-line-path): Return file for tags, and dir for files.
2001-02-12 Michael Kifer <kifer@cs.sunysb.edu>
* ediff-diff.el (ediff-make-diff2-buffer): Removed bogus checks

30
lisp/speedbar.el
View file

@ -1,9 +1,9 @@
;;; speedbar --- quick access to files and tags in a frame
;;; Copyright (C) 1996, 97, 98, 99, 00 Free Software Foundation
;;; Copyright (C) 1996, 97, 98, 99, 2000, 01 Free Software Foundation
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Version: 0.11
;; Version: 0.11a
;; Keywords: file, tags, tools
;; This file is part of GNU Emacs.
@ -347,6 +347,7 @@ between different directories."
(width . 20)
(border-width . 0)
(menu-bar-lines . 0)
(tool-bar-lines . 0)
(unsplittable . t))
"*Parameters to use when creating the speedbar frame in Emacs.
Any parameter supported by a frame may be added. The parameter `height'
@ -3294,7 +3295,9 @@ directory, then it is the directory name."
(if f
(let* ((depth (string-to-int (match-string 1)))
(path (speedbar-line-path depth)))
(concat path f))
(if (file-exists-p (concat path f))
(concat path f)
nil))
nil))))
(defun speedbar-goto-this-file (file)
@ -4030,13 +4033,20 @@ If TEMP is non-nil, then clicking on a buffer restores the previous display."
(defun speedbar-buffers-line-path (&optional depth)
"Fetch the full path to the file (buffer) specified on the current line.
Optional argument DEPTH specifies the current depth of the back search."
(end-of-line)
;; Buffers are always at level 0
(if (not (re-search-backward "^0:" nil t))
nil
(let* ((bn (speedbar-line-text))
(buffer (if bn (get-buffer bn))))
(if buffer (file-name-directory (buffer-file-name buffer))))))
(save-excursion
(end-of-line)
(let ((start (point)))
;; Buffers are always at level 0
(if (not (re-search-backward "^0:" nil t))
nil
(let* ((bn (speedbar-line-text))
(buffer (if bn (get-buffer bn))))
(if buffer
(if (save-excursion
(end-of-line)
(eq start (point)))
(file-name-directory (buffer-file-name buffer))
(buffer-file-name buffer))))))))
(defun speedbar-buffer-click (text token indent)
"When the users clicks on a buffer-button in speedbar.