lisp/calendar/diary-lib.el

203 ;    (message "(%s)[%s]=[%s]" (print type) attrvalue ret)
224 	      (goto-char (point-min))
243 	    (goto-char (point-min))
432       (message "Preparing diary...")
458                 (goto-char (point-min))
497                        (goto-char (point-min))
546             (goto-char (point-min))
570   (goto-char (point-min))
592             (message "Can't read included diary file %s" diary-file)
595         (message "Can't find included diary file %s" diary-file)
597     (goto-char (point-min)))
616             (message "%s" msg)
622           (goto-char (point-min))
626           (message  "No diary entries for %s" date-string))
633       (message "Preparing diary...done"))))
644   'action #'diary-goto-entry
647 (defun diary-goto-entry (button)
655           (goto-char (marker-position marker)))
662                  (goto-char (point-min))
667                      (goto-char (match-beginning 1)))))
668           (message "Unable to locate this diary entry")))))
685             (message "%s" msg)
690           (goto-char (point-min))
694           (message  "No diary entries for %s" date-string)))
795       (goto-char (point-min))
800       (message "Preparing diary...done"))))
852               (goto-char (point-min))
889   "Send a mail message showing diary entries for next NDAYS days.
975         (message "Marking diary entries...")
1008               (goto-char (point-min))
1066         (message "Marking diary entries...done")))))
1089     (goto-char (point-min))
1141   (goto-char (point-min))
1159             (message "Can't read included diary file %s" diary-file)
1162         (message "Can't find included diary file %s" diary-file)
1164   (goto-char (point-min)))
1346                   indicated by EXPR, then a suitable message (as specified
1347                   by `diary-remind-message') appears.  In addition to the
1432     (goto-char (point-min))
1494                      (message "Bad sexp at line %d in %s: %s"
1681 (defcustom diary-remind-message
1692 expressions that can involve the keywords `days' (a number), `date' (a list of
1702 SEXP, then a suitable message (as specified by `diary-remind-message' is
1728           (mapconcat 'eval diary-remind-message ""))))
1751   (goto-char (point-max))
1866        '(diary-font-lock-keywords t))
1904 (defvar fancy-diary-font-lock-keywords
1925 Needed to handle multiline keyword in `fancy-diary-font-lock-keywords'."
1926   (goto-char beg)
1934   (goto-char end)
1946        '(fancy-diary-font-lock-keywords
2003 (defun diary-font-lock-keywords ()
2004   "Return a value for the variable `diary-font-lock-keywords'."
2048 (defvar diary-font-lock-keywords (diary-font-lock-keywords)
2057 ;; message formats recognized are customizable through
2082   "Alist of regexps matching message text and replacement text.
2084 The regexp must match the start of the message text containing an
2086 current message, a diary entry is made from the corresponding
2090 a single `%s' which will be replaced with the text of the message's
2094 If the template is actually a function, it is called with the message
2110   "Snarf a diary entry from a message assumed to be from MS Outlook.
2111 Assumes `body' is bound to a string comprising the body of the message and
2114 message contains an appointment, don't make a diary entry."
2138   "Maybe snarf diary entry from current Outlook-generated message.
2161   "Maybe snarf diary entry from Outlook-generated message in Gnus.
2180 	  (message "Diary entry added"))))))
2188   "Maybe snarf diary entry from Outlook-generated message in Rmail.
2196 				    (rfc822-goto-eoh)
2202 	  (message "Diary entry added"))))))