diff options
| author | Richard M. Stallman | 2004-04-20 20:58:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-04-20 20:58:30 +0000 |
| commit | 6b3b4dbbfcf65ffde08d3b82e5b29db2bb177204 (patch) | |
| tree | 0f50810f2c7d4d87e0b2ab9c9e0fc16228e8950f /lisp/window.el | |
| parent | da932079d0f7a35c0c7567a9c5fd4dbbbe7af077 (diff) | |
| download | emacs-6b3b4dbbfcf65ffde08d3b82e5b29db2bb177204.tar.gz emacs-6b3b4dbbfcf65ffde08d3b82e5b29db2bb177204.zip | |
(split-window-save-restore-data):
Don't update the data if OLD-INFO is nil.
Diffstat (limited to 'lisp/window.el')
| -rw-r--r-- | lisp/window.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/window.el b/lisp/window.el index 91b91cfb158..2b5a4ab161d 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -327,8 +327,9 @@ new mode line." | |||
| 327 | (with-current-buffer (window-buffer) | 327 | (with-current-buffer (window-buffer) |
| 328 | (if view-mode | 328 | (if view-mode |
| 329 | (let ((old-info (assq old-w view-return-to-alist))) | 329 | (let ((old-info (assq old-w view-return-to-alist))) |
| 330 | (push (cons new-w (cons (and old-info (car (cdr old-info))) t)) | 330 | (if old-info |
| 331 | view-return-to-alist))) | 331 | (push (cons new-w (cons (car (cdr old-info)) t)) |
| 332 | view-return-to-alist)))) | ||
| 332 | new-w)) | 333 | new-w)) |
| 333 | 334 | ||
| 334 | (defun split-window-horizontally (&optional arg) | 335 | (defun split-window-horizontally (&optional arg) |