🚀 go-pugleaf

In a previous article, ratinox@splinter.coe.northeastern.edu (Richard Pieri) says:

>I'm looking for some generic code to highlight a region. I've tried

Here are some functions from ispell.el:

(defun highlight-region (p1 p2)
   "Highlight the current region.  You may have to rewrite this for your
   particular terminal."
      (interactive "r")
      (let ((s (buffer-substring p1 p2))
            (inverse-video t))
         (delete-region p1 p2)
         (sit-for 0)
         (insert s)
         (sit-for 0)))

(defun unhighlight-region (p1 p2)
   "Unhighlight the current region.  See highlight-region."
      (interactive "r")
      (let ((s (buffer-substring p1 p2))
            (inverse-video nil))
         (delete-region p1 p2)
         (sit-for 0)
         (insert s)
         (sit-for 0)))

-- 
=======================================
Mike S.      ah663@yfn.ysu.edu
=======================================