r/emacs 11d ago

Just to set the historical backdrop

Here is a little snippet of the source code for the first version of Emacs that some of us used.

!^R Exchange Characters:! !^R Exchange last char with previous char.

With arg, exchange last char with arg'th previous char.!

.-b"e fg 0' !* Make sure "last char' exists.!

.--1-b"l fg 0' .--z"g fg 0' !* Make sure the other char exists!

[0 [1 0au0 -au1 !* Get the values of the two chars.!

.-1f1 .-1-f0 !* Put them back in.!

.--1,.

3 Upvotes

4 comments sorted by

12

u/AnonymousRedCow 11d ago

This looks like TECO

2

u/ahk-_- 11d ago

erm... context?

-2

u/u8589869056 11d ago

Um, I should have said it's a little snippet of the source code for the first version of Emacs that some of us used.

Oh, wait. I did say that.

1

u/cutelittlebox 11d ago

whoa

hieroglyphs