Re: 23.0.50; delete-seletion-mode and read-only text

[martin rudalics <rudalics@gmx.at>]

[-- Attachment #1: Type: text/plain, Size: 499 bytes --]

> In delete-seletion-mode, trying to self insert in read-only text when
> there is a selection signals an error that clears pre-command-hook.
> 
> emacs -Q
> 
>     (delete-selection-mode 1)
>     (insert (propertize "12345" 'read-only t))
> 
> Select read only text with C-SPC + moving. Press a self-inserting key ("x").
> 
> => pre-command-hook is cleared.
> 
> delete-selection-mode does check buffer-read-only, but it does not
> protect against read-only text.

Does the attached patch fix it?


[-- Attachment #2: delsel.patch --]
[-- Type: text/plain, Size: 886 bytes --]

*** 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

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel