Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv3679
Modified Files:
slime.el
Log Message:
Fixes for outline-mode in *slime-events* from Edi Weitz.
Date: Wed May 12 12:21:13 2004
Author: lgorrie
Index: slime/slime.el
diff -u slime/slime.el:1.299 slime/slime.el:1.300
--- slime/slime.el:1.299 Tue May 11 17:00:59 2004
+++ slime/slime.el Wed May 12 12:21:13 2004
@@ -1689,7 +1689,7 @@
(defvar slime-log-events t
"*Log protocol events to the *slime-events* buffer.")
-(defvar slime-inhibit-ouline-mode-in-events-buffer t
+(defvar slime-inhibit-outline-mode-in-events-buffer t
"*Don't use outline-mode if true.")
;;;;;;; Event logging to *slime-events*
@@ -1705,7 +1705,8 @@
(goto-char (point-max))
(save-excursion
(pp event (current-buffer)))
- (when outline-minor-mode
+ (when (and (boundp 'outline-minor-mode)
+ outline-minor-mode)
(hide-entry))
(goto-char (point-max)))))
@@ -1716,7 +1717,7 @@
(set (make-local-variable 'outline-regexp) "^(")
(set (make-local-variable 'comment-start) ";")
(set (make-local-variable 'comment-end) "")
- (unless slime-inhibit-ouline-mode-in-events-buffer
+ (unless slime-inhibit-outline-mode-in-events-buffer
(outline-minor-mode)))
buffer)))