[slime-cvs] CVS slime

[dcrosher]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv5004

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (with-selected-window): define for compatibility with Emacs 21.



--- /project/slime/cvsroot/slime/ChangeLog	2007/03/24 17:43:15	1.1085
+++ /project/slime/cvsroot/slime/ChangeLog	2007/03/25 00:10:50	1.1086
@@ -1,3 +1,8 @@
+2007-03-25  Douglas Crosher <dcrosher at common-lisp.net>
+
+	* slime.el (with-selected-window): define for compatibility with
+	Emacs 21.
+
 2007-03-24  Matthias Koeppe  <mkoeppe at mail.math.uni-magdeburg.de>
 
 	* swank.lisp (menu-choices-for-presentation): Offer a
--- /project/slime/cvsroot/slime/slime.el	2007/03/24 11:01:36	1.772
+++ /project/slime/cvsroot/slime/slime.el	2007/03/25 00:10:50	1.773
@@ -11351,6 +11351,11 @@
   (when (get-text-property (point) 'point-entered)
     (funcall (get-text-property (point) 'point-entered))))
 
+(slime-defun-if-undefined with-selected-window (window &rest body)
+  `(save-selected-window
+     (select-window ,window)
+     , at body))
+
 ;;; Stuff only available in XEmacs
 (slime-defun-if-undefined add-local-hook (hook function &optional append)
   (make-local-hook hook)