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))
      (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"))))))