瀏覽代碼

Merge branch 'maint'

Conflicts:
	lisp/org-clock.el
Bastien 10 年之前
父節點
當前提交
367d48cbd8
共有 1 個文件被更改,包括 4 次插入4 次删除
  1. 4 4
      lisp/org-clock.el

+ 4 - 4
lisp/org-clock.el

@@ -1093,11 +1093,11 @@ If `only-dangling-p' is non-nil, only ask to resolve dangling
 (defvar org-x11idle-exists-p
 (defvar org-x11idle-exists-p
   ;; Check that x11idle exists
   ;; Check that x11idle exists
   (and (eq window-system 'x)
   (and (eq window-system 'x)
-       (eq (call-process-shell-command
-	    (format "command -v %s" 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
        ;; Check that x11idle can retrieve the idle time
-       (eq (call-process-shell-command org-clock-x11idle-program-name) 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 ()
 (defun org-x11-idle-seconds ()
   "Return the current X11 idle time in seconds."
   "Return the current X11 idle time in seconds."