Index: slime.el
===================================================================
RCS file: /project/slime/cvsroot/slime/slime.el,v
retrieving revision 1.1047
diff -u -r1.1047 slime.el
--- slime.el	10 Oct 2008 06:09:32 -0000	1.1047
+++ slime.el	13 Oct 2008 19:38:41 -0000
@@ -3920,10 +3920,21 @@
 (defun slime-compile-region (start end)
   "Compile the region."
   (interactive "r")
-  (slime-flash-region start end)
+  (slime-flash-region-edge start end)
   (run-hook-with-args 'slime-before-compile-functions start end)
   (slime-compile-string (buffer-substring-no-properties start end) start))
 
+(defun slime-flash-region-edge (start end &optional timeout)
+  "Flash the edges of the region START to END for TIMEOUT sec."
+  (let ((overlay-start (make-overlay start (1+ start)))
+	(overlay-end (make-overlay (1- end) (- end 2))))
+    (overlay-put overlay-start 'face 'secondary-selection)
+    (overlay-put overlay-start 'slime-flash t)
+    (overlay-put overlay-end 'face 'secondary-selection)
+    (overlay-put overlay-end 'slime-flash t)
+    (run-with-timer (or timeout 0.2) nil 
+		    'remove-overlays start end 'slime-flash t)))
+
 (defun slime-flash-region (start end &optional timeout)
   (let ((overlay (make-overlay start end))) 
     (overlay-put overlay 'face 'secondary-selection)