Mercurial > emacs
changeset 2447:6ff9eee5cdc9
* timer.el (timer-program): New defconst.
(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.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Thu, 01 Apr 1993 01:07:38 +0000 |
| parents | 11ca45403cf5 |
| children | 0d7fdb12dcdb |
| files | lisp/=timer.el |
| diffstat | 1 files changed, 10 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/=timer.el Wed Mar 31 23:42:37 1993 +0000 +++ b/lisp/=timer.el Thu Apr 01 01:07:38 1993 +0000 @@ -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 @@ (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)