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

[Glenn Morris]

Index: emacs/lisp/calendar/calendar.el
diff -c emacs/lisp/calendar/calendar.el:1.148 
emacs/lisp/calendar/calendar.el:1.149
*** emacs/lisp/calendar/calendar.el:1.148       Sun Aug  3 09:59:13 2003
--- emacs/lisp/calendar/calendar.el     Wed Aug  6 06:10:12 2003
***************
*** 753,758 ****
--- 753,759 ----
  diary entries from various included files, each day's entries sorted into
  lexicographic order."
    :type 'hook
+   :options '(include-other-diary-files sort-diary-entries)
    :group 'diary)
  
  ;;;###autoload
***************
*** 785,790 ****
--- 786,792 ----
  if that day is a holiday; if you want such days to be shown in the fancy
  diary buffer, set the variable `diary-list-include-blanks' to t."
    :type 'hook
+   :options '(fancy-diary-display)
    :group 'diary)
  
  ;;;###autoload
***************
*** 795,800 ****
--- 797,803 ----
  and `list-islamic-diary-entries'.  The documentation for these functions
  describes the style of such diary entries."
    :type 'hook
+   :options '(list-hebrew-diary-entries list-islamic-diary-entries)
    :group 'diary)
  
  ;;;###autoload
***************
*** 812,817 ****
--- 815,821 ----
  part of the mark-diary-entries-hook, you will probably also want to use the
  function `include-other-diary-files' as part of `list-diary-entries-hook'."
    :type 'hook
+   :options '(mark-included-diary-files)
    :group 'diary)
  
  ;;;###autoload
***************
*** 822,827 ****
--- 826,832 ----
  and `mark-islamic-diary-entries'.  The documentation for these functions
  describes the style of such diary entries."
    :type 'hook
+   :options '(mark-hebrew-diary-entries mark-islamic-diary-entries)
    :group 'diary)
  
  ;;;###autoload
***************
*** 2564,2573 ****
  elements replaced by the first three characters taken from the
  corresponding element of FULL.  If optional argument PERIOD is non-nil,
  each element returned has a final `.' character."
!   (let (elem array)
      (dotimes (i (length full))
!       (setq elem (or (aref abbrev i)
!                      (substring (aref full i) 0 calendar-abbrev-length))
              elem (format "%s%s" elem (if period "." ""))
              array (append array (list elem))))
      (vconcat array)))
--- 2569,2580 ----
  elements replaced by the first three characters taken from the
  corresponding element of FULL.  If optional argument PERIOD is non-nil,
  each element returned has a final `.' character."
!   (let (elem array name)
      (dotimes (i (length full))
!       (setq name (aref full i)
!             elem (or (aref abbrev i)
!                      (substring name 0
!                                 (min calendar-abbrev-length (length name))))
              elem (format "%s%s" elem (if period "." ""))
              array (append array (list elem))))
      (vconcat array)))