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

Diff of /emacs/lisp/uniquify.el

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

revision 1.34 by monnier, Tue Oct 23 22:01:08 2001 UTC revision 1.35 by monnier, Sun May 19 02:11:03 2002 UTC
# Line 199  file name elements.  Arguments cause onl Line 199  file name elements.  Arguments cause onl
199                   (setq bfn (if (eq buffer newbuf)                   (setq bfn (if (eq buffer newbuf)
200                                 (when newbuffile                                 (when newbuffile
201                                   (expand-file-name                                   (expand-file-name
202                                    (if (file-directory-p newbuffile)                                    (directory-file-name newbuffile)))
                                       (directory-file-name newbuffile)  
                                     newbuffile)))  
203                               (uniquify-buffer-file-name buffer)))                               (uniquify-buffer-file-name buffer)))
204                   (setq rawname (uniquify-file-name-nondirectory bfn))                   (setq rawname (uniquify-file-name-nondirectory bfn))
205                   (or (not newbuffile)                   (or (not newbuffile)

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

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