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.") |
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 |
;; |
;; |
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 |