From: Stephen Berman <Stephen.Berman@gmx.net>
To: emacs-devel@gnu.org
Subject: Re: Contiguous redisplay of the menu and beeps
Date: Sat, 26 May 2007 17:19:37 +0200 [thread overview]
Message-ID: <87d50neho6.fsf@escher.local.home> (raw)
In-Reply-To: 4658490F.5070908@gmx.at
On Sat, 26 May 2007 16:49:51 +0200 martin rudalics <rudalics@gmx.at> wrote:
> 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))))
For me it's not nonsensical at all:
1. emacs -Q
2. M-x html-mode
3. M-x column-number-mode
4. eval the above defvar and defun
5. insert <html></html>
6. put the cursor on the leftmost `>'
7. C-c C-i
=> I hear two beeps, then "<html></html>" disappears and I see "... 2"
in the echo area. No further beeps or CPU consumption.
When I repeat C-c C-i the tags reappear, when I repeat C-c C-i again,
they again vanish after two beeps and the message is now "... 4". And
so on, each time incrementing by two.
Steve Berman
next prev parent reply other threads:[~2007-05-26 15:19 UTC|newest]
Thread overview: 20+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <ulkfcxbvv.wl%miyoshi@meadowy.org>
[not found] ` <465811AB.6080507@gmx.at>
2007-05-26 13:41 ` Contiguous redisplay of the menu and beeps martin rudalics
2007-05-26 14:12 ` Stephen Berman
2007-05-26 14:22 ` Stephen Berman
2007-05-26 14:49 ` martin rudalics
2007-05-26 15:19 ` Stephen Berman [this message]
2007-05-26 16:12 ` martin rudalics
2007-05-27 23:21 Richard Stallman
2007-05-28 0:56 ` YAMAMOTO Mitsuharu
2007-05-28 2:32 ` Chong Yidong
2007-05-28 3:11 ` YAMAMOTO Mitsuharu
2007-05-28 8:33 ` martin rudalics
2007-05-28 8:58 ` martin rudalics
2007-05-28 9:14 ` YAMAMOTO Mitsuharu
2007-05-28 9:42 ` martin rudalics
2007-05-28 10:09 ` martin rudalics
2007-05-28 12:49 ` Chong Yidong
2007-05-28 13:13 ` martin rudalics
2007-05-28 14:11 ` Chong Yidong
2007-05-29 23:38 ` Davis Herring
2007-05-29 0:03 ` Richard Stallman
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87d50neho6.fsf@escher.local.home \
--to=stephen.berman@gmx.net \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.