Mercurial > emacs

comparison lisp/flow-ctrl.el @ 856:583035084779

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
entered into RCS
author Eric S. Raymond <esr@snark.thyrsus.com>
date Fri, 24 Jul 1992 02:36:33 +0000
parents 20674ae6bf52
children 94f7516ccdc1
comparison
equal deleted inserted replaced
855:a3068bc219cf 856:583035084779
47 47
48 (defun evade-flow-control () 48 (defun evade-flow-control ()
49 "Enable use of flow control; let user type C-s as C-\ and C-q as C-^." 49 "Enable use of flow control; let user type C-s as C-\ and C-q as C-^."
50 (interactive) 50 (interactive)
51 ;; Tell emacs to pass C-s and C-q to OS. 51 ;; Tell emacs to pass C-s and C-q to OS.
52 (set-input-mode nil t) 52 (set-input-mode nil t nil)
53 ;; Initialize translate table, saving previous mappings, if any. 53 ;; Initialize translate table, saving previous mappings, if any.
54 (let ((the-table (make-string 128 0))) 54 (let ((the-table (make-string 128 0)))
55 (let ((i 0) 55 (let ((i 0)
56 (j (length keyboard-translate-table))) 56 (j (length keyboard-translate-table)))
57 (while (< i j) 57 (while (< i j)