cgit.sxemacs.org Git - sxemacs/blob - lisp/console.el

   1 ;;; console.el --- miscellaneous console functions not written in C
   2
   3 ;; Copyright (C) 1994-5, 1997 Free Software Foundation, Inc.
   4 ;; Copyright (C) 1995, 1996 Ben Wing
   5
   6 ;; Maintainer: SXEmacs Development Team
   7 ;; Keywords: internal, dumped
   8
   9 ;; This file is part of SXEmacs.
  10
  11 ;; SXEmacs is free software: you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation, either version 3 of the License, or
  14 ;; (at your option) any later version.
  15
  16 ;; SXEmacs is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  23
  24 ;;; Synched up with: Not in FSF.
  25
  26 ;;; Commentary:
  27
  28 ;; This file is dumped with SXEmacs.
  29
  30 ;;; Code:
  31
  32 (defun quit-char (&optional console)
  33   "Return the character that causes a QUIT to happen.
  34 This is normally C-g.  Optional arg CONSOLE specifies the console
  35 that the information is returned for; nil means the current console."
  36   (nth 3 (current-input-mode console)))
  37
  38 (defun resume-pid-console (pid)
  39   "Resume the consoles with a controlling process of PID."
  40   (mapc (lambda (c)
  41           (if (and (eq (console-type c) 'tty)
  42                    (eql pid (console-tty-controlling-process c)))
  43               (resume-console c)))
  44         (console-list))
  45   nil)
  46
  47 (provide 'console)
  48
  49 ;;; console.el ends here