diff options
| -rw-r--r-- | lisp/speedbar.el | 4 |
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 | ||