diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-04-15 22:04:40 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-04-15 22:04:40 -0400 |
commit | caea9a238590f2d165c74a5941c50946677b87ae (patch) | |
tree | b8114a089b7fe52d8f7fc62b2f766c8f2192143b /lisp/org/org-clock.el | |
parent | 5761a2ecb1a5178d2ea69a39725bdee368a754a5 (diff) | |
download | emacs-caea9a238590f2d165c74a5941c50946677b87ae.tar.gz |
* lisp/org/org-clock.el (org-x11idle-exists-p): Be honest about which
command is actually sent to the shell.
Diffstat (limited to 'lisp/org/org-clock.el')
-rw-r--r-- | lisp/org/org-clock.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el index d21d270b835..41e799f9898 100644 --- a/lisp/org/org-clock.el +++ b/lisp/org/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." |