(shell-command-on-region):

[gnu-emacs] / lisp / flow-ctrl.el

diff --git a/lisp/flow-ctrl.el b/lisp/flow-ctrl.el
index 637db1dca802b03f59a8f2b299edd7da6576fda9..d6af524a49e91b7994d1511b1658b2c244c28371 100644 (file)
--- a/lisp/flow-ctrl.el
+++ b/lisp/flow-ctrl.el
@@ -1,12 +1,14 @@
 ;;; flow-ctrl.el --- help for lusers on cu(1) or ttys with wired-in ^S/^Q flow control
 
+;;; Copyright (C) 1990 Free Software Foundation, Inc.
+;;; Copyright (C) 1991 Kevin Gallagher
+
 ;; Author Kevin Gallagher
 ;; Maintainer: FSF
-;; Last-Modified: 03 Jun 1992
 ;; Adapted-By: ESR
+;; Keywords: hardware
 
-;;; Copyright (C) 1990 Free Software Foundation, Inc.
-;;; Copyright (C) 1991 Kevin Gallagher
+;;; This file is part of GNU Emacs.
 ;;;
 ;;; GNU Emacs is distributed in the hope that it will be useful, but
 ;;; WITHOUT ANY WARRANTY.  No author or distributor accepts
@@ -47,7 +49,7 @@
   "Enable use of flow control; let user type C-s as C-\ and C-q as C-^."
   (interactive)
   ;; Tell emacs to pass C-s and C-q to OS.
-  (set-input-mode nil t)
+  (set-input-mode nil t nil)
   ;; Initialize translate table, saving previous mappings, if any.
   (let ((the-table (make-string 128 0)))
     (let ((i 0)