>> Reports from Windows users still wanted.
>
>
> Works here, thanks.
Sorry, no. With a newline after the
<html></html>
and moving down and back that line I get
sgml-point-entered: Lisp nesting exceeds `max-lisp-eval-depth'
If I define `sgml-point-entered' as
(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 (point)))
(condition-case nil
(forward-list)
(error (point))))))))
(unless (string-equal tag-string "")
(message "Invisible tag: %s" tag-string))))
it stalls as before with 100% CPU consumption.
_______________________________________________
emacs-pretest-bug mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
