comparison lisp/files.el @ 17894:488536bc29c2

(path-separator, parse-colon-path): Doc fixes. (revert-without-query): Renamed from find-file-revert-without-query. (find-file-noselect): Use new option. (revert-buffer): Check the option here too.

17893:ad5fda4d4c36

The truename of a file is found by chasing all links
both at the file level and at the levels of the containing directories."
  :type 'boolean
  :group 'find-file)

(defcustom find-file-revert-without-query
  nil
  "*Specify which files should be reverted without query.
The value is a list of regular expressions.
If the file name matches one of these regular expressions,
then `find-file' reverts the file without querying
if the file has changed on disk and you have not edited the buffer."
  :type 'boolean
  :group 'find-file)

(defvar buffer-file-number nil

(defvar cd-path nil
  "Value of the CDPATH environment variable, as a list.
Not actually set up until the first time you you use it.")

(defvar path-separator ":"
  "Character used to separate concatenated paths.")

(defun parse-colon-path (cd-path)
  "Explode a colon-separated list of paths into a string list."
  (and cd-path
       (let (cd-prefix cd-list (cd-start 0) cd-colon)
	 (setq cd-path (concat cd-path path-separator))
	 (while (setq cd-colon (string-match path-separator cd-path cd-start))
	   (setq cd-list

	      (cond ((not (file-exists-p filename))
		     (error "File %s no longer exists!" filename))
		    ;; Certain files should be reverted automatically
		    ;; if they have changed on disk and not in the buffer.
		    ((and (not (buffer-modified-p buf))
			  (let ((tail find-file-revert-without-query)
				(found nil))
			    (while tail
			      (if (string-match (car tail) filename)
				  (setq found t))
			      (setq tail (cdr tail)))

			  buffer-auto-save-file-name
			buffer-file-name)))
      (cond ((null file-name)
	     (error "Buffer does not seem to be associated with any file"))
	    ((or noconfirm
		 (yes-or-no-p (format "Revert buffer from file %s? "
				      file-name)))
	     (run-hooks 'before-revert-hook)
	     ;; If file was backed up but has changed since,
	     ;; we shd make another backup.

17894:488536bc29c2

The truename of a file is found by chasing all links
both at the file level and at the levels of the containing directories."
  :type 'boolean
  :group 'find-file)

(defcustom revert-without-query
  nil
  "*Specify which files should be reverted without query.
The value is a list of regular expressions.
If the file name matches one of these regular expressions,
then `revert-buffer' reverts the file without querying
if the file has changed on disk and you have not edited the buffer."
  :type 'boolean
  :group 'find-file)

(defvar buffer-file-number nil

(defvar cd-path nil
  "Value of the CDPATH environment variable, as a list.
Not actually set up until the first time you you use it.")

(defvar path-separator ":"
  "Character used to separate directories in search paths.")

(defun parse-colon-path (cd-path)
  "Explode a colon-separated search path into a list of directory names."
  (and cd-path
       (let (cd-prefix cd-list (cd-start 0) cd-colon)
	 (setq cd-path (concat cd-path path-separator))
	 (while (setq cd-colon (string-match path-separator cd-path cd-start))
	   (setq cd-list

	      (cond ((not (file-exists-p filename))
		     (error "File %s no longer exists!" filename))
		    ;; Certain files should be reverted automatically
		    ;; if they have changed on disk and not in the buffer.
		    ((and (not (buffer-modified-p buf))
			  (let ((tail revert-without-query)
				(found nil))
			    (while tail
			      (if (string-match (car tail) filename)
				  (setq found t))
			      (setq tail (cdr tail)))

			  buffer-auto-save-file-name
			buffer-file-name)))
      (cond ((null file-name)
	     (error "Buffer does not seem to be associated with any file"))
	    ((or noconfirm
		 (and (not (buffer-modified-p))
		      (let ((tail revert-without-query)
			    (found nil))
			(while tail
			  (if (string-match (car tail) file-name)
			      (setq found t))
			  (setq tail (cdr tail)))
			found))
		 (yes-or-no-p (format "Revert buffer from file %s? "
				      file-name)))
	     (run-hooks 'before-revert-hook)
	     ;; If file was backed up but has changed since,
	     ;; we shd make another backup.