305 |
;; these dirs lead to the actual files starting at the present |
;; these dirs lead to the actual files starting at the present |
306 |
;; directory. So, we don't strip these relative dirs from the |
;; directory. So, we don't strip these relative dirs from the |
307 |
;; file names. This is a heuristic intended to improve guessing |
;; file names. This is a heuristic intended to improve guessing |
308 |
(unless (or (file-name-absolute-p base-dir1) |
(unless (or (and base-dir1 (file-name-absolute-p base-dir1)) |
309 |
(file-name-absolute-p base-dir2)) |
(and base-dir2 (file-name-absolute-p base-dir2))) |
310 |
(setq base-dir1 "" |
(setq base-dir1 "" |
311 |
base-dir2 "")) |
base-dir2 "")) |
312 |
(or (string= (car proposed-file-names) "/dev/null") |
(or (string= (car proposed-file-names) "/dev/null") |