martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
the comm attribute is present before calling regexp-quote.
This commit is contained in:
Sam Steingold
2009-10-06 19:52:15 +00:00
parent 9972911fda
commit f58f7520cd
2 changed files with 14 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@@ -1,3 +1,8 @@
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

18
lisp/net/tramp-compat.el
View File

@@ -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.