;; | -----------------------------------------------------------------------------
;; | SS_hilite
;; | -----------------------------------------------------------------------------
;; | Function : Highlight a selection set based with specified redraw mode.
;; | Argument : 'ss'   - Selection set to be highlighted.
;; |            'mode' - Redraw mode to be used.
;; | Return   : None
;; | Update   : March 24, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | -----------------------------------------------------------------------------


(defun SS_hilite(ss mode / ssl cnt)

(if ss
(progn
	(setq
		ssl (sslength ss)
		cnt 0
	)
	(repeat ssl
		(redraw (ssname ss cnt) mode)
		(setq cnt (1+ cnt))
	)
))
)