*** 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 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)
--- 894,917 ----

  (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 (point)))
! 	       (condition-case nil
! 		   (forward-list)
! 		 (error (point))))))))
!     (unless (string-equal tag-string "")
!       (message "Invisible tag: %s" tag-string))))

  
  (defun sgml-validate (command)