Re: Contiguous redisplay of the menu and beeps

[Chong Yidong <cyd@stupidchicken.com>]

martin rudalics <rudalics@gmx.at> writes:

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

I think it's cleaner to put the condition-case outside.  Does this
work for you?

*** emacs/lisp/textmodes/sgml-mode.el.~1.121.~	2007-05-14 10:56:30.000000000 -0400
--- emacs/lisp/textmodes/sgml-mode.el	2007-05-28 08:47:21.000000000 -0400
***************
*** 897,912 ****
    ;; Show preceding or following hidden tag, depending of cursor direction.
    (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)))))))
  
  \f
  (defun sgml-validate (command)
--- 897,915 ----
    ;; Show preceding or following hidden tag, depending of cursor direction.
    (let ((inhibit-point-motion-hooks t))
      (save-excursion
!       (condition-case nil
! 	  (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))))
! 	(error nil)))))
! 
  
  \f
  (defun sgml-validate (command)