/[emacs]/emacs/lisp/calendar/calendar.el
ViewVC logotype

Diff of /emacs/lisp/calendar/calendar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.148 by gm, Sun Aug 3 13:59:13 2003 UTC revision 1.149 by gm, Wed Aug 6 10:10:12 2003 UTC
# Line 753  in your `.emacs' file to cause the fancy Line 753  in your `.emacs' file to cause the fancy
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
# Line 785  diary buffer will not show days for whic Line 786  diary buffer will not show days for whic
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
# Line 795  relevant entries.  You can use either or Line 797  relevant entries.  You can use either or
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
# Line 812  variable `diary-include-string'.  When y Line 815  variable `diary-include-string'.  When y
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
# Line 822  relevant entries.  You can use either or Line 826  relevant entries.  You can use either or
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
# Line 2564  of full names.  The return value is the Line 2569  of full names.  The return value is the
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)))

Legend:
Removed from v.1.148  
changed lines
  Added in v.1.149

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26