[comp.mail.mh] xmh - rebinding text editing keys

gary@ncar.ucar.EDU (Gary Strand) (10/24/90)

  Has anyone out there re-bound the default bindings for the emacs-like text
  editor that 'xmh' pops up for you?

  I use the old 'Gosling' bindings for my emacs, and until xmh opens up a
  "real" emacs window for composing messages, sending mail, etc. I'd like
  to re-bind the defaults to something closer to what I regularly use.

  Ideally, a section of someone's .Xresources file that does this would be
  nice.

  Please e-mail, and thanks in advance.  
-- 
Gary Strand                                        Look, it's trying to think.
Internet: strandwg@ncar.ucar.edu                      Voicenet: (303) 497-1383

streeter@theory.lcs.mit.edu (Kenneth B. Streeter) (10/24/90)

In article <8923@ncar.ucar.edu> strandwg@ncar.ucar.edu (Gary Strand) writes:
>
>  Has anyone out there re-bound the default bindings for the emacs-like text
>  editor that 'xmh' pops up for you?

>  Please e-mail, and thanks in advance.  


I, too, would be interested in finding a way to do have xmh bring up a
"real" emacs window.  Could people with suggestions mail me a "carbon
copy" of their replies to Gary, or possibly post the suggestions for
the net at large?

--
Kenneth B. Streeter         | ARPA: streeter@im.lcs.mit.edu
MIT LCS, Room NE43-350      | UUCP: ...!uunet!im.lcs.mit.edu!streeter
545 Technology Square       | (617) 253-2614    (work)
Cambridge, MA 02139         | (617) 225-2249    (home)  

klute@heike.informatik.uni-dortmund.de (Rainer Klute) (10/25/90)

In article <1990Oct24.125212.21927@mintaka.lcs.mit.edu>,
streeter@theory.lcs.mit.edu (Kenneth B. Streeter) writes:
|> In article <8923@ncar.ucar.edu> strandwg@ncar.ucar.edu (Gary Strand)
|> writes:
|> >  Has anyone out there re-bound the default bindings for the emacs-like
|> text
|> >  editor that 'xmh' pops up for you?
|> 
|> I, too, would be interested in finding a way to do have xmh bring up a
|> "real" emacs window.  Could people with suggestions mail me a "carbon
|> copy" of their replies to Gary, or possibly post the suggestions for
|> the net at large?

And I would be content if I could simply insert a file, sigh.

-- 
  Dipl.-Inform. Rainer Klute      klute@irb.informatik.uni-dortmund.de
  Univ. Dortmund, IRB             klute@unido.uucp, klute@unido.bitnet
  Postfach 500500         |)|/    Tel.: +49 231 755-4663
D-4600 Dortmund 50        |\|\    Fax : +49 231 755-2386

gary@ncar.ucar.EDU (Gary Strand) (10/26/90)

  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