🚀 go-pugleaf

In GNU Emacs 19.26.1 (hppa1.1-hp-hpux9) of Thu Sep 15 1994 on cobra

The 19.26 version of font-lock calls save-restriction/narrow-to-region,
which both set clip_changed, which is tested in redisplay, which sets
all_windows and calls clear_face_vector.

So, every time you type a character in a comment, the graphic contexts get
freed and new ones allocated.

I still think that clear_face_vector is called too readily, but I haven't
looked too hard for a decent place to call it (maybe every time a window
displays a new buffer or is destroyed).

Note that, even with this patch, if you have the same buffer in two
different windows (like just after ^X-2), you still get the face vector
cleared on every keystroke.  But this makes it a lot better.

David Brooks
ICS

*** font-lock.el.orig	Thu Sep 15 15:52:47 1994
--- font-lock.el	Wed Sep 14 13:26:57 1994
***************
*** 191,205 ****
  	      ;; We found a real comment start.
  	      (let ((beg (match-beginning 0)))
  		(goto-char beg)
! 		(save-restriction
! 		  (narrow-to-region (point-min) end)
! 		  (condition-case nil
! 		      (progn
! 			(forward-comment 1)
! 			;; forward-comment skips all whitespace,
! 			;; so go back to the real end of the comment.
! 			(skip-chars-backward " \t"))
! 		    (error (goto-char end))))
  		(put-text-property beg (point) 'face font-lock-comment-face)
  		(setq state (parse-partial-sexp here (point) nil nil state)))
  	    (if (nth 3 state)
--- 191,203 ----
  	      ;; We found a real comment start.
  	      (let ((beg (match-beginning 0)))
  		(goto-char beg)
! 		(condition-case nil
! 		    (progn
! 		      (forward-comment 1)
! 		      (skip-chars-backward " \t")
! 		      (if (> (point) end)
! 			  (goto-char end)))
! 		  (error (goto-char end)))
  		(put-text-property beg (point) 'face font-lock-comment-face)
  		(setq state (parse-partial-sexp here (point) nil nil state)))
  	    (if (nth 3 state)