(vhdl-run-when-idle): Don't use timer--triggered

* lisp/progmodes/vhdl-mode.el (vhdl-run-when-idle): Avoid relying
needlessly on internal accessor and fix last change to make sure
we always create a timer.
This commit is contained in:
Stefan Monnier 2024-07-31 04:52:08 -04:00
parent bf0aeaa0d7
commit 44c9c2c845

View file

@ -2338,11 +2338,13 @@ Ignore byte-compiler warnings you might see."
(defun vhdl-run-when-idle (secs repeat function)
"Wait until idle, then run FUNCTION."
(if (fboundp 'start-itimer)
(if (fboundp 'start-itimer) ;;XEmacs
(start-itimer "vhdl-mode" function secs repeat t)
;; explicitly activate timer (necessary when Emacs is already idle)
(when (featurep 'xemacs)
(aset (run-with-idle-timer secs repeat function) 0 nil))))
(let ((timer (run-with-idle-timer secs repeat function)))
;; `run-with-idle-timer' already sets the `triggered' flag to nil,
;; at least since Emacs-24.
(if (< emacs-major-version 24) (aset timer 0 nil)))))
(defun vhdl-warning-when-idle (&rest args)
"Wait until idle, then print out warning STRING and beep."