mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(diff-find-file-name): Only accept regular files, to rule out

Browse Source 
/dev/null, directories, etc.
This commit is contained in:
Glenn Morris 2007-08-27 07:11:57 +00:00
parent c62a495a84
commit f9274544eb
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2007-08-27 Glenn Morris <rgm@gnu.org>
* diff-mode.el (diff-find-file-name): Only accept regular files,
to rule out /dev/null, directories, etc.
* vc-svn.el (vc-svn-diff): If the repository version of all the
files is the same as the specified OLDVERS, do a local diff.

4
lisp/diff-mode.el
View File

@ -682,7 +682,9 @@ PREFIX is only used internally: don't use it."
((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>