Xref: utzoo comp.mail.mh:1195 comp.windows.x:28740
Path: utzoo!attcan!uunet!know!zaphod.mps.ohio-state.edu!ncar!ncar.ucar.EDU!gary
From: gary@ncar.ucar.EDU (Gary Strand)
Newsgroups: comp.mail.mh,comp.windows.x
Subject: Re: xmh - rebinding text editing keys
Message-ID: <8949@ncar.ucar.edu>
Date: 25 Oct 90 18:33:42 GMT
Sender: news@ncar.ucar.edu
Reply-To: strandwg@ncar.ucar.edu (Gary Strand)
Organization: Climate Sensitivity and CO2 Research Group, CGD/NCAR
Lines: 42


  Well, thanks to Per Hedeland (per@erix.ericsson.se), I've figured out how
  to re-bind the Athena Text widget more to my liking. Which, in turn, will
  make the editor under 'xmh' work more like my emacs, with its weirdo key
  bindings.

  This also makes 'xedit' work like my emacs.

  Here's the relevant section from my 'XResources' file:
------------------------------------------------------------------------------
!
! Make text widget more Gosling-ish in general
!
*Text.Translations:	#override \n\
	<Key>D:			  	insert-char() \n\
	Ctrl<Key>X,Ctrl<Key>I:		insert-file() \n\
	Ctrl<Key>A:			beginning-of-line() \n\
	Ctrl<Key>E:			end-of-line() \n\
	Ctrl<Key>F:			forward-word() \n\
	Ctrl<Key>B:			backward-word() \n\
	Ctrl<Key>J:			next-line() \n\
	Ctrl<Key>K:			previous-line() \n\
	Ctrl<Key>P:			previous-page() \n\
	Ctrl<Key>N:			next-page() \n\
	Ctrl<Key>W:			kill-to-end-of-line() \n\
	Ctrl<Key>Y:			unkill() \n\
	Ctrl<Key>H:			backward-character() \n\
	Ctrl<Key>L:			forward-character() \n\
	Ctrl<Key>V:			redraw-display() \n\
	Ctrl<Key>R:			scroll-one-line-down() \n\
	Ctrl<Key>Z:			delete-next-character() \n\
	<Key>Escape,~Meta ~Ctrl<Key>D:	kill-word() \n\
	<Key>Escape,:~Meta<Key>\\<:	beginning-of-file() \n\
	<Key>Escape,:~Meta<Key>\\>:	end-of-file() \n\
	<Key>Escape,:~Meta<Key>]:	forward-paragraph() \n\
	<Key>Escape,:~Meta<Key>[:	backward-paragraph()
------------------------------------------------------------------------------

  Thanks to all who responded.
-- 
Gary Strand                                        Look, it's trying to think.
Internet: strandwg@ncar.ucar.edu                      Voicenet: (303) 497-1383