Mercurial > hg > xemacs-beta

comparison lisp/utils/crontab.el @ 175:2d532a89d707 r20-3b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200
parents 8eaf7971accc
children
comparison
equal deleted inserted replaced
174:bb3568571b84 175:2d532a89d707
95 (insert-file crontab-filename) 95 (insert-file crontab-filename)
96 (call-process "crontab" nil t t "-l"))) 96 (call-process "crontab" nil t t "-l")))
97 97
98 ;; What if crontab returns a fatal ?????? Can't we check the errorlevel ???? 98 ;; What if crontab returns a fatal ?????? Can't we check the errorlevel ????
99 (goto-char (point-min)) 99 (goto-char (point-min))
100 (if (search-forward "crontab:" nil t nil) 100 (if (search-forward-regexp "crontab:\\|no crontab for" nil t nil)
101 (erase-buffer)) 101 (erase-buffer))
102 (if (eobp) 102 (if (eobp)
103 (crontab-initialize)) 103 (crontab-initialize))
104 (goto-line 6) 104 (goto-line 6)
105 (setq buffer-file-name crontab-filename) 105 (setq buffer-file-name crontab-filename)