Index: lisp/files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.879
diff -c -r1.879 files.el
*** lisp/files.el	21 Jan 2007 03:53:11 -0000	1.879
--- lisp/files.el	23 Jan 2007 17:56:38 -0000
***************
*** 1751,1756 ****
--- 1751,1764 ----
  
  (defvar after-find-file-from-revert-buffer nil)
  
+ (defcustom new-files-are-already-modified nil
+   "Non-nil means that new files are set to be modified.
+ This can be useful if you want to create empty files without actually
+ modify the buffer."
+   :group 'files
+   :version "22.1"
+   :type 'boolean)
+ 
  (defun after-find-file (&optional error warn noauto
  				  after-find-file-from-revert-buffer
  				  nomodes)
***************
*** 1787,1793 ****
  		  (format "%s has auto save data; consider M-x recover-this-file"
  			  (file-name-nondirectory buffer-file-name))
  		(setq not-serious t)
! 		(if error "(New file)" nil)))
  	     ((not error)
  	      (setq not-serious t)
  	      "Note: file is write protected")
--- 1795,1804 ----
  		  (format "%s has auto save data; consider M-x recover-this-file"
  			  (file-name-nondirectory buffer-file-name))
  		(setq not-serious t)
! 		(when error
! 		  (when new-files-are-already-modified
! 		    (set-buffer-modified-p 'set))
! 		  "(New file)")))
  	     ((not error)
  	      (setq not-serious t)
  	      "Note: file is write protected")
Index: lisp/ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.10592
diff -C0 -r1.10592 ChangeLog
*** lisp/ChangeLog	23 Jan 2007 07:18:50 -0000	1.10592
--- lisp/ChangeLog	23 Jan 2007 17:56:56 -0000
***************
*** 0 ****
--- 1,6 ----
+ 2007-01-23  Michaël Cadilhac  <michael.cadilhac@lrde.org>
+ 
+ 	* files.el (new-files-are-already-modified): New.  This customizable
+ 	variable tells if new files are to be considered as modified.
+ 	(after-find-file): Handle it.
+