]> code.delx.au - gnu-emacs/blobdiff - lisp/eshell/esh-proc.el
Update copyright year to 2016
[gnu-emacs] / lisp / eshell / esh-proc.el
index 7575593b9e8954338508410c7aca4ce61ce8d2ab..8c6bad089c58d3fad7914e7579f048d4decb8d71 100644 (file)
@@ -1,6 +1,6 @@
 ;;; esh-proc.el --- process management  -*- lexical-binding:t -*-
 
-;; Copyright (C) 1999-2014 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2016 Free Software Foundation, Inc.
 
 ;; Author: John Wiegley <johnw@gnu.org>
 
@@ -409,7 +409,8 @@ If QUERY is non-nil, query the user with QUERY before calling FUNC."
               (or all
                   (not (nth 2 entry)))
               (or (not query)
-                  (y-or-n-p (format query (process-name (car entry))))))
+                  (y-or-n-p (format-message query
+                                            (process-name (car entry))))))
          (setq result (funcall func (car entry))))
       (unless (memq (process-status (car entry))
                    '(run stop open closed))
@@ -480,11 +481,11 @@ See the variable `eshell-kill-processes-on-exit'."
     (save-window-excursion
       (list-processes)
       (if (or (not (eq eshell-kill-processes-on-exit 'ask))
-             (y-or-n-p (format "Kill processes owned by `%s'? "
-                               (buffer-name))))
+             (y-or-n-p (format-message "Kill processes owned by `%s'? "
+                                       (buffer-name))))
          (eshell-round-robin-kill
           (if (eq eshell-kill-processes-on-exit 'every)
-              "Kill Eshell child process `%s'? ")))
+              (format-message "Kill Eshell child process `%s'? "))))
       (let ((buf (get-buffer "*Process List*")))
        (if (and buf (buffer-live-p buf))
            (kill-buffer buf)))