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

[Matt Lundin]

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:

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