diff options
| author | Michael Albinus | 2023-08-23 11:01:58 +0200 |
|---|---|---|
| committer | Michael Albinus | 2023-08-23 11:01:58 +0200 |
| commit | 5bdffc2ddb2d5fcd1c1dc97ae6c433512ef6e02a (patch) | |
| tree | dceba5468f6de0cc9d18abb4e3d0f02ed5fdb7da | |
| parent | 74eed03bc2a5844ef6608333bc5ee6e0eee6701e (diff) | |
| download | emacs-5bdffc2ddb2d5fcd1c1dc97ae6c433512ef6e02a.tar.gz emacs-5bdffc2ddb2d5fcd1c1dc97ae6c433512ef6e02a.zip | |
Tramp cleanup
* lisp/net/tramp-compat.el (tramp-compat-temporary-file-directory):
Adapt docstring.
| -rw-r--r-- | lisp/net/tramp-cmds.el | 2 | ||||
| -rw-r--r-- | lisp/net/tramp-compat.el | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el index 87651d60328..8d95adb597c 100644 --- a/lisp/net/tramp-cmds.el +++ b/lisp/net/tramp-cmds.el | |||
| @@ -52,6 +52,7 @@ SYNTAX can be one of the symbols `default' (default), | |||
| 52 | (when syntax | 52 | (when syntax |
| 53 | (customize-set-variable 'tramp-syntax syntax))) | 53 | (customize-set-variable 'tramp-syntax syntax))) |
| 54 | 54 | ||
| 55 | ;; Use `match-buffers' starting with Emacs 29.1. | ||
| 55 | ;;;###tramp-autoload | 56 | ;;;###tramp-autoload |
| 56 | (defun tramp-list-tramp-buffers () | 57 | (defun tramp-list-tramp-buffers () |
| 57 | "Return a list of all Tramp connection buffers." | 58 | "Return a list of all Tramp connection buffers." |
| @@ -63,6 +64,7 @@ SYNTAX can be one of the symbols `default' (default), | |||
| 63 | (all-completions | 64 | (all-completions |
| 64 | "*trace tramp" (mapcar #'list (mapcar #'buffer-name (buffer-list)))))) | 65 | "*trace tramp" (mapcar #'list (mapcar #'buffer-name (buffer-list)))))) |
| 65 | 66 | ||
| 67 | ;; Use `match-buffers' starting with Emacs 29.1. | ||
| 66 | ;;;###tramp-autoload | 68 | ;;;###tramp-autoload |
| 67 | (defun tramp-list-remote-buffers () | 69 | (defun tramp-list-remote-buffers () |
| 68 | "Return a list of all buffers with remote `default-directory'." | 70 | "Return a list of all buffers with remote `default-directory'." |
diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el index 5bd3dff3d21..7c10c6530e9 100644 --- a/lisp/net/tramp-compat.el +++ b/lisp/net/tramp-compat.el | |||
| @@ -75,7 +75,7 @@ | |||
| 75 | (prog1 (setq xdg (concat (file-name-as-directory xdg) "emacs")) | 75 | (prog1 (setq xdg (concat (file-name-as-directory xdg) "emacs")) |
| 76 | (make-directory xdg t)) | 76 | (make-directory xdg t)) |
| 77 | (eval (car (get 'temporary-file-directory 'standard-value)) t))) | 77 | (eval (car (get 'temporary-file-directory 'standard-value)) t))) |
| 78 | "The default value of `temporary-file-directory'.") | 78 | "The default value of `temporary-file-directory' for Tramp.") |
| 79 | 79 | ||
| 80 | (defsubst tramp-compat-make-temp-name () | 80 | (defsubst tramp-compat-make-temp-name () |
| 81 | "Generate a local temporary file name (compat function)." | 81 | "Generate a local temporary file name (compat function)." |