diff options
| author | Mike Williams <[email protected]> | 2002-04-14 12:50:10 +0000 |
|---|---|---|
| committer | Mike Williams <[email protected]> | 2002-04-14 12:50:10 +0000 |
| commit | ca05be61ac6d9b527df14f667c447224b69a955d (patch) | |
| tree | 27745b3361d244a6e8ac72128544bab63197a093 /lisp/textmodes | |
| parent | 0e03b0c25fd697e58fccfe89c00ab0153d200cee (diff) | |
(sgml-parse-tag-backward): Fix to work at beginning of buffer.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/sgml-mode.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 2a410554de..9ea5639c81 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 |