Make find-file-at-point respect port numbers in Tramp file name

* lisp/ffap.el (ffap-string-at-point-mode-alist): Respect port
numbers in files names like /ssh:root@127.0.0.1#2222:/root/ (bug#20412).

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 66ef0824d8afa73a96b32d13c56fa53e6e6daa82..ead79b45c0e1a14bdf95ff65761a19de5fada574 100644 (file)
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1080,7 +1080,7 @@ If a given RFC isn't in these then `ffap-rfc-path' is offered."
     ;; Slightly controversial decisions:
     ;; * strip trailing "@", ":" and enclosing "{"/"}".
     ;; * no commas (good for latex)
-    (file "--:\\\\${}+<>@-Z_[:alpha:]~*?" "{<@" "@>;.,!:}")
+    (file "--:\\\\${}+<>@-Z_[:alpha:]~*?#" "{<@" "@>;.,!:}")
     ;; An url, or maybe an email/news message-id:
     (url "--:=&?$+@-Z_[:alpha:]~#,%;*()!'" "^[0-9a-zA-Z]" ":;.,!?")
     ;; Find a string that does *not* contain a colon: