Lines Matching +defs:read +defs:only
102 ;; forms-read-only [bool, default nil]
104 ;; read-only (view mode) as opposed to edit mode.
141 ;; forms-read-file-filter [symbol, default nil]
144 ;; has been read. It can be used to transform
152 ;; the effects of `forms-read-file-filter', if any.
170 ;; modified (using text-property `read-only').
171 ;; Also, the read-write fields are shown using a
174 ;; is used to prevent moving into read-only fields.
177 ;; The default face to show read-write fields is
182 ;; read-only text on the screen. If used, this
191 ;; read-write text on the screen.
236 ;; mode. View mode is a read-only mode, whereby you cannot modify the
247 ;; \C-c \C-q forms-toggle-read-only
256 ;; Read-only mode commands:
261 ;; \C-q forms-toggle-read-only
334 (defvar forms-read-only nil
335 "Non-nil means: visit the file in view (read-only) mode.
353 (defvar forms-read-file-filter nil
360 This can be used to undo the effects of `form-read-file-hook'.")
370 This variable is for use by the filter routines only.
386 "The face (a symbol) that is used to display read-only text on the screen."
391 "The face (a symbol) that is used to display read-write text on the screen."
443 "Face used to represent read-only data on the screen.")
446 "Face used to represent read-write data on the screen.")
453 Commands: Equivalent keys in read-only mode:
460 C-c C-q forms-toggle-read-only q
495 (make-local-variable 'forms-read-only)
503 (make-local-variable 'forms-read-file-filter)
509 (setq forms-read-file-filter nil)
514 ;; If running Emacs 19 under X, setup faces to show read-only and
515 ;; read-write fields.
602 (setq buffer-read-only nil)
616 (if forms-read-only
649 (let ((read-file-filter forms-read-file-filter)
651 (if read-file-filter
653 (let ((inhibit-read-only t)
655 (run-hooks 'read-file-filter)
671 (setq ro buffer-read-only)
676 (setq forms-read-only t)))
681 ;; directly to get the text " View " into forms-read-only form buffers. For
682 ;; that reason, this variable must be buffer only.
684 (setq minor-mode-alist (list (list 'forms-read-only " View")))
707 (setq buffer-read-only t)
843 ;; Special treatment for read-only segments.
845 ;; If text is inserted between two read-only segments, there seems to
847 ;; To solve this, read-only segments get the `insert-in-front-hooks'
859 "`insert-in-front-hooks' function for read-only segments."
870 'read-only))
877 (let ((inhibit-read-only t))
890 "`post-command-hook' function for read-only segments."
898 (let ((inhibit-read-only t))
924 (let ((inhibit-read-only t))
932 '(front-sticky (read-only intangible)))))
954 ;; (let ((inhibit-read-only t))
961 ;; 'read-only 1
963 ;; 'rear-nonsticky '(read-only face insert-in-front-hooks)))
980 ;; 'read-only 2
982 ;; 'rear-nonsticky '(read-only face insert-in-front-hooks)))
991 ;; 'read-only 2
993 ;; 'rear-nonsticky '(read-only face insert-in-front-hooks)))
997 ;; '(front-sticky (read-only))))))
1014 (list 'face forms--ro-face ; read-only appearance
1015 'read-only ,@(list (1+ forms--marker))
1018 'rear-nonsticky '(face read-only insert-in-front-hooks
1044 'read-only ,@(list (1+ forms--marker))
1047 'rear-nonsticky '(read-only face insert-in-front-hooks
1121 ;; extract the information up to the following read-only segment.
1127 (if (get-text-property here 'read-only)
1130 (next-single-property-change here 'read-only))
1225 (let ((read-file-filter forms-read-file-filter)
1229 (let ((inhibit-read-only t))
1230 (run-hooks 'read-file-filter))
1261 (use-local-map (if forms-read-only
1272 (define-key forms-mode-map "\C-q" 'forms-toggle-read-only)
1284 ;; `forms-mode-ro-map' replaces the local map when in read-only mode.
1288 (define-key forms-mode-ro-map "q" 'forms-toggle-read-only)
1325 '("Toggle View/Edit" . forms-toggle-read-only))
1352 (put 'forms-insert-record 'menu-enable '(not forms-read-only))
1353 (put 'forms-delete-record 'menu-enable '(not forms-read-only))
1371 '("Toggle View/Edit" . forms-toggle-read-only))
1398 (put 'forms-insert-record 'menu-enable '(not forms-read-only))
1399 (put 'forms-delete-record 'menu-enable '(not forms-read-only))
1510 (setq buffer-read-only nil)
1512 (let ((inhibit-read-only t))
1538 (setq buffer-read-only forms-read-only)
1575 (if forms-read-only
1576 (error "Buffer is read-only"))
1620 (find-file-read-only fn)
1726 (defun forms-toggle-read-only (arg)
1727 "Toggles read-only mode of a forms mode buffer.
1728 With an argument, enables read-only mode if the argument is positive.
1737 forms-read-only)
1740 (let ((ro forms-read-only))
1742 buffer-read-only)
1744 (setq forms-read-only t)
1746 (setq forms-read-only nil))
1747 (if (equal ro forms-read-only)
1752 (if forms-read-only
1755 (setq forms-read-only t)
1776 (if forms-read-only
1816 (if forms-read-only
1838 (list (read-string (concat "Search forward for"
1872 (list (read-string (concat "Search backward for"
1906 Calls `forms-write-file-filter' before, and `forms-read-file-filter'
1911 (read-file-filter forms-read-file-filter)
1914 (let ((inhibit-read-only t))
1924 ;; and then read-file-filter will be mightily confused.
1928 (if read-file-filter
1930 (run-hooks 'read-file-filter)))
1933 ;; Since read-file-filter may perform arbitrary transformations on
2004 (let ((inhibit-read-only t)
2015 (setq buffer-read-only nil)