comparison lisp/files.el @ 68063:df1975854c1c

(basic-save-buffer-2): If backing-up failed, reset buffer-backed-up to nil.

68062:a4e1f58469e5

			      buffer-file-name nil t buffer-file-truename)
		(setq success t))
	    ;; If we get an error writing the new file, and we made
	    ;; the backup by renaming, undo the backing-up.
	    (and setmodes (not success)
		 (rename-file (cdr setmodes) buffer-file-name))))))
    setmodes))

(defun diff-buffer-with-file (&optional buffer)
  "View the differences between BUFFER and its associated file.
This requires the external program `diff' to be in your `exec-path'."

68063:df1975854c1c

			      buffer-file-name nil t buffer-file-truename)
		(setq success t))
	    ;; If we get an error writing the new file, and we made
	    ;; the backup by renaming, undo the backing-up.
	    (and setmodes (not success)
		 (progn
		   (rename-file (cdr setmodes) buffer-file-name t)
		   (setq buffer-backed-up nil)))))))
    setmodes))

(defun diff-buffer-with-file (&optional buffer)
  "View the differences between BUFFER and its associated file.
This requires the external program `diff' to be in your `exec-path'."