Skip to content
Snippets Groups Projects
Commit ee102f4f authored by wlott's avatar wlott
Browse files

Allow active region highlighting on the tty.

parent 03da76f4
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/highlight.lisp,v 1.2 1991/02/08 16:35:00 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/highlight.lisp,v 1.3 1991/09/23 09:27:29 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -106,19 +106,14 @@ ...@@ -106,19 +106,14 @@
(defun highlight-active-region (window) (defun highlight-active-region (window)
(unless (eq window *echo-area-window*) (unless (eq window *echo-area-window*)
(when (value highlight-active-region) (when (value highlight-active-region)
(let ((tty-p (typep (hi::device-hunk-device (cond ((region-active-p)
(hi::window-hunk (current-window))) (cond ((not *active-region-font-marks*)
'hi::tty-device))) (set-active-region-font-marks))
(cond ((region-active-p) ((check-active-region-font-marks))
(cond (tty-p) (t (kill-active-region-font-marks)
((not *active-region-font-marks*) (set-active-region-font-marks))))
(set-active-region-font-marks)) (*active-region-font-marks*
((check-active-region-font-marks)) (kill-active-region-font-marks))))))
(t (kill-active-region-font-marks)
(set-active-region-font-marks))))
(tty-p)
(*active-region-font-marks*
(kill-active-region-font-marks)))))))
;;; ;;;
(add-hook redisplay-hook 'highlight-active-region) (add-hook redisplay-hook 'highlight-active-region)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment