[Emacs-diffs] Changes to emacs/lisp/speedbar.el

[Chong Yidong]

Index: emacs/lisp/speedbar.el
diff -c emacs/lisp/speedbar.el:1.69 emacs/lisp/speedbar.el:1.70
*** emacs/lisp/speedbar.el:1.69 Sat Oct  1 03:01:42 2005
--- emacs/lisp/speedbar.el      Sun Oct  2 03:11:03 2005
***************
*** 4,10 ****
  
  ;; Author: Eric M. Ludlam <address@hidden>
  ;; Keywords: file, tags, tools
- ;; X-RCS: $Id: speedbar.el,v 1.69 2005/10/01 03:01:42 cyd Exp $
  
  (defvar speedbar-version "1.0"
    "The current version of speedbar.")
--- 4,9 ----
***************
*** 27,34 ****
  
  ;; 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.
  
  ;;; Commentary:
  ;;
--- 26,33 ----
  
  ;; 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., 51 Franklin Street, Fifth Floor,
! ;; Boston, MA 02110-1301, USA.
  
  ;;; Commentary:
  ;;
***************
*** 2822,2833 ****
                      (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))))
          (if (input-pending-p)
              ;; return that we are incomplete
              nil
--- 2821,2835 ----
                      (re-search-forward "^\\([0-9]+\\):\\s-*[[<][+-\?][]>] "
                                         nil t))
            (setq speedbar-ro-to-do-point (point))
!           (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