Commit f58f7520 authored by Sam Steingold's avatar Sam Steingold

(tramp-compat-process-running-p): Check that

the comm attribute is present before calling regexp-quote.
parent 9972911f
2009-10-06 Sam Steingold <sds@gnu.org>
* net/tramp-compat.el (tramp-compat-process-running-p): Check that
the comm attribute is present before calling regexp-quote.
2009-10-06 Juanma Barranquero <lekktu@gmail.com>
* play/animate.el (animate-string): For good effect, make sure
......
......@@ -312,15 +312,15 @@ element is not omitted."
(dolist (pid (funcall (symbol-function 'list-system-processes)) result)
(let ((attributes
(funcall (symbol-function 'process-attributes) pid)))
(when
(and (string-equal
(cdr (assoc 'user attributes)) (user-login-name))
;; The returned command name could be truncated
;; to 15 characters. Therefore, we cannot check
;; for `string-equal'.
(string-match
(concat "^" (regexp-quote (cdr (assoc 'comm attributes))))
process-name))
(when (and (string-equal
(cdr (assoc 'user attributes)) (user-login-name))
(let ((comm (cdr (assoc 'comm attributes))))
;; The returned command name could be truncated
;; to 15 characters. Therefore, we cannot check
;; for `string-equal'.
(and comm (string-match
(concat "^" (regexp-quote comm))
process-name))))
(setq result t))))))
;; Fallback, if there is no Lisp support yet.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment