Mercurial > emacs
comparison lisp/files.el @ 10236:013842475608
(save-buffers-kill-emacs): Fix backward test of value of
run-hook-with-args-until-failure.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 24 Dec 1994 16:41:31 +0000 |
| parents | 04425b872c5b |
| children | 4b66ac3460df |
comparison
equal
deleted
inserted
replaced
| 10235:ff7189e5e459 | 10236:013842475608 |
|---|---|
| 2233 (setq active t)) | 2233 (setq active t)) |
| 2234 (setq processes (cdr processes))) | 2234 (setq processes (cdr processes))) |
| 2235 (or (not active) | 2235 (or (not active) |
| 2236 (yes-or-no-p "Active processes exist; kill them and exit anyway? ")))) | 2236 (yes-or-no-p "Active processes exist; kill them and exit anyway? ")))) |
| 2237 ;; Query the user for other things, perhaps. | 2237 ;; Query the user for other things, perhaps. |
| 2238 (not (run-hook-with-args-until-failure 'kill-emacs-query-functions)) | 2238 (run-hook-with-args-until-failure 'kill-emacs-query-functions) |
| 2239 (kill-emacs))) | 2239 (kill-emacs))) |
| 2240 | 2240 |
| 2241 (define-key ctl-x-map "\C-f" 'find-file) | 2241 (define-key ctl-x-map "\C-f" 'find-file) |
| 2242 (define-key ctl-x-map "\C-q" 'toggle-read-only) | 2242 (define-key ctl-x-map "\C-q" 'toggle-read-only) |
| 2243 (define-key ctl-x-map "\C-r" 'find-file-read-only) | 2243 (define-key ctl-x-map "\C-r" 'find-file-read-only) |