[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv1493

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-compile-region): Run slime-flash-region
directly, not from `slime-before-compile-functions', which is run
also for C-c C-k.


--- /project/slime/cvsroot/slime/ChangeLog	2011/12/10 12:58:42	1.2286
+++ /project/slime/cvsroot/slime/ChangeLog	2011/12/12 06:59:26	1.2287
@@ -1,3 +1,9 @@
+2011-12-12  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-compile-region): Run slime-flash-region
+	directly, not from `slime-before-compile-functions', which is run
+	also for C-c C-k.
+
 2011-12-10  Helmut Eller  <heller at common-lisp.net>
 
 	* swank.lisp (auto-flush-loop): Don't use call-with-io-timeout.
--- /project/slime/cvsroot/slime/slime.el	2011/12/07 19:23:44	1.1389
+++ /project/slime/cvsroot/slime/slime.el	2011/12/12 06:59:26	1.1390
@@ -2669,12 +2669,11 @@
   (interactive "r")
   ;; Check connection before running hooks
   ;; things like slime-flash-region don't make much sense if there's no connection
-  (slime-connection) 
+  (slime-connection)
+  (slime-flash-region start end)
   (run-hook-with-args 'slime-before-compile-functions start end)
   (slime-compile-string (buffer-substring-no-properties start end) start))
 
-(add-hook 'slime-before-compile-functions 'slime-flash-region)
-
 (defun slime-flash-region (start end &optional timeout)
   "Temporarily highlight region from START to END."
   (let ((overlay (make-overlay start end)))