[slime-cvs] CVS slime/contrib

[heller]

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

Modified Files:
	ChangeLog slime-clipboard.el 
Log Message:
* slime-clipboard.el (slime-clipboard-insert-ref): Set
read-nonsticky to t to work better with kill/yank.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2008/08/12 13:03:15	1.118
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2008/08/12 17:54:30	1.119
@@ -1,5 +1,10 @@
 2008-08-12  Helmut Eller  <heller at common-lisp.net>
 
+	* slime-clipboard.el (slime-clipboard-insert-ref): Set
+	read-nonsticky to t to work better with kill/yank.
+
+2008-08-12  Helmut Eller  <heller at common-lisp.net>
+
 	Add a simple object clipboard.
 
 	* swank-clipboard.lisp: New file.
--- /project/slime/cvsroot/slime/contrib/slime-clipboard.el	2008/08/12 13:03:15	1.1
+++ /project/slime/cvsroot/slime/contrib/slime-clipboard.el	2008/08/12 17:54:30	1.2
@@ -126,7 +126,7 @@
     (slime-insert-propertized
      `(display ,(format "#@%d%s" ref string)
 	       modification-hooks (slime-clipboard-ref-modified)
-	       rear-nonsticky '(modification-hooks))
+	       rear-nonsticky t)
      (format "(swank-clipboard::clipboard-ref %d)" ref))))
 
 (defun slime-clipboard-ref-modified (start end)
@@ -134,9 +134,10 @@
     (let ((inhibit-modification-hooks t))
       (save-excursion
 	(goto-char start)
-	(destructuring-bind (start end) (slime-property-bounds 'display)
-	  (remove-list-of-text-properties start end 
-					  '(display modification-hooks)))))))
+	(destructuring-bind (dstart dend) (slime-property-bounds 'display)
+	  (unless (and (= start dstart) (= end dend))
+	    (remove-list-of-text-properties 
+	     dstart dend '(display modification-hooks))))))))
 
 ;; Read a entry number.
 ;; Written in CPS because the display the clipboard before reading.