Fix process name matching in 'tramp-process-running-p'
* lisp/net/tramp.el (tramp-process-running-p): Use 'compare-strings' for matching PROCESS-NAME with process command. (Bug#79545) Copyright-paperwork-exempt: yes
This commit is contained in:
committed by
Michael Albinus
parent
217fd4f09e
commit
6a8fda1f33
@@ -6901,7 +6901,7 @@ verbosity of 6."
|
||||
;; The returned command name could be truncated
|
||||
;; to 15 characters. Therefore, we cannot check
|
||||
;; for `string-equal'.
|
||||
((string-prefix-p comm process-name))
|
||||
((eq t (compare-strings comm 0 15 process-name 0 15)))
|
||||
((throw 'result t)))))))))
|
||||
|
||||
;; When calling "emacs -Q", `auth-source-search' won't be called. If
|
||||
|
||||
Reference in New Issue
Block a user