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:
parent
baf1a7a4a0
commit
e5aeb5eaec
3 changed files with 7 additions and 7 deletions
|
@ -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
|
||||
|
|
|
@ -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")
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue