From: Mike Williams <mdub@bigfoot.com>
Date: Sun, 14 Apr 2002 12:50:10 +0000 (+0000)
Subject: (sgml-parse-tag-backward): Fix to work at beginning of buffer.
X-Git-Tag: ttn-vms-21-2-B4~15619
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca05be61ac6d9b527df14f667c447224b69a955d;p=emacs.git

(sgml-parse-tag-backward): Fix to work at beginning of buffer.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8ebe8a200b2..fb4bf401dc6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-14  Mike Williams  <mdub@bigfoot.com>
+
+	* textmodes/sgml-mode.el (sgml-parse-tag-backward): Fix to work at
+	beginning of buffer.
+
 2002-04-14  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
 	* speedbar.el (speedbar-generic-item-info)
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 2a410554de6..9ea5639c81e 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -976,7 +976,8 @@ With prefix argument, unquote the region."
 Assume that parsing starts from within a textual context.
 Leave point at the beginning of the tag."
   (let (tag-type tag-start tag-end name)
-    (search-backward ">")
+    (or (search-backward ">" nil 'move)
+        (error "No tag found"))
     (setq tag-end (1+ (point)))
     (cond
      ((sgml-looking-back-at "--")   ; comment