Skip to content
Snippets Groups Projects
Commit 3ebb5a97 authored by ram's avatar ram
Browse files

Fixed MARK-TO-CURSORPOS to call MAYBE-UPDATE-WINDOW-IMAGE in case the buffer

has changed since the last redisplay.  Changed CENTER-WINDOW to use
MAYBE-UPDATE-WINDOW-IMAGE instead of UPDATE-WINDOW-IMAGE.
parent 03a61d7b
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/cursor.lisp,v 1.1.1.3 1991/02/08 16:33:41 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/cursor.lisp,v 1.1.1.4 1991/03/16 02:18:57 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -195,6 +195,7 @@ ...@@ -195,6 +195,7 @@
;;; ;;;
(defun mark-to-cursorpos (mark window) (defun mark-to-cursorpos (mark window)
"Return the (x, y) position of mark within window, or NIL if not displayed." "Return the (x, y) position of mark within window, or NIL if not displayed."
(maybe-update-window-image window)
(let* ((line (mark-line mark)) (let* ((line (mark-line mark))
(number (line-number line)) (number (line-number line))
(charpos (mark-charpos mark)) (charpos (mark-charpos mark))
...@@ -313,7 +314,7 @@ ...@@ -313,7 +314,7 @@
;;; ;;;
(defun displayed-p (mark window) (defun displayed-p (mark window)
"Return true if Mark is displayed on Window, false otherwise." "Return true if Mark is displayed on Window, false otherwise."
(update-window-image window) (maybe-update-window-image window)
(%displayed-p mark window)) (%displayed-p mark window))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment