[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Contiguous redisplay of the menu and beeps

From: YAMAMOTO Mitsuharu
Subject: Re: Contiguous redisplay of the menu and beeps
Date: Mon, 28 May 2007 18:14:50 +0900
User-agent: Wanderlust/2.14.0 (Africa) SEMI/1.14.6 (Maruoka) FLIM/1.14.8 (Shij┼Ź) APEL/10.6 Emacs/22.0.990 (sparc-sun-solaris2.8) MULE/5.0 (SAKAKI)

>>>>> On Mon, 28 May 2007 10:58:00 +0200, martin rudalics <address@hidden> said:

>>> 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'

I couldn't reproduce it on Mac OS X.  It only shows an error like

  forward-list: Scan error: "Containing expression ends prematurely"

> 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.

I could reproduce this, but shouldn't the above `let' be `let*'?

                                     YAMAMOTO Mitsuharu

reply via email to

[Prev in Thread] Current Thread [Next in Thread]