[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv8889

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-run-mode-hooks): Wrapper for Emacs21.
(slime-repl-mode): Use it.
Reported by Peter Denno.

--- /project/slime/cvsroot/slime/ChangeLog	2008/12/23 08:33:02	1.1599
+++ /project/slime/cvsroot/slime/ChangeLog	2008/12/23 08:33:11	1.1600
@@ -1,3 +1,9 @@
+2008-12-23  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (slime-run-mode-hooks): Wrapper for Emacs21.
+	(slime-repl-mode): Use it.
+	Reported by Peter Denno.
+
 2008-12-23  Sven Van Caekenberghe <sven at beta9.be>
 
 	* swank.lisp (connection): Add a slot to store the
--- /project/slime/cvsroot/slime/slime.el	2008/12/23 08:32:53	1.1076
+++ /project/slime/cvsroot/slime/slime.el	2008/12/23 08:33:12	1.1077
@@ -2939,7 +2939,7 @@
        'slime-repl-mode-beginning-of-defun)
   (set (make-local-variable 'end-of-defun-function) 
        'slime-repl-mode-end-of-defun)
-  (run-mode-hooks 'slime-repl-mode-hook))
+  (slime-run-mode-hooks 'slime-repl-mode-hook))
 
 (defun slime-repl-buffer (&optional create connection)
   "Get the REPL buffer for the current connection; optionally create."
@@ -9979,6 +9979,11 @@
          (add-hook hook function append t))
         (t (add-hook hook function append t))))
 
+(defun slime-run-mode-hooks (&rest hooks)
+  (if (fboundp 'run-mode-hooks) 
+      (apply #'run-mode-hooks hooks)
+    (apply #'run-hooks hooks)))
+
 (slime-defun-if-undefined next-single-char-property-change
     (position prop &optional object limit)
   (let ((limit (typecase limit