/[emacs]/emacs/lisp/files.el
ViewVC logotype

Diff of /emacs/lisp/files.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.598 by handa, Fri Jul 26 12:07:26 2002 UTC revision 1.599 by rms, Sat Jul 27 19:09:54 2002 UTC
# Line 2468  except that a leading `.', if any, doesn Line 2468  except that a leading `.', if any, doesn
2468        (if (and (string-match "\\.[^.]*\\'" file)        (if (and (string-match "\\.[^.]*\\'" file)
2469                 (not (eq 0 (match-beginning 0))))                 (not (eq 0 (match-beginning 0))))
2470            (if (setq directory (file-name-directory filename))            (if (setq directory (file-name-directory filename))
2471                (expand-file-name (substring file 0 (match-beginning 0))                ;; Don't use expand-file-name here; if DIRECTORY is relative,
2472                                  directory)                ;; we don't want to expand it.
2473                  (concat directory (substring file 0 (match-beginning 0)))
2474              (substring file 0 (match-beginning 0)))              (substring file 0 (match-beginning 0)))
2475          filename))))          filename))))
2476    

Legend:
Removed from v.1.598  
changed lines
  Added in v.1.599

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26