home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / emacs / 2930 < prev    next >
Encoding:
Text File  |  1992-08-21  |  1.4 KB  |  35 lines
  1. Path: sparky!uunet!ogicse!das-news.harvard.edu!cantaloupe.srv.cs.cmu.edu!crabapple.srv.cs.cmu.edu!andrew.cmu.edu!jf41+
  2. From: jf41+@andrew.cmu.edu (Jonathan R. Ferro)
  3. Newsgroups: comp.emacs
  4. Subject: Re: Insert Register backwards?
  5. Message-ID: <8eZUq_K00WB_8lyoIT@andrew.cmu.edu>
  6. Date: 22 Aug 92 01:48:58 GMT
  7. Article-I.D.: andrew.8eZUq_K00WB_8lyoIT
  8. References: <1992Aug22.040354.1215@ads.com>
  9. Organization: Carnegie Mellon, Pittsburgh, PA
  10. Lines: 22
  11. In-Reply-To: <1992Aug22.040354.1215@ads.com>
  12.  
  13. bvrotney@ADS.COM (Bill Vrotney) writes:
  14. > .. does anyone else feel that INSERT-REGISTER works backwards ..
  15.  
  16. I agree.  In fact, the following excerpt was one of the first functions
  17. I added to my .emacs when I learned enough emacs-lisp to do more than
  18. just setq's, many moons ago.
  19.  
  20. ----------
  21. (defun insert-register-before-point (char &optional arg)
  22.   "Insert contents of register REG (char) leaving mark before and point after.
  23. Optional ARG (prefix arg if interactive) means do it the way the
  24. normal insert-register does it (point before and mark after).
  25. No, I don't know why that is the default way of doing it."
  26.   (interactive "cInsert register: \nP")
  27.   (insert-register char (not arg)))
  28. (global-set-key "\C-xg" 'insert-register-before-point)
  29. ----------
  30.  
  31. --
  32. Jon Ferro        MIT Transportation Modelling Research Center (TMRC)
  33. jf41+@andrew.cmu.edu    "We can hack it!"
  34. SGNTR VRS VRSN 3.1B: Strppd nd cmprssd fr qckr trnsmssn! nfct yrs tdy!
  35.