Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!olivea!decwrl!mcnc!duke!khera
From: khera@cs.duke.edu (Vivek Khera)
Newsgroups: comp.emacs
Subject: Re: .emacspro to emulate Unipress emacs
Message-ID: <KHERA.91Jun14114249@thneed.cs.duke.edu>
Date: 14 Jun 91 15:42:49 GMT
References: <660@ctycal.UUCP>
Sender: news@duke.cs.duke.edu
Organization: Duke University CS Dept., Durham, NC
Lines: 53
Nntp-Posting-Host: thneed.cs.duke.edu
In-reply-to: pat@ctycal.UUCP's message of 13 Jun 91 20:04:01 GMT
X-Md4-Signature: 09a0690700b94c6f003e816b51b08fba

In article <660@ctycal.UUCP> pat@ctycal.UUCP (Patrick Woo) writes:

   I am going through a growing pain of moving from Unipress Emacs to GNU
   emacs. Can someone out there send me a .emacspro (or is it .emacsrc ?)
   that will make gmacs emulate Unipress Emacs (in terms of keybinding).

i went through this about three years ago.  i don't think i'll ever go
back.  anyway, i still use the Unipress/Gosling key bindings.  here's
how to do it.  put the following lines in your .emacs (that's the name
you were looking for) file.  these are excerpts from my .emacs file,
so they should work ;-)


(set-gosmacs-bindings)
; fix some messed-up ideas about gosmacs key-bindings and functions
(defun save-and-exit ()
  "Passing a true arg to save-buffers-kill-emacs will cause it not to ask
about each buffer, the way it is in gosling emacs."
  (interactive nil)
  (save-buffers-kill-emacs t))

(defun gosmacs-transpose-chars ()
  "The real way to transpose characters with ^T: always transpose the previous
two characters from where the point is."
  (interactive nil)
  (forward-char -1)
  (transpose-chars 1))

(defun my-next-line (arg)
  "Identical to next-line except it does not insert additional lines at the
end of the buffer, which is an absolutely stupid thing to do."
  (interactive "p")
  (if (not (eobp))
      (next-line arg)
    (progn
      (beep)
      (message "End of buffer."))))

(define-key ctl-x-map "\C-f" 'find-file)
(define-key global-map "\eh" 'backward-kill-word)
(define-key global-map "\C-n" 'my-next-line)
(define-key global-map "\C-t" 'gosmacs-transpose-chars)

; redefine help character to be ESC-?
(define-key global-map "\e?" 'help-command)
; and define backspace to do the right thing.
(define-key global-map "\C-h" 'delete-backward-char)

--
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Vick Khera, Gradual Student/Systems Guy   Department of Computer Science
ARPA:   khera@cs.duke.edu                 Duke University
UUCP:   ...!mcnc!duke!khera               Durham, NC 27706     (919) 660-6528