Mercurial > emacs
comparison lisp/files.el @ 9212:61ae93bdc652
(save-buffers-kill-emacs): Fix previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 01 Oct 1994 21:07:33 +0000 |
| parents | e537b2e10006 |
| children | da491f38518c |
comparison
equal
deleted
inserted
replaced
| 9211:c7bfa0da167b | 9212:61ae93bdc652 |
|---|---|
| 2218 (setq active t)) | 2218 (setq active t)) |
| 2219 (setq processes (cdr processes))) | 2219 (setq processes (cdr processes))) |
| 2220 (or (not active) | 2220 (or (not active) |
| 2221 (yes-or-no-p "Active processes exist; kill them and exit anyway? ")))) | 2221 (yes-or-no-p "Active processes exist; kill them and exit anyway? ")))) |
| 2222 ;; Query the user for other things, perhaps. | 2222 ;; Query the user for other things, perhaps. |
| 2223 (run-hook-with-args-until-failure 'kill-emacs-query-functions) | 2223 (not (run-hook-with-args-until-failure 'kill-emacs-query-functions)) |
| 2224 (kill-emacs))) | 2224 (kill-emacs))) |
| 2225 | 2225 |
| 2226 (define-key ctl-x-map "\C-f" 'find-file) | 2226 (define-key ctl-x-map "\C-f" 'find-file) |
| 2227 (define-key ctl-x-map "\C-q" 'toggle-read-only) | 2227 (define-key ctl-x-map "\C-q" 'toggle-read-only) |
| 2228 (define-key ctl-x-map "\C-r" 'find-file-read-only) | 2228 (define-key ctl-x-map "\C-r" 'find-file-read-only) |