• Michael Albinus's avatar
    Rework Tramp wrt string-match-p, looking-at-p, save-match-data · 66b49fc1
    Michael Albinus authored
    * lisp/net/tramp.el (tramp-find-method, tramp-find-user)
    (tramp-find-host, tramp-dissect-file-name, tramp-make-tramp-file-name)
    (tramp-completion-make-tramp-file-name, tramp-debug-message)
    (tramp-message, tramp-progress-reporter-update)
    (tramp-set-completion-function)
    (tramp-rfn-eshadow-update-overlay)
    (tramp-find-file-name-coding-system-alist)
    (tramp-file-name-for-operation)
    (tramp-use-absolute-autoload-file-names)
    (tramp-get-completion-methods, tramp-get-completion-user-host)
    (tramp-handle-directory-files)
    (tramp-handle-file-name-case-insensitive-p)
    (tramp-handle-file-name-completion, tramp-handle-file-truename)
    (tramp-handle-insert-directory, tramp-handle-load)
    (tramp-handle-shell-command, tramp-action-yesno)
    (tramp-action-yn, tramp-process-actions)
    (tramp-mode-string-to-int, tramp-get-local-locale)
    (tramp-local-host-p):
    * lisp/net/tramp-adb.el (tramp-adb-handle-file-system-info)
    (tramp-adb-handle-directory-files-and-attributes)
    (tramp-adb--gnu-switches-to-ash, tramp-adb-sh-fix-ls-output)
    (tramp-adb-handle-file-name-all-completions)
    (tramp-adb-handle-shell-command)
    (tramp-adb-handle-start-file-process):
    * lisp/net/tramp-archive.el (tramp-archive-dissect-file-name):
    * lisp/net/tramp-cache.el (tramp-get-hash-table)
    (tramp-flush-directory-properties, tramp-flush-file-function):
    * lisp/net/tramp-cmds.el (tramp-reporter-dump-variable)
    (tramp-append-tramp-buffers):
    * lisp/net/tramp-compat.el (tramp-compat-process-running-p):
    * lisp/net/tramp-gvfs.el (tramp-gvfs-handle-expand-file-name)
    (tramp-gvfs-get-file-attributes)
    (tramp-gvfs-handle-file-attributes)
    (tramp-gvfs-monitor-process-filter)
    (tramp-gvfs-handler-mounted-unmounted)
    (tramp-gvfs-connection-mounted-p, tramp-gvfs-mount-spec-entry)
    (tramp-gvfs-mount-spec, tramp-gvfs-maybe-open-connection):
    * lisp/net/tramp-sh.el (tramp-do-file-attributes-with-ls)
    (tramp-do-file-attributes-with-stat)
    (tramp-sh-handle-file-selinux-context)
    (tramp-sh-handle-directory-files-and-attributes)
    (tramp-do-directory-files-and-attributes-with-stat)
    (tramp-sh-handle-file-name-all-completions)
    (tramp-sh-handle-dired-compress-file)
    (tramp-sh-handle-insert-directory)
    (tramp-sh-handle-expand-file-name)
    (tramp-sh-handle-start-file-process)
    (tramp-sh-handle-process-file, tramp-sh-handle-write-region)
    (tramp-sh-handle-file-notify-add-watch)
    (tramp-sh-gio-monitor-process-filter)
    (tramp-sh-gvfs-monitor-dir-process-filter)
    (tramp-sh-inotifywait-process-filter)
    (tramp-sh-handle-file-system-info, tramp-maybe-send-script)
    (tramp-find-executable, tramp-open-shell, tramp-find-shell)
    (tramp-open-connection-setup-interactive-shell)
    (tramp-find-inline-encoding, tramp-call-local-coding-command)
    (tramp-compute-multi-hops, tramp-maybe-open-connection)
    (tramp-convert-file-attributes)
    (tramp-make-copy-program-file-name, tramp-get-remote-locale)
    (tramp-get-test-nt-command, tramp-get-remote-stat)
    (tramp-get-inline-coding):
    * lisp/net/tramp-smb.el (tramp-smb-handle-directory-files)
    (tramp-smb-action-get-acl, tramp-smb-handle-file-attributes)
    (tramp-smb-handle-file-name-all-completions)
    (tramp-smb-handle-file-system-info)
    (tramp-smb-handle-file-writable-p)
    (tramp-smb-handle-insert-directory)
    (tramp-smb-handle-make-directory)
    (tramp-smb-handle-make-directory-internal)
    (tramp-smb-handle-start-file-process, tramp-smb-get-localname)
    (tramp-smb-read-file-entry): Use `string-match-p' and
    `looking-at-p'.  Remove superfluous `save-match-data'.  Apply
    `eval-when-compile' on constant concat data.
    
    * lisp/net/tramp-compat.el (tramp-compat-file-name-quoted-p-p):
    Use `string-prefix-p'.
    (tramp-compat-file-name-unquote): Do not use match data.
    66b49fc1
tramp-compat.el 10.7 KB