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

buffer current before erasing (Bug#4906).

* strokes.el (strokes-update-window-configuration): Make strokes
buffer current before erasing (Bug#4906).
d7063de9 · Chong Yidong · 0566c4bc · d7063de9 · d7063de9
Commit d7063de9 authored Nov 15, 2009 by Chong Yidong
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 3 deletions

lisp/ChangeLog lisp/ChangeLog +3 -0

lisp/strokes.el lisp/strokes.el +2 -3

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
 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.

--- 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)