Mercurial > hg > xemacs-beta

comparison lisp/prim/files.el @ 181:bfd6434d15b3 r20-3b17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b17
author cvs
date Mon, 13 Aug 2007 09:53:19 +0200
parents 9ad43877534d
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
180:add28d59e586 181:bfd6434d15b3
3022 (let ((val (process-kill-without-query (car processes)))) 3022 (let ((val (process-kill-without-query (car processes))))
3023 (process-kill-without-query (car processes) val) 3023 (process-kill-without-query (car processes) val)
3024 val) 3024 val)
3025 (setq active t)) 3025 (setq active t))
3026 (setq processes (cdr processes))) 3026 (setq processes (cdr processes)))
3027 (or (not active) 3027 (or
3028 (yes-or-no-p "Active processes exist; kill them and exit anyway? ")))) 3028 (not active)
3029 (save-excursion
3030 (save-window-excursion
3031 (delete-other-windows)
3032 (list-processes)
3033 (yes-or-no-p
3034 "Active processes exist; kill them and exit anyway? "))))))
3029 ;; Query the user for other things, perhaps. 3035 ;; Query the user for other things, perhaps.
3030 (run-hook-with-args-until-failure 'kill-emacs-query-functions) 3036 (run-hook-with-args-until-failure 'kill-emacs-query-functions)
3031 (kill-emacs))) 3037 (kill-emacs)))
3032 3038
3033 (defun symlink-expand-file-name (filename) 3039 (defun symlink-expand-file-name (filename)