tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-clock.el (org-x11idle-exists-p): Be honest about which command is actually sent to the shell.

Browse source 
* org-clock.el (org-x11idle-exists-p): Be honest about which
command is actually sent to the shell.
This commit is contained in:
Stefan Monnier 2015-04-16 02:04:45 +00:00 committed by Bastien
parent c000e87888
commit 9ee9d69a34
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/org-clock.el
View file

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