diff lisp/diff-mode.el @ 82910:292ec9e3a20c

(diff-find-file-name): Only accept regular files, to rule out /dev/null, directories, etc.
author Glenn Morris <rgm@gnu.org>
date Mon, 27 Aug 2007 07:11:32 +0000
parents e5a68f18fcb9
children f3735c349e01 b83d0dadb2a7
line wrap: on
line diff
--- a/lisp/diff-mode.el	Mon Aug 27 07:04:45 2007 +0000
+++ b/lisp/diff-mode.el	Mon Aug 27 07:11:32 2007 +0000
@@ -682,7 +682,9 @@
 	   ((or (null files)
 		(setq file (do* ((files files (cdr files))
 				 (file (car files) (car files)))
-			       ((or (null file) (file-exists-p file))
+			       ;; Use file-regular-p to avoid
+			       ;; /dev/null, directories, etc.
+			       ((or (null file) (file-regular-p file))
 				file))))
 	    file))
        ;; <foo>.rej patches implicitly apply to <foo>