Commits

Anonymous committed a16aee6

pcl-cvs 2.9.4-patch2 from Stefan Monnier

Comments (0)

Files changed (1)

   "Construct the file name of the backup file for FILEINFO."
   (let* ((dir (cvs-fileinfo->dir fileinfo))
 	 (file (cvs-fileinfo->file fileinfo))
-	 (files (directory-files dir nil
+	 (default-directory (file-name-as-directory (expand-file-name dir)))
+	 (files (directory-files "." nil
 				 (concat "^" (regexp-quote cvs-bakprefix)
 					 (regexp-quote file) "\\.")))
-	 (default-directory dir)
 	 bf)
     (dolist (f files bf)
       (when (and (file-readable-p f)