Re: Contiguous redisplay of the menu and beeps

[Chong Yidong]

martin rudalics <address@hidden> 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)))))))
  
  
  (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)))))
! 
  
  
  (defun sgml-validate (command)