how having the basename of a file or directory

[Thierry Volpiatto]

Hi all,
i didn't find any function giving the basename of a file or directory.
I use this actually:


(defun basename (fname)
  (if (file-directory-p fname)
      (let ((dirname (directory-file-name fname))) 
        (file-relative-name
         dirname (file-name-directory dirname)))
      (file-name-nondirectory fname)))

Does it exists already something i missed?

-- 
A+ Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997