Making a region read-only

[michael-franzese]

I aw writing a function to make a region read only.  I am using
"put-text-property", but I have seen the variable "inhibit-read-only".
What shall I do with it, shall I use it?

(defvar region-rwcycle-state 1)
(defun region-read-write-cycle (start end)
  "Cycles read-only status of a region in a buffer."
  (interactive "*r")

  (pcase region-rwcycle-state
    (1 (message "Disable: Region Read Only")
       (put-text-property start end 'read-only nil)
       (setq region-rwcycle-state 2))

    (2 (message "Enable: Region Read Only")
       (put-text-property start end 'read-only t)
       (setq region-rwcycle-state 1)) ))