diff options
| author | Glenn Morris | 2007-08-27 07:11:57 +0000 |
|---|---|---|
| committer | Glenn Morris | 2007-08-27 07:11:57 +0000 |
| commit | f9274544eb1d197970535bfc5a8f27a23fca9345 (patch) | |
| tree | 57204a8b48b25e5ac4435cdfb236e80a2bb2c0cf | |
| parent | c62a495a84df7fc23d7302657605a73eecc7f5e1 (diff) | |
| download | emacs-f9274544eb1d197970535bfc5a8f27a23fca9345.tar.gz emacs-f9274544eb1d197970535bfc5a8f27a23fca9345.zip | |
(diff-find-file-name): Only accept regular files, to rule out
/dev/null, directories, etc.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/diff-mode.el | 4 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b40e8daab9f..a977ef4e970 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2007-08-27 Glenn Morris <rgm@gnu.org> | 1 | 2007-08-27 Glenn Morris <rgm@gnu.org> |
| 2 | 2 | ||
| 3 | * diff-mode.el (diff-find-file-name): Only accept regular files, | ||
| 4 | to rule out /dev/null, directories, etc. | ||
| 5 | |||
| 3 | * vc-svn.el (vc-svn-diff): If the repository version of all the | 6 | * vc-svn.el (vc-svn-diff): If the repository version of all the |
| 4 | files is the same as the specified OLDVERS, do a local diff. | 7 | files is the same as the specified OLDVERS, do a local diff. |
| 5 | 8 | ||
diff --git a/lisp/diff-mode.el b/lisp/diff-mode.el index be4c7e7b905..68f7995a494 100644 --- a/lisp/diff-mode.el +++ b/lisp/diff-mode.el | |||
| @@ -682,7 +682,9 @@ PREFIX is only used internally: don't use it." | |||
| 682 | ((or (null files) | 682 | ((or (null files) |
| 683 | (setq file (do* ((files files (cdr files)) | 683 | (setq file (do* ((files files (cdr files)) |
| 684 | (file (car files) (car files))) | 684 | (file (car files) (car files))) |
| 685 | ((or (null file) (file-exists-p file)) | 685 | ;; Use file-regular-p to avoid |
| 686 | ;; /dev/null, directories, etc. | ||
| 687 | ((or (null file) (file-regular-p file)) | ||
| 686 | file)))) | 688 | file)))) |
| 687 | file)) | 689 | file)) |
| 688 | ;; <foo>.rej patches implicitly apply to <foo> | 690 | ;; <foo>.rej patches implicitly apply to <foo> |