# HG changeset patch # User Chong Yidong # Date 1128222663 0 # Node ID 6e229fd948153c0889176b2bea50189d76863990 # Parent 103ed0b7e567e68b9c85d3ccd7d31fcad3ca9a9c * speedbar.el: Remove RCS tag. (speedbar-check-read-only): Handle non-existent files. * dframe.el, ezimage.el, sb-image.el: Remove RCS tags. * info.el (Info-speedbar-hierarchy-buttons) (Info-speedbar-goto-node): Call speedbar-select-attached-frame. diff -r 103ed0b7e567 -r 6e229fd94815 lisp/ChangeLog --- a/lisp/ChangeLog Sun Oct 02 00:23:59 2005 +0000 +++ b/lisp/ChangeLog Sun Oct 02 03:11:03 2005 +0000 @@ -1,3 +1,13 @@ +2005-10-01 Chong Yidong + + * speedbar.el: Remove RCS tag. + (speedbar-check-read-only): Handle non-existent files. + + * dframe.el, ezimage.el, sb-image.el: Remove RCS tags. + + * info.el (Info-speedbar-hierarchy-buttons) + (Info-speedbar-goto-node): Call speedbar-select-attached-frame. + 2005-10-01 Roland Winkler * textmodes/bibtex.el (bibtex-valid-entry-whitespace-re): diff -r 103ed0b7e567 -r 6e229fd94815 lisp/dframe.el --- a/lisp/dframe.el Sun Oct 02 00:23:59 2005 +0000 +++ b/lisp/dframe.el Sun Oct 02 03:11:03 2005 +0000 @@ -4,7 +4,6 @@ ;; Author: Eric M. Ludlam ;; Keywords: file, tags, tools -;; X-RCS: $Id: dframe.el,v 1.1 2005/09/30 13:18:43 cyd Exp $ (defvar dframe-version "1.3" "The current version of the dedicated frame library.") @@ -23,8 +22,8 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: ;; diff -r 103ed0b7e567 -r 6e229fd94815 lisp/ezimage.el --- a/lisp/ezimage.el Sun Oct 02 00:23:59 2005 +0000 +++ b/lisp/ezimage.el Sun Oct 02 03:11:03 2005 +0000 @@ -4,7 +4,6 @@ ;; Author: Eric M. Ludlam ;; Keywords: file, tags, tools -;; X-RCS: $Id: ezimage.el,v 1.1 2005/09/30 13:15:10 cyd Exp $ ;; This file is part of GNU Emacs. @@ -20,8 +19,8 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: ;; diff -r 103ed0b7e567 -r 6e229fd94815 lisp/info.el --- a/lisp/info.el Sun Oct 02 00:23:59 2005 +0000 +++ b/lisp/info.el Sun Oct 02 03:11:03 2005 +0000 @@ -4012,8 +4012,6 @@ (speedbar-change-initial-expansion-list "Info") ) -(eval-when-compile (defvar speedbar-attached-frame)) - (defun Info-speedbar-hierarchy-buttons (directory depth &optional node) "Display an Info directory hierarchy in speedbar. DIRECTORY is the current directory in the attached frame. @@ -4030,13 +4028,12 @@ ;; being known at creation time. (if (not node) (speedbar-with-writable (insert "Info Nodes:\n"))) - (let ((completions nil) - (cf (selected-frame))) - (select-frame speedbar-attached-frame) + (let ((completions nil)) + (speedbar-select-attached-frame) (save-window-excursion (setq completions (Info-speedbar-fetch-file-nodes (or node '"(dir)top")))) - (select-frame cf) + (select-frame speedbar-frame) (if completions (speedbar-with-writable (dolist (completion completions) @@ -4052,7 +4049,7 @@ (defun Info-speedbar-goto-node (text node indent) "When user clicks on TEXT, go to an info NODE. The INDENT level is ignored." - (select-frame speedbar-attached-frame) + (speedbar-select-attached-frame) (let* ((buff (or (get-buffer "*info*") (progn (info) (get-buffer "*info*")))) (bwin (get-buffer-window buff 0))) @@ -4062,7 +4059,7 @@ (raise-frame (window-frame bwin))) (if speedbar-power-click (let ((pop-up-frames t)) (select-window (display-buffer buff))) - (select-frame speedbar-attached-frame) + (speedbar-select-attached-frame) (switch-to-buffer buff))) (if (not (string-match "^(\\([^)]+\\))\\([^.]+\\)$" node)) (error "Invalid node %s" node) @@ -4128,7 +4125,7 @@ (nreverse completions)))) ;;; Info mode node listing -;; FIXME: Seems not to be used. -stef +;; This is called by `speedbar-add-localized-speedbar-support' (defun Info-speedbar-buttons (buffer) "Create a speedbar display to help navigation in an Info file. BUFFER is the buffer speedbar is requesting buttons for." @@ -4136,8 +4133,7 @@ (let ((case-fold-search t)) (not (looking-at "Info Nodes:")))) (erase-buffer)) - (Info-speedbar-hierarchy-buttons nil 0) - ) + (Info-speedbar-hierarchy-buttons nil 0)) (dolist (mess '("^First node in file$" "^No `.*' in index$" diff -r 103ed0b7e567 -r 6e229fd94815 lisp/sb-image.el --- a/lisp/sb-image.el Sun Oct 02 00:23:59 2005 +0000 +++ b/lisp/sb-image.el Sun Oct 02 03:11:03 2005 +0000 @@ -4,7 +4,6 @@ ;; Author: Eric M. Ludlam ;; Keywords: file, tags, tools -;; X-RCS: $Id: sb-image.el,v 1.1 2005/09/30 13:15:10 cyd Exp $ ;; This file is part of GNU Emacs. @@ -20,8 +19,8 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: ;; diff -r 103ed0b7e567 -r 6e229fd94815 lisp/speedbar.el --- a/lisp/speedbar.el Sun Oct 02 00:23:59 2005 +0000 +++ b/lisp/speedbar.el Sun Oct 02 03:11:03 2005 +0000 @@ -4,7 +4,6 @@ ;; Author: Eric M. Ludlam ;; Keywords: file, tags, tools -;; X-RCS: $Id: speedbar.el,v 1.68 2005/09/30 13:15:10 cyd Exp $ (defvar speedbar-version "1.0" "The current version of speedbar.") @@ -27,8 +26,8 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: ;; @@ -2822,12 +2821,15 @@ (re-search-forward "^\\([0-9]+\\):\\s-*[[<][+-\?][]>] " nil t)) (setq speedbar-ro-to-do-point (point)) - (if (not (file-writable-p (speedbar-line-file))) - (speedbar-add-indicator - speedbar-object-read-only-indicator - (regexp-quote speedbar-object-read-only-indicator)) - (speedbar-add-indicator - " " (regexp-quote speedbar-object-read-only-indicator)))) + (let ((f (speedbar-line-file))) + (if f + (if (not (file-writable-p f)) + (speedbar-add-indicator + speedbar-object-read-only-indicator + (regexp-quote speedbar-object-read-only-indicator)) + (speedbar-add-indicator + " " (regexp-quote + speedbar-object-read-only-indicator)))))) (if (input-pending-p) ;; return that we are incomplete nil