* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fafb931..c626dcd 100644 (file)
--- 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 0d16eef..56b3c7b 100644 (file)
--- 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)))