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

[Richard M. Stallman]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.598 emacs/lisp/files.el:1.599
*** emacs/lisp/files.el:1.598   Fri Jul 26 08:07:26 2002
--- emacs/lisp/files.el Sat Jul 27 15:09:54 2002
***************
*** 2468,2475 ****
        (if (and (string-match "\\.[^.]*\\'" file)
               (not (eq 0 (match-beginning 0))))
          (if (setq directory (file-name-directory filename))
!             (expand-file-name (substring file 0 (match-beginning 0))
!                               directory)
            (substring file 0 (match-beginning 0)))
        filename))))
  
--- 2468,2476 ----
        (if (and (string-match "\\.[^.]*\\'" file)
               (not (eq 0 (match-beginning 0))))
          (if (setq directory (file-name-directory filename))
!             ;; Don't use expand-file-name here; if DIRECTORY is relative,
!             ;; we don't want to expand it.
!             (concat directory (substring file 0 (match-beginning 0)))
            (substring file 0 (match-beginning 0)))
        filename))))