emacs-devel
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Contiguous redisplay of the menu and beeps

From: martin rudalics
Subject: Re: Contiguous redisplay of the menu and beeps
Date: Mon, 28 May 2007 10:58:00 +0200
User-agent: Mozilla Thunderbird 1.0 (Windows/20041206) 
>> 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.
reply via email to
[Prev in Thread] Current Thread [Next in Thread]