Mercurial > hg > xemacs-beta

diff lisp/prim/console.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 0293115a14e9
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/prim/console.el	Mon Aug 13 08:51:58 2007 +0200
+++ b/lisp/prim/console.el	Mon Aug 13 08:52:29 2007 +0200
@@ -30,3 +30,12 @@
 that the information is returned for; nil means the current console."
   (nth 3 (current-input-mode console)))
 
+(defun resume-pid-console (pid)
+  "Resume the consoles with a controlling process of PID."
+  (mapc (lambda (c) 
+	  (if (and (eq (console-type c) 'tty)
+		   (= pid (console-tty-controlling-process c)))
+	      (resume-console c)))
+	(console-list))
+  ; documentation for mapc lies!
+  nil)