lisp/calendar/diary-lib.el

51 does nothing.  This function is suitable for execution in a `.emacs' file."
57 (define-obsolete-function-alias 'view-diary-entries 'diary-view-entries)
351 (defvar diary-modify-entry-list-string-function nil
355 The function takes a string argument and must return a string.")
373         (let ((prefix (funcall diary-file-name-prefix-function
377     (and diary-modify-entry-list-string-function
378 	 (setq string (funcall diary-modify-entry-list-string-function
386 (define-obsolete-function-alias 'list-diary-entries 'diary-list-entries)
391 using selective display.  If NUMBER is less than 1, this function does nothing.
410         from other files or to sort the diary entries.  Invoked *once* only,
419         notification function.
443           ;; This kludge is to make customizations to
452         ;; d-s-p is passed to the diary display function.
460                   (let ((ol (make-overlay (point-min) (point-max) nil t nil)))
461                     (set (make-local-variable 'diary-selective-display) t)
505                            ;; Found a nonempty diary entry--make it
563 This function is suitable for use in `list-diary-entries-hook';
672 This function is provided for optional use as the `diary-display-hook'."
696         (make-fancy-diary-buffer)
749                                        (concat "\n" (make-string l ? ))))
750                     (insert ?\n (make-string (+ l longest) ?=) ?\n)))))
771                       (setq temp-face (make-symbol
779                       (make-face temp-face)
791                        (make-overlay (match-beginning 0) (match-end 0))
802 (defun make-fancy-diary-buffer ()
854                       (make-string (length heading) ?=) "\n")
859 (define-obsolete-function-alias 'show-all-diary-entries 'diary-show-all-entries)
862 This function gets rid of the selective display of the diary file so that
928 If the optional argument ABBREV-ARRAY is present, then the function
1051                              (calendar-make-alist
1059                                       (calendar-make-alist
1071 is marked.  See the documentation for the function `list-sexp-diary-entries'."
1134 This function is suitable for use as the `mark-diary-entries-hook'; it enables
1210 (defun sort-diary-entries ()
1212   (setq diary-entries-list (sort diary-entries-list 'diary-entry-compare)))
1691 Used by the function `diary-remind', a pseudo-pattern is a list of
1742 (defun make-diary-entry (string &optional nonmarking file)
1766 Prefix arg will make the entry nonmarking."
1768   (make-diary-entry (calendar-date-string (calendar-cursor-to-date t) t t)
1773 Prefix arg will make the entry nonmarking."
1775   (make-diary-entry (calendar-day-name (calendar-cursor-to-date t))
1780 Prefix arg will make the entry nonmarking."
1786     (make-diary-entry (calendar-date-string (calendar-cursor-to-date t) t)
1791 Prefix arg will make the entry nonmarking."
1797     (make-diary-entry (calendar-date-string (calendar-cursor-to-date t) t)
1802 Prefix arg will make the entry nonmarking."
1808     (make-diary-entry
1816 Prefix arg will make the entry nonmarking."
1832     (make-diary-entry
1841 Prefix arg will make the entry nonmarking."
1847     (make-diary-entry
1856   (let ((map (make-sparse-keymap)))
1865   (set (make-local-variable 'font-lock-defaults)
1914    '("^\\(Erev \\)?Rosh Hodesh.*" . font-lock-function-name-face)
1923 (defun diary-fancy-font-lock-fontify-region-function (beg end &optional verbose)
1924   "Function to use for `font-lock-fontify-region-function' in Fancy Diary.
1945   (set (make-local-variable 'font-lock-defaults)
1948          (font-lock-fontify-region-function
1949           . diary-fancy-font-lock-fontify-region-function)))
1972 from this array by the function `calendar-abbrev-construct' are
2054 ;; functions `diary-from-outlook-gnus' and `diary-from-outlook-rmail',
2094 If the template is actually a function, it is called with the message
2095 body text as argument, and may use `match-string' etc. to make a
2100 			     (function :tag "Unary function providing template")))
2114 message contains an appointment, don't make a diary entry."
2127 		(make-diary-entry
2141 function is called interactively), then if an entry is found the
2147 	       ((memq major-mode '(gnus-summary-mode gnus-article-mode))
2148 		#'diary-from-outlook-gnus)
2153 (defvar gnus-article-mime-handles)
2154 (defvar gnus-article-buffer)
2156 (autoload 'gnus-fetch-field "gnus-util")
2157 (autoload 'gnus-narrow-to-body "gnus")
2160 (defun diary-from-outlook-gnus (&optional noconfirm)
2163 this function is called interactively), then if an entry is found the
2165 Add this function to `gnus-article-prepare-hook' to notice appointments
2168   (with-current-buffer gnus-article-buffer
2169     (let ((subject (gnus-fetch-field "subject"))
2170 	  (body (if gnus-article-mime-handles
2173 		    (mm-get-part (nth 1 gnus-article-mime-handles))
2175 		    (gnus-narrow-to-body)
2182 (custom-add-option 'gnus-article-prepare-hook 'diary-from-outlook-gnus)
2190 this function is called interactively), then if an entry is found the