Re: Strange `file-name-sans-extension' behavior

[Richard Stallman]

Does this fix it?

*** files.el.~1.598.~   Fri Jul 26 11:47:31 2002
--- files.el    Sat Jul 27 14:16:42 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))))