[Emacs-diffs] emacs/lisp ChangeLog strokes.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/11/15 15:59:08

Modified files:
        lisp           : ChangeLog strokes.el 

Log message:
        * strokes.el (strokes-update-window-configuration): Make strokes
        buffer current before erasing (Bug#4906).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16637&r2=1.16638
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/strokes.el?cvsroot=emacs&r1=1.44&r2=1.45

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16637
retrieving revision 1.16638
diff -u -b -r1.16637 -r1.16638
--- ChangeLog   15 Nov 2009 15:37:17 -0000      1.16637
+++ ChangeLog   15 Nov 2009 15:59:05 -0000      1.16638
@@ -1,5 +1,8 @@
 2009-11-15  Chong Yidong  <address@hidden>
 
+       * 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.

Index: strokes.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/strokes.el,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -b -r1.44 -r1.45
--- strokes.el  13 Nov 2009 22:19:55 -0000      1.44
+++ strokes.el  15 Nov 2009 15:59:07 -0000      1.45
@@ -1061,13 +1061,12 @@
           ;; 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)