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) |