*** delsel.el.~1.43.~	Wed Oct 31 01:30:54 2007
--- delsel.el	Mon Jan 21 23:01:08 2008
***************
*** 80,86 ****
  
  (defun delete-selection-pre-hook ()
    (when (and delete-selection-mode transient-mark-mode mark-active
! 	     (not buffer-read-only))
      (let ((type (and (symbolp this-command)
  		     (get this-command 'delete-selection))))
        (condition-case data
--- 80,90 ----
  
  (defun delete-selection-pre-hook ()
    (when (and delete-selection-mode transient-mark-mode mark-active
! 	     (not buffer-read-only)
! 	     (let ((from (min (point) (mark)))
! 		   (to (max (point) (mark))))
! 	       (not (or (get-text-property from 'read-only)
! 			(< (next-single-property-change from 'read-only nil to) to)))))
      (let ((type (and (symbolp this-command)
  		     (get this-command 'delete-selection))))
        (condition-case data