• Home
  • History
  • Annotate
  • Raw
  • Download
  • only in /macosx-10.9.5/emacs-92/emacs/lisp/calendar/

Lines Matching +defs:last +defs:line

378 with the remainder of the line being the diary entry string for
429 If the first line of a diary entry consists only of the date or day name with
430 no trailing blanks or punctuation, then that line is not displayed in the
442 will appear in the diary window without the date line at the beginning. This
727 (update-calendar-mode-line))
735 (update-calendar-mode-line))
794 the mode line), if there are any relevant entries. At the time these
872 The holidays appear in the mode line of the diary buffer, or in the
991 (calendar-last-day-of-month m y)
1104 m (calendar-last-day-of-month m y) y)))))))
1257 to the list (the last Monday would be specified with `-1' instead of `4').
1258 To add the last day of Hanukkah to the list, use
1362 ;; The following are in-line for speed; they can be called thousands of times
1374 ;; 346 calendar-last-day-of-month
1375 ;; 286 hebrew-calendar-last-day-of-month
1378 ;; 163 hebrew-calendar-last-month-of-year
1423 (defsubst calendar-last-day-of-month (month year)
1424 "The last day in MONTH during YEAR."
2066 (update-calendar-mode-line)
2078 ;; line is fully visible
2116 character on the line and does not disturb the first INDENT characters on the
2117 line."
2123 (last (calendar-last-day-of-month month year)))
2139 (calendar-insert-indented "" 0 t);; Force onto following line
2144 (calendar-for-loop i from 1 to last do
2151 (/= i last)
2152 (calendar-insert-indented "" 0 t) ;; Force onto following line
2157 If the optional parameter NEWLINE is t, leave point at start of next line,
2158 inserting a newline if there was no next line; otherwise, leave point after
2162 ;; If line is too short, indent out to that column.
2166 ;; Advance to next line, if requested.
2169 (end-of-line)
2172 (forward-line 1))))
2354 (defvar calendar-mode-line-format
2358 'mouse-face 'mode-line-highlight
2359 'keymap (make-mode-line-mouse-map 'mouse-1
2367 'mouse-face 'mode-line-highlight
2368 'keymap (make-mode-line-mouse-map 'mouse-1 'calendar-goto-info-node))
2374 'mouse-face 'mode-line-highlight
2375 'keymap (make-mode-line-mouse-map
2382 'mouse-face 'mode-line-highlight
2383 'keymap (make-mode-line-mouse-map 'mouse-1 #'calendar-goto-today)))
2387 'mouse-face 'mode-line-highlight
2388 'keymap (make-mode-line-mouse-map
2390 "The mode line of the calendar buffer.
2398 'update-calendar-mode-line, these mode line shows these values for the date
2469 (update-calendar-mode-line)
2503 (defun update-calendar-mode-line ()
2504 "Update the calendar mode line with the current date and date style."
2507 (setq mode-line-format
2512 (mapcar 'eval calendar-mode-line-format))
2514 (force-mode-line-update))))
2624 ;; (list m (calendar-last-day-of-month m year) year)))
2654 (while (let ((mdays (calendar-last-day-of-month month year)))
2752 (last (calendar-last-day-of-month month year)))
2758 (calendar-read (format "Day (1-%d): " last)
2759 (lambda (x) (and (< 0 x) (<= x last))))
2927 day year (<= 1 day) (<= day (calendar-last-day-of-month month year))
3055 If DAY is omitted, it defaults to 1 if N>0, and MONTH's last day otherwise."
3067 (or day (calendar-last-day-of-month month year))
3076 If DAY is omitted, it defaults to 1 if N>0, and MONTH's last day otherwise."
3097 (calendar-set-mode-line
3144 (defun calendar-set-mode-line (str)
3145 "Set mode line to STR, centered, surrounded by dashes."
3147 ;; As per doc of window-width, total visible mode-line length.
3149 (setq mode-line-format
3151 `("-" mode-line-modified