From: Marco Wahl <marcowahlsoft@gmail.com>
Date: Wed, 22 Jan 2020 12:58:52 +0000 (+0100)
Subject: Make find-file-at-point respect port numbers in Tramp file name
X-Git-Tag: emacs-28.0.90~7908^2~80
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e88eed95a9b0a4c4d06312a557b6b382ad12b8a3;p=emacs.git

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 66ef0824d8a..ead79b45c0e 100644
--- 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: