Mercurial > hg > xemacs-beta

comparison lisp/prim/console.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents ec9a17fef872
children 360340f9fd5f
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details. 18 ;; General Public License for more details.
19 19
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING. If not, write to the 21 ;; along with XEmacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 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 (defun quit-char (&optional console) 27 (defun quit-char (&optional console)
28 "Return the character that causes a QUIT to happen. 28 "Return the character that causes a QUIT to happen.
29 This is normally C-g. Optional arg CONSOLE specifies the console 29 This is normally C-g. Optional arg CONSOLE specifies the console
30 that the information is returned for; nil means the current console." 30 that the information is returned for; nil means the current console."
31 (nth 3 (current-input-mode console))) 31 (nth 3 (current-input-mode console)))
32 32
33 (defun resume-pid-console (pid)
34 "Resume the consoles with a controlling process of PID."
35 (mapc (lambda (c)
36 (if (and (eq (console-type c) 'tty)
37 (= pid (console-tty-controlling-process c)))
38 (resume-console c)))
39 (console-list))
40 ; documentation for mapc lies!
41 nil)