mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-31 17:30:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Mike Williams 2002-04-14 12:50:10 +00:00
parent 0e03b0c25f
commit ca05be61ac
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/textmodes/sgml-mode.el
View file

@ -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