🚀 go-pugleaf

This code was fleshed out on the net some months ago.  It has the
advantage of not using delete-region which messes up undo history.  It
should also work under X, which the ispell version had some difficulty
with on certain machines ("you may have to rewrite this..." in the
comment).  Hope this helps.

-Jerry


;; ---------------- highlight-region.el ----------------------------

(defun highlight-region (p1 p2)
  "Highlight the current region in reverse video."
  (interactive "r")
  (highlight-region-internal p1 p2 t))

(defun unhighlight-region (p1 p2)
  "Unhighlight the current region.  If region is displayed in reverse
video, then it no longer will be."
  (interactive "r")
  (highlight-region-internal p1 p2 nil))

(defun highlight-region-internal (p1 p2 highlight)
  "Highlight/unhighlight the region between P1 and P2.  HIGHLIGHT set to T
means do highlight, NIL means don't."
  (save-excursion
    (save-restriction
      (let ((screen-start (progn (move-to-window-line 0)
				 (point)))
	    (screen-end (progn (move-to-window-line -1)
			       (end-of-line 1)
			       (point)))
	    (region-start (min p1 p2))
	    (region-end (max p1 p2)))

	(setq region-start (max region-start screen-start))
	(setq region-end (min region-end screen-end))
			  
	(goto-char region-start)
	(narrow-to-region screen-start region-start)
	(sit-for 0)

	(let ((inverse-video highlight))
	  (goto-char screen-start)
	  (widen)
	  (narrow-to-region screen-start region-end)
	  (sit-for 0)
	  )))))