emacs: lisp/files.el comparison

comparison lisp/files.el @ 13832:44e936e550ae

(save-some-buffers): Don't give message if we queried.

author	Roland McGrath <roland@gnu.org>
date	Sun, 24 Dec 1995 09:25:19 +0000
parents	881e5c4a01cb
children	aa5e493a867d

comparison

equal deleted inserted replaced

-:2b90a48bb3db
+:44e936e550ae
 (or abbreviated-home-dir
 	(setq abbreviated-home-dir
 	      (let ((abbreviated-home-dir "$foo"))
 		(concat "^" (abbreviate-file-name (expand-file-name "~"))
 			"\\(/\\|$\\)"))))
 ;; If FILENAME starts with the abbreviated homedir,
 ;; make it start with `~' instead.
 (if (and (string-match abbreviated-home-dir filename)
 	     ;; If the home dir is just /, don't change it.
 	     (not (and (= (match-end 0) 1)
 		       (= (aref filename 0) ?/)))
 	     (not (and (or (eq system-type 'ms-dos)
 			   (eq system-type 'windows-nt))
 		       (save-match-data
 			 (string-match "^[a-zA-Z]:/$" filename)))))
 	(setq filename
 	      (concat "~"
 find-file-hooks, etc.
 This function ensures that none of these modifications will take place."
 (let ((file-name-handler-alist nil)
 	(format-alist nil)
 	(after-insert-file-functions nil)
 	(find-buffer-file-type-function
 	 (if (fboundp 'find-buffer-file-type)
 	     (symbol-function 'find-buffer-file-type)
 	   nil)))
 (unwind-protect
 	(progn
 	  (while keep-going
 	    (setq keep-going nil)
 	    (let ((alist auto-mode-alist)
 		  (mode nil))
 	      ;; Find first matching alist entry.
 	      (let ((case-fold-search
 		     (memq system-type '(vax-vms windows-nt))))
 		(while (and (not mode) alist)
 		  (if (string-match (car (car alist)) name)
 		      (if (and (consp (cdr (car alist)))
 			       (nth 2 (car alist)))
 			    (read (current-buffer)))))
 		 (or (eq key 'mode)
 		     (setq result (cons (cons key val) result)))
 		 (skip-chars-forward " \t;")))
 	     (setq result (nreverse result))))
 (if (and result
 	       (or (eq enable-local-variables t)
 		   (and enable-local-variables
 			(save-window-excursion
 			  (condition-case nil
 			  (save-excursion
 			    (beginning-of-line)
 			    (set-window-start (selected-window) (point)))
 			  (y-or-n-p (format "Set local variables as specified at end of %s? "
 					    (if buffer-file-name
 						(file-name-nondirectory
 						 buffer-file-name)
 					      (concat "buffer "
 						      (buffer-name))))))))))
 	(let ((continue t)
 	      prefix prefixlen suffix beg
 			    buffer-file-name)))
 		  (setq tempsetmodes t)
 		(error "Attempt to save to a file which you aren't allowed to write"))))))
 (or buffer-backed-up
 	(setq setmodes (backup-buffer)))
 (let ((dir (file-name-directory buffer-file-name)))
 (if (and file-precious-flag
 	       (file-writable-p dir))
 	  ;; If file is precious, write temp name, then rename it.
 	  ;; This requires write access to the containing dir,
 	  ;; which is why we don't try it if we don't have that access.
 				     tempname nil realname
 				     buffer-file-truename)
 		       (setq succeed t))
 	      ;; If writing the temp file fails,
 	      ;; delete the temp file.
 	      (or succeed
 		  (progn
 		    (delete-file tempname)
 		    (set-visited-file-modtime old-modtime))))
 	    ;; Since we have created an entirely new file
 	    ;; and renamed it, make sure it gets the
 Optional argument (the prefix) non-nil means save all with no questions.
 Optional second argument EXITING means ask about certain non-file buffers
 as well as about file buffers."
 (interactive "P")
 (save-window-excursion
-(let ((files-done
+(let* ((queried nil)
-	   (map-y-or-n-p
+	   (files-done
-	    (function
+	    (map-y-or-n-p
-	     (lambda (buffer)
+	     (function
-	       (and (buffer-modified-p buffer)
+	      (lambda (buffer)
-		    (not (buffer-base-buffer buffer))
+		(and (buffer-modified-p buffer)
-		    (or
+		     (not (buffer-base-buffer buffer))
-		     (buffer-file-name buffer)
+		     (or
-		     (and exiting
+		      (buffer-file-name buffer)
-			  (progn
+		      (and exiting
-			    (set-buffer buffer)
+			   (progn
-			    (and buffer-offer-save (> (buffer-size) 0)))))
+			     (set-buffer buffer)
-		    (if arg
+			     (and buffer-offer-save (> (buffer-size) 0)))))
-			t
+		     (if arg
-		      (if (buffer-file-name buffer)
+			 t
-			  (format "Save file %s? "
+		       (setq queried t)
-				  (buffer-file-name buffer))
+		       (if (buffer-file-name buffer)
-			(format "Save buffer %s? "
+			   (format "Save file %s? "
-				(buffer-name buffer)))))))
+				   (buffer-file-name buffer))
-	    (function
+			 (format "Save buffer %s? "
-	     (lambda (buffer)
+				 (buffer-name buffer)))))))
-	       (set-buffer buffer)
+	     (function
-	       (save-buffer)))
+	      (lambda (buffer)
-	    (buffer-list)
+		(set-buffer buffer)
-	    '("buffer" "buffers" "save")
+		(save-buffer)))
-	    (list (list ?\C-r (lambda (buf)
+	     (buffer-list)
-				(view-buffer buf)
+	     '("buffer" "buffers" "save")
-				(setq view-exit-action
+	     (list (list ?\C-r (lambda (buf)
-				      '(lambda (ignore)
+				 (view-buffer buf)
-					 (exit-recursive-edit)))
+				 (setq view-exit-action
-				(recursive-edit)
+				       '(lambda (ignore)
-				;; Return nil to ask about BUF again.
+					  (exit-recursive-edit)))
-				nil)
+				 (recursive-edit)
-			"display the current buffer"))))
+				 ;; Return nil to ask about BUF again.
-	  (abbrevs-done
+				 nil)
-	   (and save-abbrevs abbrevs-changed
+			 "display the current buffer"))))
-		(progn
+	   (abbrevs-done
-		  (if (or arg
+	    (and save-abbrevs abbrevs-changed
-			  (y-or-n-p (format "Save abbrevs in %s? " abbrev-file-name)))
+		 (progn
-		      (write-abbrev-file nil))
+		   (if (or arg
-		  ;; Don't keep bothering user if he says no.
+			   (y-or-n-p (format "Save abbrevs in %s? "
-		  (setq abbrevs-changed nil)
+					     abbrev-file-name)))
-		  t))))
+		       (write-abbrev-file nil))
-(or (> files-done 0) abbrevs-done
+		   ;; Don't keep bothering user if he says no.
+		   (setq abbrevs-changed nil)
+		   t))))
+(or queried (> files-done 0) abbrevs-done
 	  (message "(No files need saving)")))))
 (defun not-modified (&optional arg)
 "Mark current buffer as unmodified, not needing to be saved.
 With prefix arg, mark buffer as modified, so \\[save-buffer] will save.
 (if (not parents)
 	  (make-directory-internal dir)
 	(let ((dir (directory-file-name (expand-file-name dir)))
 	      create-list)
 	  (while (not (file-exists-p dir))
 	    (setq create-list (cons dir create-list)
 		  dir (directory-file-name (file-name-directory dir))))
 	  (while create-list
 	    (make-directory-internal (car create-list))
 	    (setq create-list (cdr create-list))))))))
 	  (if files
 	      (map-y-or-n-p  "Recover %s? "
 			     (lambda (file)
 			       (condition-case nil
 				   (save-excursion (recover-file file))
 				 (error
 				  "Failed to recover `%s'" file)))
 			     files
 			     '("file" "files" "recover"))
 	    (message "No files can be recovered from this session now")))
 (kill-buffer buffer))))

Mercurial > emacs

comparison lisp/files.el @ 13832:44e936e550ae