Function: diary-insert-entry-1

diary-insert-entry-1 is a byte-compiled function defined in diary-lib.el.gz.

Signature

(diary-insert-entry-1 &optional TYPE NOMARK MONTHS SYMBOL ABSFUNC)

Documentation

Subroutine to insert a diary entry related to the date at point.

TYPE is the type of entry (monthly or yearly). NOMARK non-nil means make the entry non-marking. Array MONTHS is used in place of calendar-month-name-array. String SYMBOL marks the type of diary entry. Function ABSFUNC converts absolute dates to dates of the appropriate type.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/diary-lib.el.gz
(defun diary-insert-entry-1 (&optional type nomark months symbol absfunc)
  "Subroutine to insert a diary entry related to the date at point.
TYPE is the type of entry (`monthly' or `yearly').  NOMARK non-nil
means make the entry non-marking.  Array MONTHS is used in place
of `calendar-month-name-array'.  String SYMBOL marks the type of
diary entry.  Function ABSFUNC converts absolute dates to dates of
the appropriate type."
  (let ((calendar-date-display-form (if type
                                        (diary-date-display-form type)
                                      calendar-date-display-form))
        (calendar-month-name-array (or months calendar-month-name-array))
        (date (calendar-cursor-to-date t)))
    (diary-make-entry
     (format "%s%s" (or symbol "")
             (calendar-date-string
              (if absfunc
                  (funcall absfunc (calendar-absolute-from-gregorian date))
                date)
              (not absfunc)
              (not type)))
     nomark)))