[Emacs-diffs] Changes to emacs/lisp/files.el

[Kai Großjohann]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.653 emacs/lisp/files.el:1.654
*** emacs/lisp/files.el:1.653   Wed Apr 23 21:58:40 2003
--- emacs/lisp/files.el Fri Apr 25 10:14:31 2003
***************
*** 2909,2917 ****
                 (string-match re directory)
                 (substring directory 0 (match-end 0))))))))
          filename
!         (unless (eq (aref filename 0) ?/)
          (setq filename (concat "/" filename)))
!         (unless (eq (aref directory 0) ?/)
          (setq directory (concat "/" directory)))
          (let ((ancestor ".")
              (filename-dir (file-name-as-directory filename)))
--- 2909,2917 ----
                 (string-match re directory)
                 (substring directory 0 (match-end 0))))))))
          filename
!         (unless (file-name-absolute-p filename)
          (setq filename (concat "/" filename)))
!         (unless (file-name-absolute-p directory)
          (setq directory (concat "/" directory)))
          (let ((ancestor ".")
              (filename-dir (file-name-as-directory filename)))