Function: find-file--read-only

find-file--read-only is a byte-compiled function defined in files.el.gz.

Signature

(find-file--read-only FUN FILENAME WILDCARDS)

Source Code

;; Defined in /usr/src/emacs/lisp/files.el.gz
(defun find-file--read-only (fun filename wildcards)
  (unless (or (and wildcards find-file-wildcards
		   (not (file-name-quoted-p filename))
		   (string-match "[[*?]" filename))
	      (file-exists-p filename))
    (error "%s does not exist" filename))
  (let ((value (funcall fun filename wildcards)))
    (mapc (lambda (b) (with-current-buffer b (read-only-mode 1)))
	  (if (listp value) value (list value)))
    value))