Commit ca05be61 authored by Mike Williams's avatar Mike Williams
Browse files

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

parent 0e03b0c2
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)
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment