* lisp/dired-x.el (dired-filename-at-point): Fix 8-year old typo.

Introduced in 2003-01-27T11:36:08Z!fx@gnu.org, 2003/01/27.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fafb931b3c7..c626dcd4b9e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-02-17  Glenn Morris  <rgm@gnu.org>
+
+        * dired-x.el (dired-filename-at-point): Fix 8-year old typo.
+
 2011-02-16  Ken Manheimer  <ken.manheimer@gmail.com>
 
         * allout-widgets.el: New allout extension that shows allout
diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 0d16eef1c28..56b3c7b2888 100644
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -1678,7 +1678,7 @@ Not perfect - point must be in middle of or end of filename."
             (setq prefix
                   (and (string-match
                         "^\\w+@"
-                        (buffer-substring start (line-beginning-position)))
+                        (buffer-substring start (line-end-position)))
                        "/"))
             (goto-char start)
             (if (string-match "[/~]" (char-to-string (preceding-char)))