aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/speedbar.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 9558c83774b..6b4a21e2a86 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -5,7 +5,7 @@
5;; Author: Eric M. Ludlam <zappo@gnu.org> 5;; Author: Eric M. Ludlam <zappo@gnu.org>
6;; Version: 0.7.2a 6;; Version: 0.7.2a
7;; Keywords: file, tags, tools 7;; Keywords: file, tags, tools
8;; X-RCS: $Id: speedbar.el,v 1.9 1998/08/19 01:43:37 zappo Exp done $ 8;; X-RCS: $Id: speedbar.el,v 1.10 1998/08/19 21:43:56 done Exp zappo $
9 9
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
11 11
@@ -1174,6 +1174,7 @@ in the selected file.
1174 speedbar-buffer) 1174 speedbar-buffer)
1175 (speedbar-frame-mode -1))))) 1175 (speedbar-frame-mode -1)))))
1176 t t) 1176 t t)
1177 (toggle-read-only 1)
1177 (speedbar-set-mode-line-format) 1178 (speedbar-set-mode-line-format)
1178 (if speedbar-xemacsp 1179 (if speedbar-xemacsp
1179 (progn 1180 (progn
@@ -1810,7 +1811,6 @@ to track file check ins, and will change the mode line to match
1810(defmacro speedbar-with-writable (&rest forms) 1811(defmacro speedbar-with-writable (&rest forms)
1811 "Allow the buffer to be writable and evaluate FORMS." 1812 "Allow the buffer to be writable and evaluate FORMS."
1812 (list 'let '((inhibit-read-only t)) 1813 (list 'let '((inhibit-read-only t))
1813 '(toggle-read-only -1)
1814 (cons 'progn forms))) 1814 (cons 'progn forms)))
1815(put 'speedbar-with-writable 'lisp-indent-function 0) 1815(put 'speedbar-with-writable 'lisp-indent-function 0)
1816 1816