Re: Inhibiting read-only

[Jambunathan K <kjambunathan@gmail.com>]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Jambunathan K <kjambunathan@gmail.com> writes:
>
>> Mark editable fields with  (... 'readonly 'editable).
>
> So you're suggesting making the buffer read-onlu, but then putting
> 'read-only 'editable on the input fields?  And then setting
> `inhibit-read-only' to `(editable)' in that buffer?  If that works,
> that's pretty twisty.  :-)

How about something like this to make first line editable and second and
third lines not editable.

(with-current-buffer (generate-new-buffer  "read-only")
  (pop-to-buffer (current-buffer))
  (insert "first line\nsecond line\nthird line")

  (add-text-properties (point-min) (point-max) '(read-only read-only))

  (let ((inhibit-read-only '(read-only)))
    (goto-char (point-min))                   
    (add-text-properties (point-at-bol) (point-at-eol) '(read-only
							 editable)))
  (setq inhibit-read-only '(editable)))