summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--bookmark-conf.el12
1 files changed, 11 insertions, 1 deletions
diff --git a/bookmark-conf.el b/bookmark-conf.el
index 1b880f7..32a102d 100644
--- a/bookmark-conf.el
+++ b/bookmark-conf.el
@@ -116,7 +116,17 @@
(cond
((and (stringp location)
(not (string= location ""))
- (string-match (rx bos "/ssh:" (group (1+ (not ":"))) ":" (1+ (not ":")) eos) location))
+ (string-match (rx bos "/ssh:"
+ (group (1+ (not ":")))
+ (zero-or-more
+ (and "|"
+ (1+ (not ":"))
+ ":"
+ (1+ (not ":"))))
+ ":"
+ (1+ (not ":"))
+ eos)
+ location))
(setq handler-name
(concat "Tramp - " (match-string 1 location)))
(setq capitalize-p nil)))