diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2022-07-27 12:51:11 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2022-07-27 12:51:11 +0200 |
| commit | db4dd28c21f95361de620c6e543d23da5d982fd5 (patch) | |
| tree | 2b9723207893f663a512cc1b63cb601445d303a8 /lisp/net/tramp-cmds.el | |
| parent | 186429888981fb818624847f7356908f253b1bda (diff) | |
| download | emacs-db4dd28c21f95361de620c6e543d23da5d982fd5.tar.gz emacs-db4dd28c21f95361de620c6e543d23da5d982fd5.tar.bz2 emacs-db4dd28c21f95361de620c6e543d23da5d982fd5.zip | |
In Tramp, use `string-empty-p' and `string-equal-ignore-case' consequently
* lisp/net/tramp.el (tramp-find-method):
* lisp/net/tramp-cmds.el (tramp-change-syntax):
* lisp/net/tramp-sh.el (tramp-sh-get-signal-strings)
(tramp-open-connection-setup-interactive-shell): Use `string-empty-p'.
* lisp/net/tramp-compat.el (tramp-compat-string-equal-ignore-case):
New defalias.
* lisp/net/tramp-gvfs.el (tramp-gvfs-handler-mounted-unmounted): Use it.
Diffstat (limited to 'lisp/net/tramp-cmds.el')
| -rw-r--r-- | lisp/net/tramp-cmds.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el index bd2dbf4a1e0..5c8012e553b 100644 --- a/lisp/net/tramp-cmds.el +++ b/lisp/net/tramp-cmds.el @@ -46,7 +46,7 @@ SYNTAX can be one of the symbols `default' (default), (let ((input (completing-read "Enter Tramp syntax: " (tramp-syntax-values) nil t (symbol-name tramp-syntax)))) - (unless (string-equal input "") + (unless (string-empty-p input) (list (intern input))))) (when syntax (customize-set-variable 'tramp-syntax syntax))) |