Commit 01ad61f0 authored by David Kågedal's avatar David Kågedal
Browse files

(lyskom-next-apo-timeout): Gjorde om till en defun.

(lyskom-reset-apo-timeout): Dito.
(lyskom-accept-process-output): Dito.
parent f6757d8c
......@@ -181,18 +181,18 @@ Returns t if the feature is loaded or can be loaded, and nil otherwise."
(defconst lyskom-apo-timeout-vector-max (1- (length lyskom-apo-timeout-vector))
"Maximum index in lyskom-apo-timeout-vector")
(defsubst lyskom-next-apo-timeout ()
(defun lyskom-next-apo-timeout ()
(if (< lyskom-apo-timeout-index lyskom-apo-timeout-vector-max)
(setq lyskom-apo-timeout
(aref lyskom-apo-timeout-vector
(setq lyskom-apo-timeout-index
(1+ lyskom-apo-timeout-index))))))
(defsubst lyskom-reset-apo-timeout ()
(defun lyskom-reset-apo-timeout ()
(setq lyskom-apo-timeout-index -1)
(setq lyskom-apo-timeout 0))
(defsubst lyskom-accept-process-output ()
(defun lyskom-accept-process-output ()
"Call accept-process-output with the correct timeout values."
(lyskom-next-apo-timeout)
(accept-process-output nil 0 lyskom-apo-timeout))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment