home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / gnu / emacs / help / 5081 < prev    next >
Encoding:
Text File  |  1992-12-14  |  1.4 KB  |  46 lines
  1. Newsgroups: gnu.emacs.help
  2. Path: sparky!uunet!spool.mu.edu!agate!usenet.ins.cwru.edu!news.ysu.edu!do-not-reply-to-path
  3. From: ah663@yfn.ysu.edu (Mike Sentipal)
  4. Subject: Re: WANTED: highlight-region code
  5. Message-ID: <1992Dec14.235228.17410@news.ysu.edu>
  6. Sender: news@news.ysu.edu (Usenet News Admin)
  7. Nntp-Posting-Host: yfn.ysu.edu
  8. Reply-To: ah663@yfn.ysu.edu (Mike Sentipal)
  9. Organization: St. Elizabeth Hospital, Youngstown, OH
  10. References: <RATINOX.92Dec12102156@splinter.coe.northeastern.edu>  
  11. Date: Mon, 14 Dec 1992 23:52:28 GMT
  12. Lines: 32
  13.  
  14.  
  15. In a previous article, ratinox@splinter.coe.northeastern.edu (Richard Pieri) says:
  16.  
  17. >I'm looking for some generic code to highlight a region. I've tried
  18.  
  19. Here are some functions from ispell.el:
  20.  
  21. (defun highlight-region (p1 p2)
  22.    "Highlight the current region.  You may have to rewrite this for your
  23.    particular terminal."
  24.       (interactive "r")
  25.       (let ((s (buffer-substring p1 p2))
  26.             (inverse-video t))
  27.          (delete-region p1 p2)
  28.          (sit-for 0)
  29.          (insert s)
  30.          (sit-for 0)))
  31.  
  32. (defun unhighlight-region (p1 p2)
  33.    "Unhighlight the current region.  See highlight-region."
  34.       (interactive "r")
  35.       (let ((s (buffer-substring p1 p2))
  36.             (inverse-video nil))
  37.          (delete-region p1 p2)
  38.          (sit-for 0)
  39.          (insert s)
  40.          (sit-for 0)))
  41.  
  42. -- 
  43. =======================================
  44. Mike S.      ah663@yfn.ysu.edu
  45. =======================================
  46.