Mercurial > hg > xemacs-beta
comparison lisp/window-xemacs.el @ 2227:8e7b4a0c1a81
[xemacs-hg @ 2004-08-21 17:05:49 by michaels]
2004-08-15 Jan Rychter <jwr@xemacs.org>
* window-xemacs.el (really-set-window-configuration): deal
gracefully with the case when the buffer previously saved in the
configuration (and that we want to switch to) has been
killed. Switch to the next buffer on the buffer-list in that case.
| author | michaels |
|---|---|
| date | Sat, 21 Aug 2004 17:05:51 +0000 |
| parents | c5f86842283a |
| children | 627e25731054 |
comparison
equal
deleted
inserted
replaced
| 2226:9806495ffea0 | 2227:8e7b4a0c1a81 |
|---|---|
| 307 (select-window window-configuration-current-window)))) | 307 (select-window window-configuration-current-window)))) |
| 308 | 308 |
| 309 (setq window-min-width (window-configuration-min-width configuration)) | 309 (setq window-min-width (window-configuration-min-width configuration)) |
| 310 (setq window-min-height (window-configuration-min-height configuration)) | 310 (setq window-min-height (window-configuration-min-height configuration)) |
| 311 | 311 |
| 312 (set-buffer (window-configuration-current-buffer configuration))) | 312 (let ((buffer (window-configuration-current-buffer configuration))) |
| 313 (if (buffer-live-p buffer) | |
| 314 (set-buffer buffer) | |
| 315 (set-buffer (car (buffer-list)))))) | |
| 313 | 316 |
| 314 (defun set-window-configuration-frame-size (configuration) | 317 (defun set-window-configuration-frame-size (configuration) |
| 315 "Restore the frame size of a window configuration." | 318 "Restore the frame size of a window configuration." |
| 316 (set-frame-pixel-size | 319 (set-frame-pixel-size |
| 317 (window-configuration-frame configuration) | 320 (window-configuration-frame configuration) |