diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2005-10-02 03:11:03 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2005-10-02 03:11:03 +0000 |
| commit | 24bbdbefccdba78e91874559d3b7dee0c1cbdbe6 (patch) | |
| tree | 1ceab0560b2229eadaa4402cb290d32ddb6cc76b /lisp/speedbar.el | |
| parent | dceb5300d213250d0f2d95d976f4e5289377d459 (diff) | |
| download | emacs-24bbdbefccdba78e91874559d3b7dee0c1cbdbe6.tar.gz | |
* 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.
Diffstat (limited to 'lisp/speedbar.el')
| -rw-r--r-- | lisp/speedbar.el | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/lisp/speedbar.el b/lisp/speedbar.el index 84411f12223..0978a31681e 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el @@ -4,7 +4,6 @@ ;; Author: Eric M. Ludlam <zappo@gnu.org> ;; 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 @@ this version is not backward compatible to 0.14 or earlier.") ;; 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 @@ indicator, then do not add a space." (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 |