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-gvfs.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-gvfs.el')
| -rw-r--r-- | lisp/net/tramp-gvfs.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |