Lines Matching +defs:read +defs:only
38 ;; Somehow it is sometimes possible to make changes near a read only
127 ("read-only" . nil)))
145 serves as a name (for `cpp-highlight-buffer' only)
319 (read-only (eq (not branch) (nth 3 entry)))
330 (if read-only
331 (cpp-make-overlay-read-only overlay)
369 (overlay-put overlay 'modification-hooks '(cpp-signal-read-only))
370 (overlay-put overlay 'insert-in-front-hooks '(cpp-signal-read-only))))
383 (overlay-put overlay 'modification-hooks '(cpp-signal-read-only))
384 (overlay-put overlay 'insert-in-front-hooks '(cpp-signal-read-only)))
390 (overlay-put overlay 'modification-hooks '(cpp-signal-read-only))
391 (overlay-put overlay 'insert-in-front-hooks '(cpp-signal-read-only)))
393 (defun cpp-make-overlay-read-only (overlay)
394 ;; Make overlay read only.
395 (overlay-put overlay 'modification-hooks '(cpp-signal-read-only))
396 (overlay-put overlay 'insert-in-front-hooks '(cpp-signal-read-only))
397 (overlay-put overlay 'insert-behind-hooks '(cpp-signal-read-only)))
404 (defun cpp-signal-read-only (overlay after start end &optional len)
406 ;; Trying to change a read-only overlay.
410 (error "This text is read only")))
474 (setq buffer-read-only t)
489 (buffer-read-only nil)
603 (read-event))
686 (completing-read "Symbol: " cpp-edit-symbols nil t)))
693 (cdr (assoc (completing-read "Branch: " cpp-branch-list nil t)
704 (cdr (assoc (completing-read (if name
720 (cdr (assoc (completing-read "Screen type: "