martin rudalics <[EMAIL PROTECTED]> 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)
_______________________________________________
emacs-pretest-bug mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
