* 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 fafb931b3c7b16979bdaec25c9e885177da3f313..c626dcd4b9e2e6daf7f6c0a6c5fa6d4192aef5f8 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 0d16eef1c28a4085b4066b9701120977826c7e0d..56b3c7b288829ff774a28d7aaf6fa06ef7e43836 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)))