753 |
diary entries from various included files, each day's entries sorted into |
diary entries from various included files, each day's entries sorted into |
754 |
lexicographic order." |
lexicographic order." |
755 |
:type 'hook |
:type 'hook |
756 |
|
:options '(include-other-diary-files sort-diary-entries) |
757 |
:group 'diary) |
:group 'diary) |
758 |
|
|
759 |
;;;###autoload |
;;;###autoload |
786 |
if that day is a holiday; if you want such days to be shown in the fancy |
if that day is a holiday; if you want such days to be shown in the fancy |
787 |
diary buffer, set the variable `diary-list-include-blanks' to t." |
diary buffer, set the variable `diary-list-include-blanks' to t." |
788 |
:type 'hook |
:type 'hook |
789 |
|
:options '(fancy-diary-display) |
790 |
:group 'diary) |
:group 'diary) |
791 |
|
|
792 |
;;;###autoload |
;;;###autoload |
797 |
and `list-islamic-diary-entries'. The documentation for these functions |
and `list-islamic-diary-entries'. The documentation for these functions |
798 |
describes the style of such diary entries." |
describes the style of such diary entries." |
799 |
:type 'hook |
:type 'hook |
800 |
|
:options '(list-hebrew-diary-entries list-islamic-diary-entries) |
801 |
:group 'diary) |
:group 'diary) |
802 |
|
|
803 |
;;;###autoload |
;;;###autoload |
815 |
part of the mark-diary-entries-hook, you will probably also want to use the |
part of the mark-diary-entries-hook, you will probably also want to use the |
816 |
function `include-other-diary-files' as part of `list-diary-entries-hook'." |
function `include-other-diary-files' as part of `list-diary-entries-hook'." |
817 |
:type 'hook |
:type 'hook |
818 |
|
:options '(mark-included-diary-files) |
819 |
:group 'diary) |
:group 'diary) |
820 |
|
|
821 |
;;;###autoload |
;;;###autoload |
826 |
and `mark-islamic-diary-entries'. The documentation for these functions |
and `mark-islamic-diary-entries'. The documentation for these functions |
827 |
describes the style of such diary entries." |
describes the style of such diary entries." |
828 |
:type 'hook |
:type 'hook |
829 |
|
:options '(mark-hebrew-diary-entries mark-islamic-diary-entries) |
830 |
:group 'diary) |
:group 'diary) |
831 |
|
|
832 |
;;;###autoload |
;;;###autoload |
2569 |
elements replaced by the first three characters taken from the |
elements replaced by the first three characters taken from the |
2570 |
corresponding element of FULL. If optional argument PERIOD is non-nil, |
corresponding element of FULL. If optional argument PERIOD is non-nil, |
2571 |
each element returned has a final `.' character." |
each element returned has a final `.' character." |
2572 |
(let (elem array) |
(let (elem array name) |
2573 |
(dotimes (i (length full)) |
(dotimes (i (length full)) |
2574 |
(setq elem (or (aref abbrev i) |
(setq name (aref full i) |
2575 |
(substring (aref full i) 0 calendar-abbrev-length)) |
elem (or (aref abbrev i) |
2576 |
|
(substring name 0 |
2577 |
|
(min calendar-abbrev-length (length name)))) |
2578 |
elem (format "%s%s" elem (if period "." "")) |
elem (format "%s%s" elem (if period "." "")) |
2579 |
array (append array (list elem)))) |
array (append array (list elem)))) |
2580 |
(vconcat array))) |
(vconcat array))) |