From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: martin rudalics Newsgroups: gmane.emacs.pretest.bugs,gmane.emacs.devel Subject: Re: Contiguous redisplay of the menu and beeps Date: Mon, 28 May 2007 12:09:14 +0200 Message-ID: <465AAA4A.8000701@gmx.at> References: <87zm3pd6f7.fsf@stupidchicken.com> <465A93D2.3070607@gmx.at> <465A9998.7080604@gmx.at> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------010206010008000507020206" X-Trace: sea.gmane.org 1180347052 11249 80.91.229.12 (28 May 2007 10:10:52 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 28 May 2007 10:10:52 +0000 (UTC) Cc: emacs-pretest-bug@gnu.org, Chong Yidong , emacs-devel@gnu.org To: YAMAMOTO Mitsuharu Original-X-From: emacs-pretest-bug-bounces+gebp-emacs-pretest-bug=gmane.org@gnu.org Mon May 28 12:10:50 2007 Return-path: Envelope-to: gebp-emacs-pretest-bug@gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1HscBc-00021N-MT for gebp-emacs-pretest-bug@gmane.org; Mon, 28 May 2007 12:10:48 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HscBc-00077G-37 for gebp-emacs-pretest-bug@gmane.org; Mon, 28 May 2007 06:10:48 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1HscBV-00076v-Jv for emacs-pretest-bug@gnu.org; Mon, 28 May 2007 06:10:41 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1HscBV-00076X-28 for emacs-pretest-bug@gnu.org; Mon, 28 May 2007 06:10:41 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HscBU-00076T-Td for emacs-pretest-bug@gnu.org; Mon, 28 May 2007 06:10:40 -0400 Original-Received: from mail.gmx.net ([213.165.64.20]) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1HscBU-000559-BK for emacs-pretest-bug@gnu.org; Mon, 28 May 2007 06:10:40 -0400 Original-Received: (qmail invoked by alias); 28 May 2007 10:10:39 -0000 Original-Received: from N780P005.adsl.highway.telekom.at (EHLO [62.47.41.101]) [62.47.41.101] by mail.gmx.net (mp047) with SMTP; 28 May 2007 12:10:39 +0200 X-Authenticated: #14592706 X-Provags-ID: V01U2FsdGVkX18ONhEpSo4Oymu5NXYfzlQSX4zB94h+jkDEKIUgOc 9MVf/hyl2I+mi+ User-Agent: Mozilla Thunderbird 1.0 (Windows/20041206) X-Accept-Language: de-DE, de, en-us, en In-Reply-To: X-Y-GMX-Trusted: 0 X-detected-kernel: Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: emacs-pretest-bug@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for CVS Emacs." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-pretest-bug-bounces+gebp-emacs-pretest-bug=gmane.org@gnu.org Errors-To: emacs-pretest-bug-bounces+gebp-emacs-pretest-bug=gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.pretest.bugs:19028 gmane.emacs.devel:71885 Archived-At: This is a multi-part message in MIME format. --------------010206010008000507020206 Content-Type: text/plain; charset=ISO-8859-15; format=flowed Content-Transfer-Encoding: 7bit > I couldn't reproduce it on Mac OS X. It only shows an error like > > forward-list: Scan error: "Containing expression ends prematurely" OK. To prevent this I'd apply something like the attached patch (low priority). We also might consider not running point-entered/-left hooks when running a point-entered/-left hook (as with before-/after-change-functions). --------------010206010008000507020206 Content-Type: text/plain; name="sgml.patch" Content-Transfer-Encoding: quoted-printable Content-Disposition: inline; filename="sgml.patch" *** sgml-mode.el Mon May 14 23:19:20 2007 --- sgml-mode.el Mon May 28 11:51:12 2007 *************** *** 894,911 **** (defun sgml-point-entered (x y) ;; Show preceding or following hidden tag, depending of cursor direct= ion. ! (let ((inhibit-point-motion-hooks t)) ! (save-excursion ! (message "Invisible tag: %s" ! ;; 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) ?>))) ! (backward-list) ! (forward-list))))))) =0C (defun sgml-validate (command) --- 894,917 ---- (defun sgml-point-entered (x y) ;; Show preceding or following hidden tag, depending of cursor direct= ion. ! (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)))) =0C (defun sgml-validate (command) --------------010206010008000507020206 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ emacs-pretest-bug mailing list emacs-pretest-bug@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug --------------010206010008000507020206--