Mercurial > emacs

changeset 77825:72e7efdd6433

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sgml-point-entered): Use condition-case.
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 28 May 2007 14:10:50 +0000
parents 4596e2eaebc8
children 605972c21c0a
files lisp/textmodes/sgml-mode.el
diffstat 1 files changed, 13 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/sgml-mode.el	Mon May 28 14:10:24 2007 +0000
+++ b/lisp/textmodes/sgml-mode.el	Mon May 28 14:10:50 2007 +0000
@@ -897,16 +897,19 @@
   ;; 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)))))
+
 
 
 (defun sgml-validate (command)