mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

* timer.el (timer-program): New defconst.

Browse source 
(run-at-time): Use timer-program as the name of the program the
	subprocess should run, and search for it in exec-directory, rather
	than checking the entire exec path.
This commit is contained in:
Jim Blandy 1993-04-01 01:07:38 +00:00
parent 9d0f559a4d
commit 77328ee1d3
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/timer.el
View file

@ -28,6 +28,10 @@
;;; Code:
;;; The name of the program to run as the timer subprocess. It should
;;; be in exec-directory.
(defconst timer-program "timer")
(defvar timer-process nil)
(defvar timer-alist ())
(defvar timer-out "")
@ -63,8 +67,12 @@ Relative times may be specified as a series of numbers followed by units:
(cond ((or (not timer-process)
(memq (process-status timer-process) '(exit signal nil)))
(if timer-process (delete-process timer-process))
(setq timer-process (let ((process-connection-type nil))
(start-process "timer" nil "timer"))
(setq timer-process
(let ((process-connection-type nil))
;; Don't search the exec path for the timer program;
;; we know exactly which one we want.
(start-process (expand-file-name timer-program exec-directory)
nil "timer"))
timer-alist nil)
(set-process-filter timer-process 'timer-process-filter)
(set-process-sentinel timer-process 'timer-process-sentinel)