diff options
| author | Glenn Morris <rgm@gnu.org> | 2004-03-24 18:37:08 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2004-03-24 18:37:08 +0000 |
| commit | d519ea8a53b5786891c628f2cd338a6e0fb88a47 (patch) | |
| tree | 52a213ba88327e23003dfd710f93204039a9fd3e /lisp | |
| parent | 359bff6712a073903ad77086637bb125dd0342e5 (diff) | |
| download | emacs-d519ea8a53b5786891c628f2cd338a6e0fb88a47.tar.gz | |
(calendar-set-mode-line): Use total available mode-line width, rather
than frame-width.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calendar/calendar.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index c1277ca5132..0d38563e637 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -1915,6 +1915,7 @@ Or, for optional MON, YR." font-lock-mode) (font-lock-fontify-buffer)) (and mark-holidays-in-calendar +;;; (calendar-date-is-legal-p today) ; useful for BC dates (mark-calendar-holidays) (sit-for 0)) (unwind-protect @@ -2933,7 +2934,10 @@ Defaults to today's date if DATE is not given." (defun calendar-set-mode-line (str) "Set mode line to STR, centered, surrounded by dashes." (setq mode-line-format - (calendar-string-spread (list str) ?- (frame-width)))) + (calendar-string-spread + (list str) ?- + ;; As per doc of window-width, total visible mode-line length. + (let ((edges (window-edges))) (- (nth 2 edges) (nth 0 edges)))))) (defun calendar-mod (m n) "Non-negative remainder of M/N with N instead of 0." |