Function: forms-toggle-read-only

forms-toggle-read-only is an interactive and byte-compiled function defined in forms.el.gz.

Signature

(forms-toggle-read-only ARG)

Documentation

Toggle read-only mode of a forms mode buffer.

With an argument, enables read-only mode if the argument is positive. Otherwise enables edit mode if the visited file is writable.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/forms.el.gz
;;; Other commands

(defun forms-toggle-read-only (arg)
  "Toggle read-only mode of a forms mode buffer.
With an argument, enables read-only mode if the argument is positive.
Otherwise enables edit mode if the visited file is writable."

  (interactive "P")

  (if (if arg
	  ;; Negative arg means switch it off.
	  (<= (prefix-numeric-value arg) 0)
	;; No arg means toggle.
	forms-read-only)

      ;; Enable edit mode, if possible.
      (let ((ro forms-read-only))
	(if (with-current-buffer forms--file-buffer
	      buffer-read-only)
	    (progn
	      (setq forms-read-only t)
	      (message "No write access to `%s'" forms-file))
	  (setq forms-read-only nil))
	(if (equal ro forms-read-only)
	    nil
	  (forms-mode)))

    ;; Enable view mode.
    (if forms-read-only
	nil
      (forms--checkmod)			; sync
      (setq forms-read-only t)
      (forms-mode))))