[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-repl-send-input): Disable modification hooks
when marking old input.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/12 12:57:09	1.1446
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/12 12:57:16	1.1447
@@ -1,5 +1,10 @@
 2008-08-12  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el (slime-repl-send-input): Disable modification hooks
+	when marking old input.
+
+2008-08-12  Helmut Eller  <heller at common-lisp.net>
+
 	Finally handle reader-errors without disconnecting.
 
 	* swank.lisp (decode-message): Convert reader-error conditions
--- /project/slime/cvsroot/slime/slime.el	2008/08/12 12:57:09	1.990
+++ /project/slime/cvsroot/slime/slime.el	2008/08/12 12:57:16	1.991
@@ -3112,10 +3112,11 @@
     (when newline 
       (insert "\n")
       (slime-repl-show-maximum-output))
-    (add-text-properties slime-repl-input-start-mark 
-                         (point)
-                         `(slime-repl-old-input
-                           ,(incf slime-repl-old-input-counter)))
+    (let ((inhibit-modification-hooks t))
+      (add-text-properties slime-repl-input-start-mark 
+                           (point)
+                           `(slime-repl-old-input
+                             ,(incf slime-repl-old-input-counter))))
     (let ((overlay (make-overlay slime-repl-input-start-mark end)))
       ;; These properties are on an overlay so that they won't be taken
       ;; by kill/yank.