Mercurial > emacs
comparison lisp/term/x-win.el @ 43869:606bb58da5c4
(emacs-session-save): Add comment that return t means cancel shutdown
| author | Jan Djärv <jan.h.d@swipnet.se> |
|---|---|
| date | Tue, 12 Mar 2002 21:15:07 +0000 |
| parents | 9ec4ee6f4529 |
| children | ca555c0c4e07 |
comparison
equal
deleted
inserted
replaced
| 43868:aa8ab3ba14d1 | 43869:606bb58da5c4 |
|---|---|
| 280 (buf (get-buffer-create (concat " *SES " x-session-id)))) | 280 (buf (get-buffer-create (concat " *SES " x-session-id)))) |
| 281 (when (file-exists-p filename) | 281 (when (file-exists-p filename) |
| 282 (delete-file filename)) | 282 (delete-file filename)) |
| 283 (with-current-buffer buf | 283 (with-current-buffer buf |
| 284 (let ((cancel-shutdown (condition-case nil | 284 (let ((cancel-shutdown (condition-case nil |
| 285 ;; A return of t means cancel the shutdown. | |
| 285 (run-hook-with-args-until-success | 286 (run-hook-with-args-until-success |
| 286 'emacs-save-session-functions) | 287 'emacs-save-session-functions) |
| 287 (error t)))) | 288 (error t)))) |
| 288 (unless cancel-shutdown | 289 (unless cancel-shutdown |
| 289 (write-file filename)) | 290 (write-file filename)) |