From db4dd28c21f95361de620c6e543d23da5d982fd5 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 27 Jul 2022 12:51:11 +0200 Subject: 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. --- lisp/net/tramp-gvfs.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/net/tramp-gvfs.el') diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el index d9afcf93c19..2f97b2cb916 100644 --- a/lisp/net/tramp-gvfs.el +++ b/lisp/net/tramp-gvfs.el @@ -1889,7 +1889,7 @@ Their full names are \"org.gtk.vfs.MountTracker.mounted\" and v 6 "%s %s" signal-name (tramp-gvfs-stringify-dbus-message mount-info)) (tramp-flush-file-property v "/" "list-mounts") - (if (string-equal (downcase signal-name) "unmounted") + (if (tramp-compat-string-equal-ignore-case signal-name "unmounted") (tramp-flush-file-properties v "/") ;; Set mountpoint and location. (tramp-set-file-property v "/" "fuse-mountpoint" fuse-mountpoint) -- cgit v1.2.3