View | Details | Raw Unified
Collapse All | Expand All

(-) emacs-22.1.orig/lisp/files.el (-3 / +2 lines)
 Lines 3119-3127    Link Here  
	  (set-default-file-modes ?\700)
	  (set-default-file-modes ?\700)
	  (while (condition-case ()
	  (while (condition-case ()
		     (progn
		     (progn
		       (condition-case nil
 
		       (and (file-exists-p to-name)
 
			   (delete-file to-name)
 
			    (delete-file to-name))
 
			 (file-error nil))
 

            

        
		       (copy-file from-name to-name nil t)
		       (copy-file from-name to-name nil t)

        
		       nil)
		       nil)

        
		   (file-already-exists t))
		   (file-already-exists t))