problems with dired-filename-at-point (was Re: dired: goto directory of a file)

["leo" <halloleo@noospaam.myrealbox.com>]

"Barman Brakjoller" <brakjoller@hotmail.com> wrote in message
news:1c58a7c3.0401150420.7ffe6306@posting.google.com...
> > in a dired buffer (particu;ar in a dired-find buffer) it would be very
> > handy to be able to jump to the containing directory of a file:
> >
> > eg. the dired buffer shows the line
> >
> >   -rw-r--r--  1 leo  staff  618385 30 Nov 08:29
Audio/Apps/iCDc4.3.3.dmg.sit
> >
> > then just jump to the directory Audio/Apps in a new dired window.
>
> I came up with the following function which works in most cases I
> guess:
>
> (defun dired-open-containing-directory ()
>   "Opens the directory where the file at point is located"
>   (interactive)
>   (let ((file (dired-filename-at-point)))
>     (string-match "\\(.*/\\)" file)
>     (find-file (substring file 0 (match-end 1)))))

thanks. i have tried this and it works in dired-find buffers but
unfortunatly not in dired subdirs:

dired-filename-at-point doesn't work correctly in subdirs. eg the buffer
shows something like

  c:/_home:
  total 17  free 6651216
  drwxrwxrwx        0 Jan 15 15:13 .
  drwxrwxrwx        0 Jan  1  1970 ..
  drwxrwxrwx        0 Jan  6 16:24 emacs
  [...]

  c:/_home/emacs:
  total 3
  drwxrwxrwx        0 Jan  6 16:24 .
  drwxrwxrwx        0 Jan 15 15:13 ..
  drwxrwxrwx        0 Jan 15 17:41 user-lisp
  [...]

  c:/_home/emacs/user-lisp:
  total 36
  drwxrwxrwx        0 Jan 16 09:23 .
  drwxrwxrwx        0 Jan  6 16:24 ..
  -rw-rw-rw-     4922 Jan 15 17:41 leo-frames.el

now i set the point to the line with leo-frames.el, then
`dired-filename-at-point' tells me c:/_home/leo-frames.el. that's obviously
wrong.

any idea?

leo