Mercurial > hg > xemacs-beta

comparison lisp/prim/console.el @ 149:538048ae2ab8 r20-3b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b1
author cvs
date Mon, 13 Aug 2007 09:36:16 +0200
parents 360340f9fd5f
children 8eaf7971accc
comparison
equal deleted inserted replaced
148:f659db2a1f73 149:538048ae2ab8
1 ;;; console.el --- miscellaneous console functions not written in C 1 ;;; console.el --- miscellaneous console functions not written in C
2 2
3 ;;;; Copyright (C) 1994, 1995 Board of Trustees, University of Illinois 3 ;; Copyright (C) 1994, 1995 Board of Trustees, University of Illinois
4 ;;;; Copyright (C) 1995, 1996 Ben Wing 4 ;; Copyright (C) 1995, 1996 Ben Wing
5 5
6 ;; Keywords: internal 6 ;; Keywords: internal
7 7
8 ;; This file is part of XEmacs. 8 ;; This file is part of XEmacs.
9 9
22 ;; Free Software Foundation, 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02111-1307, USA.
24 24
25 ;;; Synched up with: Not in FSF. 25 ;;; Synched up with: Not in FSF.
26 26
27 ;;; Commentary:
28
29 ;;; Code:
30
27 (defun quit-char (&optional console) 31 (defun quit-char (&optional console)
28 "Return the character that causes a QUIT to happen. 32 "Return the character that causes a QUIT to happen.
29 This is normally C-g. Optional arg CONSOLE specifies the console 33 This is normally C-g. Optional arg CONSOLE specifies the console
30 that the information is returned for; nil means the current console." 34 that the information is returned for; nil means the current console."
31 (nth 3 (current-input-mode console))) 35 (nth 3 (current-input-mode console)))
32 36
33 (defun resume-pid-console (pid) 37 (defun resume-pid-console (pid)
34 "Resume the consoles with a controlling process of PID." 38 "Resume the consoles with a controlling process of PID."
35 (mapc (lambda (c) 39 (mapc (lambda (c)
36 (if (and (eq (console-type c) 'tty) 40 (if (and (eq (console-type c) 'tty)
37 (= pid (console-tty-controlling-process c))) 41 (eq pid (console-tty-controlling-process c)))
38 (resume-console c))) 42 (resume-console c)))
39 (console-list)) 43 (console-list))
40 ; documentation for mapc lies! 44 ; documentation for mapc lies!
41 nil) 45 nil)
46
47 ;;; console.el ends here