mirror of
https://github.com/emacs-exwm/exwm.git
synced 2024-11-23 21:17:59 +01:00
Fix a compatibility issue with Emacs 24
* exwm-core.el (exwm--defer): `time-add' in Emacs 24 only accept lists.
This commit is contained in:
parent
10eb27eddc
commit
f4aa8389fc
1 changed files with 3 additions and 1 deletions
|
@ -126,7 +126,9 @@ Nil can be passed as placeholder."
|
||||||
The action is to call FUNCTION with arguments ARGS. If Emacs is not idle,
|
The action is to call FUNCTION with arguments ARGS. If Emacs is not idle,
|
||||||
defer the action until Emacs is idle. Otherwise, defer the action until at
|
defer the action until Emacs is idle. Otherwise, defer the action until at
|
||||||
least SECS seconds later."
|
least SECS seconds later."
|
||||||
`(run-with-idle-timer (time-add (or (current-idle-time) (- ,secs)) ,secs)
|
`(run-with-idle-timer (+ (float-time (or (current-idle-time)
|
||||||
|
(seconds-to-time (- ,secs))))
|
||||||
|
,secs)
|
||||||
nil
|
nil
|
||||||
,function
|
,function
|
||||||
,@args))
|
,@args))
|
||||||
|
|
Loading…
Reference in a new issue