Mercurial > emacs
comparison lisp/time.el @ 5863:2c5240294c30
(display-time): Use expand-file-name to make file name of wakeup.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 09 Feb 1994 05:48:11 +0000 |
parents | e277328474cc |
children | 5e38d151ac1a |
comparison
equal
deleted
inserted
replaced
5862:0449645855c3 | 5863:2c5240294c30 |
---|---|
72 (setq global-mode-string | 72 (setq global-mode-string |
73 (append global-mode-string '(display-time-string)))) | 73 (append global-mode-string '(display-time-string)))) |
74 (setq display-time-string "") | 74 (setq display-time-string "") |
75 (setq display-time-process | 75 (setq display-time-process |
76 (start-process "display-time" nil | 76 (start-process "display-time" nil |
77 (concat exec-directory "wakeup") | 77 (expand-file-name "wakeup" exec-directory) |
78 (int-to-string display-time-interval))) | 78 (int-to-string display-time-interval))) |
79 (process-kill-without-query display-time-process) | 79 (process-kill-without-query display-time-process) |
80 (set-process-sentinel display-time-process 'display-time-sentinel) | 80 (set-process-sentinel display-time-process 'display-time-sentinel) |
81 (set-process-filter display-time-process 'display-time-filter))))) | 81 (set-process-filter display-time-process 'display-time-filter))))) |
82 | 82 |