Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

(calendar-set-mode-line): Use total available mode-line width, rather

Browse source 
than frame-width.
This commit is contained in:
Glenn Morris 2004-03-24 18:37:08 +00:00
parent 359bff6712
commit d519ea8a53
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/calendar/calendar.el
View file

@ -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."