Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!uunet!pyrdc!gmu90x!szoltek From: szoltek@gmu90x.gmu.edu (S.M. Zoltek) Newsgroups: comp.emacs Subject: Re: Problem with GNU Emacs. Keywords: Problem, search-forward, scroll lock. Message-ID: <2470@gmu90x.gmu.edu> Date: 14 Dec 89 05:51:22 GMT References: <3071@uceng.UC.EDU> <14613@eerie.acsu.Buffalo.EDU> Reply-To: szoltek@gmu90x.UUCP (S.M. Zoltek) Distribution: usa Organization: George Mason University, Fairfax, Va. Lines: 53 In article <14613@eerie.acsu.Buffalo.EDU> ross@sybil.cs.Buffalo.EDU.UUCP (Donald Ross) writes: >I must apologize, in response to article <3071@uceng.UC.EDU> >sramacha@uceng.UC.EDU (Sridhar Ramachandran) writes: >> >>I have been having a problem with my GNU Emacs. Whenever I use >>a sequence with C-S in it like search-forward and saving-buffers, >>I scroll lock the terminal. It is as if Emacs hasn't read the >>C-S at all. Then I have to type C-q to unlock the screen. >>I am using a terminal with vt100 settings and default >>Emacs settings. >> >>Can somebody help me out of this problem? >> >>--Sridhar Ramachandran. > >I suggested (enable-flow-control) which I have since learned is local >only to SUNY at Buffalo. Sorry 'bout that, I'll do better next >time 8^). > > Don. >====================================================================== >= =__________________DID_THIS_ACTUALLY_WORK?!______________________= = >= =Don Ross | Univ. of N.Y. at Buffalo | ross@sybil.cs.buffalo.edu = = >====================================================================== I had a similar problem here at GMU and solved it by adding the following lines to my .emacs file. ^s is replaced by ^\ and centering a line is ESC s. In addition, custom tab stops have been defined and text mode is the made the startup mode. CUT HERE AND INCLUDE IN YOUR .EMACS FILE ------------------------------------------------------------------------ ;; Remap ^s and ^q keys because of flow control problems. ;; This will let one type ^\ to get ^s and ;; ^^ to get ^q. On the vt220 typing contro-` sends the code for ^^ ;; First make a translate table that does the identity translation (setq keyboard-translate-table (make-string 128 0)) (let ((i 0)) (while (< i 128) (aset keyboard-translate-table i i) (setq i (1+ i)))) ;; Now alter translations of some characters. (aset keyboard-translate-table ?\^\\ ?\^s) (aset keyboard-translate-table ?\^^ ?\^q) (set-input-mode nil 't) (setq default-major-mode 'text-mode) (setq text-mode-hook 'turn-on-auto-fill) (define-key global-map "\es" 'center-line) (setq tab-stop-list (quote (5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 100 105 110 115 120)))