[Emacs-diffs] Changes to emacs/lisp/time.el

[Richard M. Stallman]

Index: emacs/lisp/time.el
diff -c emacs/lisp/time.el:1.74 emacs/lisp/time.el:1.75
*** emacs/lisp/time.el:1.74     Sun Jan 27 13:14:55 2002
--- emacs/lisp/time.el  Tue Apr 30 13:56:19 2002
***************
*** 46,61 ****
  
  (defcustom display-time-mail-directory nil
    "*Name of mail inbox directory, for indicating existence of new mail.
! Non-nil and not a string means don't check for mail.
! When nil, no checking for mail in directory is done."
    :type '(choice (const :tag "None" nil)
                 (directory :format "%v"))
    :group 'display-time)
  
  (defcustom display-time-mail-function nil
    "*Function to call, for indicating existence of new mail.
! nil means use the default method of checking `display-time-mail-file'
! or files in `display-time-mail-directory'."
    :type '(choice (const :tag "Default" nil)
                 (function))
    :group 'display-time)
--- 46,62 ----
  
  (defcustom display-time-mail-directory nil
    "*Name of mail inbox directory, for indicating existence of new mail.
! Any nonempty regular file in the directory is regarded as newly arrived mail.
! If nil, do not check a directory for arriving mail."
    :type '(choice (const :tag "None" nil)
                 (directory :format "%v"))
    :group 'display-time)
  
  (defcustom display-time-mail-function nil
    "*Function to call, for indicating existence of new mail.
! If nil, that means use the default method: check that the file
! specified by `display-time-mail-file' is nonempty or that the
! directory `display-time-mail-directory' contains nonempty files."
    :type '(choice (const :tag "Default" nil)
                 (function))
    :group 'display-time)