Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/prim/console.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/prim/console.el	Mon Aug 13 09:02:59 2007 +0200
@@ -19,7 +19,7 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with XEmacs; see the file COPYING.  If not, write to the 
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Free Software Foundation, 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
 ;;; Synched up with: Not in FSF.
@@ -30,12 +30,3 @@
 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)