* strokes.el (strokes-update-window-configuration): Make strokes

buffer current before erasing (Bug#4906).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6b2b34df0fc86b0f88146ef4efa94c7966ca75af..5f623e20a9e55d3515a509662b3107216cf4da3b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-11-15  Chong Yidong  <cyd@stupidchicken.com>
 
+       * strokes.el (strokes-update-window-configuration): Make strokes
+       buffer current before erasing (Bug#4906).
+
        * cedet/semantic/idle.el (semantic-idle-summary-mode)
        (semantic-idle-summary-mode): Define using define-minor-mode
        instead of define-semantic-idle-service.

diff --git a/lisp/strokes.el b/lisp/strokes.el
index ba5ca20a2c1b4599b41609c725b20ebac60f0c5c..e2f5093de186b62b52dea165ff96071245f01c8c 100644 (file)
--- a/lisp/strokes.el
+++ b/lisp/strokes.el
@@ -1061,13 +1061,12 @@ This is based on the last time `strokes-window-configuration' was updated."
           ;; create `strokes-window-configuration' from scratch...
           (save-excursion
             (save-window-excursion
-              (get-buffer-create strokes-buffer-name)
+              (set-buffer (get-buffer-create strokes-buffer-name))
               (set-window-buffer current-window strokes-buffer-name)
               (delete-other-windows)
               (fundamental-mode)
               (auto-save-mode 0)
-              (if (featurep 'font-lock)
-                  (font-lock-mode 0))
+              (font-lock-mode 0)
               (abbrev-mode 0)
               (buffer-disable-undo (current-buffer))
               (setq truncate-lines nil)