Minor Tramp cleanups

* lisp/net/tramp-compat.el (tramp-compat-rx): Declare.

* lisp/net/tramp-integration.el (info-lookup-maybe-add-help):
Fix `rx' call.
This commit is contained in:
Michael Albinus 2022-09-18 16:53:49 +02:00
parent baf1a7a4a0
commit e5aeb5eaec
3 changed files with 7 additions and 7 deletions

View file

@ -43,8 +43,7 @@
;; existence, or "file-attributes" caches the result of the function
;; `file-attributes'. These entries have a timestamp, and they
;; expire after `remote-file-name-inhibit-cache' seconds if this
;; variable is set. These properties are taken into account only if
;; the connection is established, or `non-essential' is nil.
;; variable is set.
;;
;; - The key is a process. These are temporary properties related to
;; an open connection. Examples: "scripts" keeps shell script

View file

@ -36,6 +36,7 @@
(require 'shell)
(require 'subr-x)
(declare-function tramp-compat-rx "tramp")
(declare-function tramp-error "tramp")
(declare-function tramp-file-name-handler "tramp")
(declare-function tramp-tramp-file-p "tramp")

View file

@ -217,12 +217,12 @@ NAME must be equal to `tramp-current-connection'."
(info-lookup-maybe-add-help
:mode 'tramp-info-lookup-mode :topic 'symbol
:regexp (rx (+ (not (any "\t\n \"'(),[]`"))))
:doc-spec '(("(tramp)Function Index" nil
(rx bol blank (+ "-") blank (* nonl) ": ")
(rx (| blank eol)))
:doc-spec `(("(tramp)Function Index" nil
,(rx bol blank (+ "-") blank (* nonl) ":" blank)
,(rx (| blank eol)))
("(tramp)Variable Index" nil
(rx bol blank (+ "-") blank (* nonl) ": ")
(rx (| blank eol)))))
,(rx bol blank (+ "-") blank (* nonl) ":" blank)
,(rx (| blank eol)))))
(add-hook
'tramp-integration-unload-hook