Mercurial > emacs
comparison lisp/strokes.el @ 106030:cbcd940e3d89
* strokes.el (strokes-update-window-configuration): Make strokes
buffer current before erasing (Bug#4906).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 15 Nov 2009 15:59:05 +0000 |
| parents | 009383a57ce8 |
| children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
| 106029:d749d487704e | 106030:cbcd940e3d89 |
|---|---|
| 1059 (not (buffer-live-p (get-buffer strokes-buffer-name))) | 1059 (not (buffer-live-p (get-buffer strokes-buffer-name))) |
| 1060 (null strokes-window-configuration)) | 1060 (null strokes-window-configuration)) |
| 1061 ;; create `strokes-window-configuration' from scratch... | 1061 ;; create `strokes-window-configuration' from scratch... |
| 1062 (save-excursion | 1062 (save-excursion |
| 1063 (save-window-excursion | 1063 (save-window-excursion |
| 1064 (get-buffer-create strokes-buffer-name) | 1064 (set-buffer (get-buffer-create strokes-buffer-name)) |
| 1065 (set-window-buffer current-window strokes-buffer-name) | 1065 (set-window-buffer current-window strokes-buffer-name) |
| 1066 (delete-other-windows) | 1066 (delete-other-windows) |
| 1067 (fundamental-mode) | 1067 (fundamental-mode) |
| 1068 (auto-save-mode 0) | 1068 (auto-save-mode 0) |
| 1069 (if (featurep 'font-lock) | 1069 (font-lock-mode 0) |
| 1070 (font-lock-mode 0)) | |
| 1071 (abbrev-mode 0) | 1070 (abbrev-mode 0) |
| 1072 (buffer-disable-undo (current-buffer)) | 1071 (buffer-disable-undo (current-buffer)) |
| 1073 (setq truncate-lines nil) | 1072 (setq truncate-lines nil) |
| 1074 (strokes-fill-current-buffer-with-whitespace) | 1073 (strokes-fill-current-buffer-with-whitespace) |
| 1075 (setq strokes-window-configuration (current-window-configuration)) | 1074 (setq strokes-window-configuration (current-window-configuration)) |