/[emacs]/emacs/lisp/speedbar.el
ViewVC logotype

Diff of /emacs/lisp/speedbar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.69 by cyd, Sat Oct 1 03:01:42 2005 UTC revision 1.70 by cyd, Sun Oct 2 03:11:03 2005 UTC
# Line 4  Line 4 
4    
5  ;; Author: Eric M. Ludlam <zappo@gnu.org>  ;; Author: Eric M. Ludlam <zappo@gnu.org>
6  ;; Keywords: file, tags, tools  ;; Keywords: file, tags, tools
 ;; X-RCS: $Id$  
7    
8  (defvar speedbar-version "1.0"  (defvar speedbar-version "1.0"
9    "The current version of speedbar.")    "The current version of speedbar.")
# Line 27  this version is not backward compatible Line 26  this version is not backward compatible
26    
27  ;; You should have received a copy of the GNU General Public License  ;; You should have received a copy of the GNU General Public License
28  ;; along with GNU Emacs; see the file COPYING.  If not, write to the  ;; along with GNU Emacs; see the file COPYING.  If not, write to the
29  ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,  ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
30  ;; Boston, MA 02111-1307, USA.  ;; Boston, MA 02110-1301, USA.
31    
32  ;;; Commentary:  ;;; Commentary:
33  ;;  ;;
# Line 2822  indicator, then do not add a space." Line 2821  indicator, then do not add a space."
2821                        (re-search-forward "^\\([0-9]+\\):\\s-*[[<][+-\?][]>] "                        (re-search-forward "^\\([0-9]+\\):\\s-*[[<][+-\?][]>] "
2822                                           nil t))                                           nil t))
2823              (setq speedbar-ro-to-do-point (point))              (setq speedbar-ro-to-do-point (point))
2824              (if (not (file-writable-p (speedbar-line-file)))              (let ((f (speedbar-line-file)))
2825                  (speedbar-add-indicator                (if f
2826                   speedbar-object-read-only-indicator                    (if (not (file-writable-p f))
2827                   (regexp-quote speedbar-object-read-only-indicator))                        (speedbar-add-indicator
2828                (speedbar-add-indicator                         speedbar-object-read-only-indicator
2829                 " " (regexp-quote speedbar-object-read-only-indicator))))                         (regexp-quote speedbar-object-read-only-indicator))
2830                        (speedbar-add-indicator
2831                         " " (regexp-quote
2832                              speedbar-object-read-only-indicator))))))
2833            (if (input-pending-p)            (if (input-pending-p)
2834                ;; return that we are incomplete                ;; return that we are incomplete
2835                nil                nil

Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26