[Orgmode] Re: [BUG - low] capture with region selected in read only erc buffer

[Carsten Dominik]

On Sep 2, 2010, at 8:52 PM, Matt Lundin wrote:

> Hi Carsten,
>
> Carsten Dominik <address@hidden> writes:
>
> > On Sep 2, 2010, at 1:18 AM, Richard Riley wrote:
> > > If I select a region in, in this case, an erc (emacs irc client)
> > > buffer
> > > in the read only section and then use my global keys to create a new
> > > item using the following "j" template while the text is still  
> > > selected
> > >
> > > ("j" "Journal" entry
> > > (file+datetree "journal.org")
> > > "* %T %?\n  %i\n  %a")
> > >
> > > then I get the following backtrace :-
> > >
> > > Debugger entered--Lisp error: (error "Capture abort: (text-read-
> > > only)")
> > > signal(error ("Capture abort: (text-read-only)"))
> > > error("Capture abort: %s" (text-read-only))
> > > byte-code("\301\302!\203\n
>
> > Fixed, thanks.
>
> This update caused the following error when invoking org-capture on a
> Gnus article:

Fixed, thanks.

- Carsten

> --8<---------------cut here---------------start------------->8---
> Debugger entered--Lisp error: (args-out-of-range 0 401)
>  remove-text-properties(0 401 (read-only t) "[[gnus:address@hidden 
> ][Sebastian Rose: Re: Org-protocol / Chrome on Linux]]")
>  (progn (remove-text-properties 0 (length initial) (quote ...)  
> annotation))
>  (if annotation (progn (remove-text-properties 0 ... ... annotation)))
>  (when annotation (remove-text-properties 0 (length initial)  
> (quote ...) annotation))
>  (let* ((orig-buf ...) (annotation ...) (initial ...) (entry ...))  
> (when initial (remove-text-properties 0 ... ... initial)) (when  
> annotation (remove-text-properties 0 ... ... annotation)) (cond  
> (... ...) (... ...) (t ... ... ... ... ... ... ...)))
>  (cond ((equal goto ...) (org-capture-goto-target)) ((equal  
> goto ...) (org-capture-goto-last-stored)) (t (let* ... ... ... ...)))
>  org-capture(nil)
>  call-interactively(org-capture nil nil)
>  recursive-edit()
>  byte-code("\306  @\307=\203!  debug(error (args-out-of-range 0 401))
>  remove-text-properties(0 401 (read-only t) "[[gnus:address@hidden 
> ][Sebastian Rose: Re: Org-protocol / Chrome on Linux]]")
>  org-capture(nil)
>  call-interactively(org-capture nil nil)
>  recursive-edit()
>  byte-code("\306  @\307=\203!  debug(error (args-out-of-range 0 401))
>  remove-text-properties(0 401 (read-only t) "[[gnus:address@hidden 
> ][Sebastian Rose: Re: Org-protocol / Chrome on Linux]]")
>  org-capture(nil)
>  call-interactively(org-capture nil nil)
> --8<---------------cut here---------------end--------------->8---
>
> Reverting commit d8498a40e815d8604311e9844e6c75bbf074d026 fixed the
> issue.
>
> Thanks,
> Matt

- Carsten