emacs: lisp/files.el comparison

comparison lisp/files.el @ 68799:739ab5567adc

(revert-buffer, recover-file): Replace buffer-read-only with inhibit-read-only. Suggested by Stefan Monnier. (revert-buffer): Let insert-file-contents discard buffer-undo-list. Simplify code. (find-file, find-file-existing, revert-buffer): Doc-string fixes.

author	Eli Zaretskii <eliz@gnu.org>
date	Sat, 11 Feb 2006 18:42:23 +0000
parents	3bd95f4f2941
children	9e3243a12c5f b98066f4aa10

comparison

equal deleted inserted replaced

-:8327f0369e4b
+:739ab5567adc
 but the visited file name is available through the minibuffer history:
 type M-n to pull it into the minibuffer.
 Interactively, or if WILDCARDS is non-nil in a call from Lisp,
 expand wildcards (if any) and visit multiple files.  You can
-suppress wildcard expansion by setting `find-file-wildcards'.
+suppress wildcard expansion by setting `find-file-wildcards' to nil.
 To visit a file without any kind of conversion and without
 automatically choosing a major mode, use \\[find-file-literally]."
 (interactive (find-file-read-args "Find file: " nil))
 (let ((value (find-file-noselect filename nil nil wildcards)))
 		(mapcar 'switch-to-buffer (cdr value))))
 (switch-to-buffer-other-frame value))))
 (defun find-file-existing (filename &optional wildcards)
 "Edit the existing file FILENAME.
-Like \\[find-file] but only allow files that exists."
+Like \\[find-file] but only allow a file that exists."
 (interactive (find-file-read-args "Find existing file: " t))
 (unless (file-exists-p filename) (error "%s does not exist" filename))
 (find-file filename wildcards)
 (current-buffer))
 sense of this argument is the reverse of the prefix argument, for the
 sake of backward compatibility.  IGNORE-AUTO is optional, defaulting
 to nil.
 Optional second argument NOCONFIRM means don't ask for confirmation at
-all.  (The local variable `revert-without-query', if non-nil, prevents
+all.  \(The variable `revert-without-query' offers another way to
-confirmation.)
+revert buffers without querying for confirmation.)
 Optional third argument PRESERVE-MODES non-nil means don't alter
 the files modes.  Normally we reinitialize them using `normal-mode'.
 If the value of `revert-buffer-function' is non-nil, it is called to
 			  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)
+			(catch 'found
-			      (found nil))
+			  (dolist (regexp revert-without-query)
-			  (while tail
+			    (when (string-match regexp file-name)
-			    (if (string-match (car tail) file-name)
+			      (throw 'found t)))))
-				(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.
 	       (and (not auto-save-p)
 		    (not (verify-visited-file-modtime (current-buffer)))
 		    (setq buffer-backed-up nil))
-	       ;; Get rid of all undo records for this buffer.
-	       (or (eq buffer-undo-list t)
-		   (setq buffer-undo-list nil))
 	       ;; Effectively copy the after-revert-hook status,
 	       ;; since after-find-file will clobber it.
 	       (let ((global-hook (default-value 'after-revert-hook))
-		     (local-hook-p (local-variable-p 'after-revert-hook))
+		     (local-hook (when (local-variable-p 'after-revert-hook)
-		     (local-hook (and (local-variable-p 'after-revert-hook)
+				   after-revert-hook))
-				      after-revert-hook)))
+		     (inhibit-read-only t))
-		 (let (buffer-read-only
+		 (cond
-		       ;; Don't make undo records for the reversion.
+		  (revert-buffer-insert-file-contents-function
-		       (buffer-undo-list t))
+		   (unless (eq buffer-undo-list t)
-		   (if revert-buffer-insert-file-contents-function
+		     ;; Get rid of all undo records for this buffer.
-		       (funcall revert-buffer-insert-file-contents-function
+		     (setq buffer-undo-list nil))
-				file-name auto-save-p)
+		   ;; Don't make undo records for the reversion.
-		     (if (not (file-exists-p file-name))
+		   (let ((buffer-undo-list t))
-			 (error (if buffer-file-number
+		     (funcall revert-buffer-insert-file-contents-function
-				    "File %s no longer exists!"
+			      file-name auto-save-p)))
-				  "Cannot revert nonexistent file %s")
+		  ((not (file-exists-p file-name))
-				file-name))
+		   (error (if buffer-file-number
-		     ;; Bind buffer-file-name to nil
+			      "File %s no longer exists!"
-		     ;; so that we don't try to lock the file.
+			    "Cannot revert nonexistent file %s")
-		     (let ((buffer-file-name nil))
+			  file-name))
-		       (or auto-save-p
+		  (t
-			   (unlock-buffer)))
+		   ;; Bind buffer-file-name to nil
-		     (widen)
+		   ;; so that we don't try to lock the file.
-		     (let ((coding-system-for-read
+		   (let ((buffer-file-name nil))
-			    ;; Auto-saved file shoule be read by Emacs'
+		     (or auto-save-p
-			    ;; internal coding.
+			 (unlock-buffer)))
-			    (if auto-save-p 'auto-save-coding
+		   (widen)
-			      (or coding-system-for-read
+		   (let ((coding-system-for-read
-				  buffer-file-coding-system-explicit))))
+			  ;; Auto-saved file should be read by Emacs'
-		       ;; This force after-insert-file-set-coding
+			  ;; internal coding.
-		       ;; (called from insert-file-contents) to set
+			  (if auto-save-p 'auto-save-coding
-		       ;; buffer-file-coding-system to a proper value.
+			    (or coding-system-for-read
-		       (kill-local-variable 'buffer-file-coding-system)
+				buffer-file-coding-system-explicit))))
+		     ;; This force after-insert-file-set-coding
-		       ;; Note that this preserves point in an intelligent way.
+		     ;; (called from insert-file-contents) to set
-		       (if preserve-modes
+		     ;; buffer-file-coding-system to a proper value.
-			   (let ((buffer-file-format buffer-file-format))
+		     (kill-local-variable 'buffer-file-coding-system)
-			     (insert-file-contents file-name (not auto-save-p)
-						   nil nil t))
+		     ;; Note that this preserves point in an intelligent way.
-			 (insert-file-contents file-name (not auto-save-p)
+		     (if preserve-modes
-					       nil nil t)))))
+			 (let ((buffer-file-format buffer-file-format))
+			   (insert-file-contents file-name (not auto-save-p)
+						 nil nil t))
+		       (insert-file-contents file-name (not auto-save-p)
+					     nil nil t)))))
 		 ;; Recompute the truename in case changes in symlinks
 		 ;; have changed the truename.
 		 (setq buffer-file-truename
 		       (abbreviate-file-name (file-truename buffer-file-name)))
 		 (after-find-file nil nil t t preserve-modes)
 		 ;; Run after-revert-hook as it was before we reverted.
 		 (setq-default revert-buffer-internal-hook global-hook)
-		 (if local-hook-p
+		 (if local-hook
 		     (set (make-local-variable 'revert-buffer-internal-hook)
 			  local-hook)
 		   (kill-local-variable 'revert-buffer-internal-hook))
 		 (run-hooks 'revert-buffer-internal-hook))
 	       t))))))
 		   ;; to emulate what `ls' did in that case.
 		   (insert-directory-safely file switches)
 		   (insert-directory-safely file-name switches))))
 	     (yes-or-no-p (format "Recover auto save file %s? " file-name)))
 	   (switch-to-buffer (find-file-noselect file t))
-	   (let ((buffer-read-only nil)
+	   (let ((inhibit-read-only t)
 		 ;; Keep the current buffer-file-coding-system.
 		 (coding-system buffer-file-coding-system)
 		 ;; Auto-saved file shoule be read with special coding.
 		 (coding-system-for-read 'auto-save-coding))
 	     (erase-buffer)

Mercurial > emacs

comparison lisp/files.el @ 68799:739ab5567adc