Re: Contiguous redisplay of the menu and beeps

[martin rudalics <rudalics@gmx.at>]

 > That is, I get continuous beeping and Emacs consumes the CPU, but I
 > don't see menu redisplay.  And in fact, I can stop the beeping and CPU
 > consumption by clicking on clicking the SGML menu and toggling tag
 > visibility.  Clicking on the HTML menu stops the beeping but it
 > resumes when the menu is closed.  Clicking on the other menues does
 > not seem to stop the beeping.  I'm not sure these observations are
 > reliably reproducible.
 >
 > Steve Berman

What happens if you change `sgml-point-entered' to the following
non-sensical?  My Emacs consumes 100% CPU and won't react to C-g.
Occasionally I can see `my-count' going up though.

(defvar my-count 0)

(defun sgml-point-entered (x y)
   ;; Show preceding or following hidden tag, depending of cursor direction.
   (let ((inhibit-point-motion-hooks t)
	(tag-string
	 (save-excursion
	   ;; Strip properties, otherwise, the text is invisible.
	   (buffer-substring-no-properties
	    (point)
	    (if (or (and (> x y)
			 (not (eq (following-char) ?<)))
		    (and (< x y)
			 (eq (preceding-char) ?>)))
		(condition-case nil
		    (backward-list)
		  (error (progn (message "... %s" (setq my-count (1+ my-count)))
				(sit-for 1) (ding)
				(point))))
	      (condition-case nil
		  (forward-list)
		(error (progn (message "... %s" (setq my-count (1+ my-count)))
			      (sit-for 1) (ding)
			      (point)))))))))
     (unless (string-equal tag-string "")
       (message "Invisible tag: %s" tag-string))))