# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 951906474 0
# Node ID b54fc217c5c8aa40971ee1e42b106db47aa1efde
# Parent  3288a7cd479662364a6778cff760e1ac9a4be3da
(dired-filename-at-point): Add `@' to valid
file name characters.
(dired-filename-at-point): Handle ange-ftp file names.

diff -r 3288a7cd4796 -r b54fc217c5c8 lisp/dired-x.el
--- a/lisp/dired-x.el	Wed Mar 01 10:27:05 2000 +0000
+++ b/lisp/dired-x.el	Wed Mar 01 10:27:54 2000 +0000
@@ -1611,10 +1611,10 @@
   ;; preference for looking backward when not directly on a symbol.  Not
   ;; perfect - point must be in middle of or end of filename.
 
-  (let ((filename-chars ".a-zA-Z0-9---_/:$+")
+  (let ((filename-chars ".a-zA-Z0-9---_/:$+@")
         (bol (save-excursion (beginning-of-line) (point)))
         (eol (save-excursion (end-of-line) (point)))
-        start end filename)
+        start end filename prefix)
 
     (save-excursion
       ;; First see if just past a filename.
@@ -1630,6 +1630,11 @@
           (progn
             (skip-chars-backward filename-chars)
             (setq start (point))
+	    (setq prefix
+		  (and (string-match "^\\w+@" 
+				     (buffer-substring start eol))
+		       "/"))
+            (goto-char start)
             (if (string-match "[/~]" (char-to-string (preceding-char)))
                 (setq start (1- start)))
             (skip-chars-forward filename-chars))
@@ -1637,7 +1642,7 @@
         (error "No file found around point!"))
 
       ;; Return string.
-      (expand-file-name (buffer-substring start (point))))))
+      (expand-file-name (concat prefix (buffer-substring start (point)))))))
 
 (defun read-filename-at-point (prompt)
   ;;; Returns filename prompting with PROMPT with completion.  If