(sgml-point-entered): Use condition-case.

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 5e599ea10e6363719bd2fc4f586e0011eefa2795..5ac9d3fb63ed20927252e109e609749dc31e7758 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -897,16 +897,19 @@ With prefix argument ARG, repeat this ARG times."
   ;; 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)))))))
+      (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)