From 9ee9d69a34e98f69e006fa4e68b02ed6f43f3dbf Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 16 Apr 2015 02:04:45 +0000 Subject: [PATCH] org-clock.el (org-x11idle-exists-p): Be honest about which command is actually sent to the shell. * org-clock.el (org-x11idle-exists-p): Be honest about which command is actually sent to the shell. --- lisp/org-clock.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 319c1c479..a772f03d6 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -1066,9 +1066,11 @@ If `only-dangling-p' is non-nil, only ask to resolve dangling (defvar org-x11idle-exists-p ;; Check that x11idle exists (and (eq window-system 'x) - (eq (call-process-shell-command "command" nil nil nil "-v" org-clock-x11idle-program-name) 0) + (eq 0 (call-process-shell-command + (format "command -v %s" org-clock-x11idle-program-name))) ;; Check that x11idle can retrieve the idle time - (eq (call-process-shell-command org-clock-x11idle-program-name nil nil nil) 0))) + ;; FIXME: Why "..-shell-command" rather than just `call-process'? + (eq 0 (call-process-shell-command org-clock-x11idle-program-name)))) (defun org-x11-idle-seconds () "Return the current X11 idle time in seconds."