Mercurial > emacs
comparison lisp/calendar/calendar.el @ 91239:2fcaae6177a5
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-300
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 16 Dec 2007 05:08:49 +0000 |
| parents | 53108e6cea98 e50a2e215441 |
| children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
| 91238:5cf14a2107b5 | 91239:2fcaae6177a5 |
|---|---|
| 3152 (display-buffer other-calendars-buffer)))) | 3152 (display-buffer other-calendars-buffer)))) |
| 3153 | 3153 |
| 3154 (defun calendar-print-day-of-year () | 3154 (defun calendar-print-day-of-year () |
| 3155 "Show day number in year/days remaining in year for date under the cursor." | 3155 "Show day number in year/days remaining in year for date under the cursor." |
| 3156 (interactive) | 3156 (interactive) |
| 3157 (message (calendar-day-of-year-string (calendar-cursor-to-date t)))) | 3157 (message "%s" (calendar-day-of-year-string (calendar-cursor-to-date t)))) |
| 3158 | 3158 |
| 3159 (defun calendar-set-mode-line (str) | 3159 (defun calendar-set-mode-line (str) |
| 3160 "Set mode line to STR, centered, surrounded by dashes." | 3160 "Set mode line to STR, centered, surrounded by dashes." |
| 3161 (let* ((edges (window-edges)) | 3161 (let* ((edges (window-edges)) |
| 3162 ;; As per doc of window-width, total visible mode-line length. | 3162 ;; As per doc of window-width, total visible mode-line length. |