[Emacs-diffs] master 4cbd071: * lisp/calendar/calendar.el: Display buffer before executing body.

[Mark Oteiza]

branch: master
commit 4cbd0713000c5f0a184e16df3556e8408ea3b894
Author: Mark Oteiza <address@hidden>
Commit: Mark Oteiza <address@hidden>

    * lisp/calendar/calendar.el: Display buffer before executing body.
    
    In each use of this macro, the modeline is derived from a window width
    calculation, which will be wrong if (display-buffer) splits the window
    horizontally.
---
 lisp/calendar/calendar.el |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index f188b68..6c1b4c2 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1107,11 +1107,11 @@ with disabled undo.  Leaves point at point-min, 
displays BUFFER."
      (setq buffer-read-only nil
            buffer-undo-list t)
      (erase-buffer)
+     (display-buffer ,buffer)
      ,@body
      (goto-char (point-min))
      (set-buffer-modified-p nil)
-     (setq buffer-read-only t)
-     (display-buffer ,buffer)))
+     (setq buffer-read-only t)))
 
 ;; The following are in-line for speed; they can be called thousands of times
 ;; when looking up holidays or processing the diary.  Here, for example, are