diff options
Diffstat (limited to 'lisp/net/tramp-integration.el')
| -rw-r--r-- | lisp/net/tramp-integration.el | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/lisp/net/tramp-integration.el b/lisp/net/tramp-integration.el index 226113d8800..946f9725022 100644 --- a/lisp/net/tramp-integration.el +++ b/lisp/net/tramp-integration.el @@ -85,7 +85,8 @@ special handling of `substitute-in-file-name'." (defun tramp-rfn-eshadow-update-overlay-regexp () "An overlay covering the shadowed part of the filename." - (format "[^%s/~]*\\(/\\|~\\)" tramp-postfix-host-format)) + (rx-to-string + `(: (* (not (any ,tramp-postfix-host-format "/~"))) (or "/" "~")))) (defun tramp-rfn-eshadow-update-overlay () "Update `rfn-eshadow-overlay' to cover shadowed part of minibuffer input. @@ -215,9 +216,13 @@ NAME must be equal to `tramp-current-connection'." ;; Create a pseudo mode `tramp-info-lookup-mode' for Tramp symbol lookup. (info-lookup-maybe-add-help :mode 'tramp-info-lookup-mode :topic 'symbol - :regexp "[^][()`'‘’,\" \t\n]+" - :doc-spec '(("(tramp)Function Index" nil "^ -+ .*: " "\\( \\|$\\)") - ("(tramp)Variable Index" nil "^ -+ .*: " "\\( \\|$\\)"))) + :regexp (rx (+ (not (any "\t\n \"'(),[]`‘’")))) + :doc-spec '(("(tramp)Function Index" nil + (rx bol " " (+ "-") " " (* nonl) ": ") + (rx (group (| " " eol)))) + ("(tramp)Variable Index" nil + (rx bol " " (+ "-") " " (* nonl) ": ") + (rx (group (| " " eol)))))) (add-hook 'tramp-integration-unload-hook |