From ca05be61ac6d9b527df14f667c447224b69a955d Mon Sep 17 00:00:00 2001 From: Mike Williams Date: Sun, 14 Apr 2002 12:50:10 +0000 Subject: [PATCH] (sgml-parse-tag-backward): Fix to work at beginning of buffer. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/sgml-mode.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * textmodes/sgml-mode.el (sgml-parse-tag-backward): Fix to work at + beginning of buffer. + 2002-04-14 Pavel Jan,Bm(Bk * 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 -- 2.39.5