/[emacs]/emacs/lisp/calendar/diary-lib.el
ViewVC logotype

Diff of /emacs/lisp/calendar/diary-lib.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.49 by pj, Mon Jul 16 07:46:48 2001 UTC revision 1.49.4.1 by lektu, Mon Oct 21 09:02:25 2002 UTC
# Line 331  These hooks have the following distinct Line 331  These hooks have the following distinct
331                       (setq d (cdr d)))                       (setq d (cdr d)))
332                     (or entry-found                     (or entry-found
333                         (not diary-list-include-blanks)                         (not diary-list-include-blanks)
334                         (setq diary-entries-list                         (setq diary-entries-list
335                               (append diary-entries-list                               (append diary-entries-list
336                                       (list (list date "" "")))))                                       (list (list date "" "")))))
337                     (setq date                     (setq date
# Line 597  is created." Line 597  is created."
597    
598    
599    
600  (defcustom diary-mail-addr  (defcustom diary-mail-addr
601    (if (boundp 'user-mail-address) user-mail-address nil)    (if (boundp 'user-mail-address) user-mail-address nil)
602    "*Email address that `diary-mail-entries' will send email to."    "*Email address that `diary-mail-entries' will send email to."
603    :group 'diary    :group 'diary
# Line 626  emacs -batch \\ Line 626  emacs -batch \\
626  -eval \"(setq diary-mail-days 3 \\  -eval \"(setq diary-mail-days 3 \\
627               european-calendar-style t \\               european-calendar-style t \\
628               diary-mail-addr \\\"user@host.name\\\" )\" \\               diary-mail-addr \\\"user@host.name\\\" )\" \\
629  -l diary-lib -f diary-mail-entries  -l diary-lib -f diary-mail-entries
630  at -f diary-rem.sh 0200 tomorrow  at -f diary-rem.sh 0200 tomorrow
631    
632  You may have to tweak the syntax of the `at' command to suit your  You may have to tweak the syntax of the `at' command to suit your
# Line 649  to run it every morning at 1am." Line 649  to run it every morning at 1am."
649    
650    
651  (defun diary-name-pattern (string-array &optional fullname)  (defun diary-name-pattern (string-array &optional fullname)
652    "Convert an STRING-ARRAY, an array of strings to a pattern.    "Convert a STRING-ARRAY, an array of strings to a pattern.
653  The pattern will match any of the strings, either entirely or abbreviated  The pattern will match any of the strings, either entirely or abbreviated
654  to three characters.  An abbreviated form will match with or without a period;  to three characters.  An abbreviated form will match with or without a period;
655  If the optional FULLNAME is t, abbreviations will not match, just the full  If the optional FULLNAME is t, abbreviations will not match, just the full
# Line 959  after those with times." Line 959  after those with times."
959    :type 'integer    :type 'integer
960    :group 'diary    :group 'diary
961    :version "20.3")    :version "20.3")
962    
963  (defun diary-entry-time (s)  (defun diary-entry-time (s)
964    "Time at the beginning of the string S in a military-style integer.  For    "Time at the beginning of the string S in a military-style integer.  For
965  example, returns 1325 for 1:25pm.  Returns `diary-unknown-time' (default value  example, returns 1325 for 1:25pm.  Returns `diary-unknown-time' (default value
# Line 967  example, returns 1325 for 1:25pm.  Retur Line 967  example, returns 1325 for 1:25pm.  Retur
967  XX:XX (military time), and XXam, XXAM, XXpm, XXPM, XX:XXam, XX:XXAM XX:XXpm,  XX:XX (military time), and XXam, XXAM, XXpm, XXPM, XX:XXam, XX:XXAM XX:XXpm,
968  or XX:XXPM."  or XX:XXPM."
969    (let ((case-fold-search nil))    (let ((case-fold-search nil))
970      (cond ((string-match;; Military time        (cond ((string-match;; Military time
971              "\\`[ \t\n\\^M]*\\([0-9]?[0-9]\\):?\\([0-9][0-9]\\)\\(\\>\\|[^ap]\\)" s)              "\\`[ \t\n\\^M]*\\([0-9]?[0-9]\\):?\\([0-9][0-9]\\)\\(\\>\\|[^ap]\\)" s)
972             (+ (* 100 (string-to-int             (+ (* 100 (string-to-int
973                        (substring s (match-beginning 1) (match-end 1))))                        (substring s (match-beginning 1) (match-end 1))))
# Line 1126  A number of built-in functions are avail Line 1126  A number of built-in functions are avail
1126                    will appear on the proper Hebrew-date anniversary and on the                    will appear on the proper Hebrew-date anniversary and on the
1127                    day before.  (If `european-calendar-style' is t, the order                    day before.  (If `european-calendar-style' is t, the order
1128                    of the parameters should be changed to DAY, MONTH, YEAR.)                    of the parameters should be changed to DAY, MONTH, YEAR.)
1129                      
1130        %%(diary-rosh-hodesh)        %%(diary-rosh-hodesh)
1131                    Diary entries will be made on the dates of Rosh Hodesh on                    Diary entries will be made on the dates of Rosh Hodesh on
1132                    the Hebrew calendar.  Note that since there is no text, it                    the Hebrew calendar.  Note that since there is no text, it
# Line 1382  appropriate." Line 1382  appropriate."
1382      diary-entry)      diary-entry)
1383    "*Pseudo-pattern giving form of reminder messages in the fancy diary    "*Pseudo-pattern giving form of reminder messages in the fancy diary
1384  display.  display.
1385    
1386  Used by the function `diary-remind', a pseudo-pattern is a list of  Used by the function `diary-remind', a pseudo-pattern is a list of
1387  expressions that can involve the keywords `days' (a number), `date' (a list of  expressions that can involve the keywords `days' (a number), `date' (a list of
1388  month, day, year), and `diary-entry' (a string)."  month, day, year), and `diary-entry' (a string)."
# Line 1428  marked on the calendar." Line 1428  marked on the calendar."
1428    "Add the entry (DATE STRING SPECIFIER) to `diary-entries-list'.    "Add the entry (DATE STRING SPECIFIER) to `diary-entries-list'.
1429  Do nothing if DATE or STRING is nil."  Do nothing if DATE or STRING is nil."
1430    (and date string    (and date string
1431         (setq diary-entries-list         (setq diary-entries-list
1432               (append diary-entries-list (list (list date string specifier))))))               (append diary-entries-list (list (list date string specifier))))))
1433    
1434  (defun make-diary-entry (string &optional nonmarking file)  (defun make-diary-entry (string &optional nonmarking file)

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.49.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26