Function: reftex-ensure-write-access

reftex-ensure-write-access is a byte-compiled function defined in reftex-global.el.gz.

Signature

(reftex-ensure-write-access FILES)

Documentation

Make sure we have write access to all files in FILES.

Also checks if buffers visiting the files are in read-only mode.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/reftex-global.el.gz
(defun reftex-ensure-write-access (files)
  "Make sure we have write access to all files in FILES.
Also checks if buffers visiting the files are in read-only mode."
  (let (file buf)
    (while (setq file (pop files)) ; Ignore non-file buffers.
      (when (stringp file)
        (unless (file-exists-p file)
          (ding)
          (or (y-or-n-p (format "No such file %s. Continue?" file))
              (error "Abort")))
        (unless (file-writable-p file)
          (ding)
          (or (y-or-n-p (format "No write access to %s. Continue?" file))
              (error "Abort")))
        (when (and (setq buf (find-buffer-visiting file))
                   (with-current-buffer buf
                     buffer-read-only))
          (ding)
          (or (y-or-n-p (format "Buffer %s is read-only.  Continue?"
                                (buffer-name buf)))
              (error "Abort")))))))