# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 733626458 0
# Node ID 6ff9eee5cdc9d03eb00668b33e10225d0aafc1bf
# Parent  11ca45403cf509aa8934d8454fb463196f19f792
	* 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.

diff -r 11ca45403cf5 -r 6ff9eee5cdc9 lisp/=timer.el
--- 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)