mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(sgml-close-tag, html-imenu-index): Fix typo.

Browse Source
This commit is contained in:
Juanma Barranquero 2002-10-18 08:30:49 +00:00
parent 51b5edd64f
commit a9d4efa239
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/textmodes/sgml-mode.el
View File

@ -1074,14 +1074,14 @@ immediately enclosing the current position."
(/= (point) (sgml-tag-start (car context)))
(sgml-unclosed-tag-p (sgml-tag-name (car context)))))
(setq tag-info (ignore-errors (sgml-parse-tag-backward))))
;; This tag may enclose things we thought were tags. If so,
;; discard them.
(while (and context
(> (sgml-tag-end tag-info)
(sgml-tag-end (car context))))
(setq context (cdr context)))
(cond
;; start-tag
@ -1144,7 +1144,7 @@ If FULL is non-nil, parse back to the beginning of the buffer."
;; Editing shortcuts
(defun sgml-close-tag ()
"Insert an close-tag for the current element."
"Insert a close-tag for the current element."
(interactive)
(case (car (sgml-lexical-context))
(comment (insert " -->"))
@ -1259,7 +1259,7 @@ If FULL is non-nil, parse back to the beginning of the buffer."
(goto-char there)
(+ (current-column)
(* sgml-basic-offset (length context))))))
(otherwise
(error "Unrecognised context %s" (car lcon)))
@ -1740,7 +1740,7 @@ The second `match-string' matches extra tags and is ignored.
The third `match-string' will be the used in the menu.")
(defun html-imenu-index ()
"Return an table of contents for an HTML buffer for use with Imenu."
"Return a table of contents for an HTML buffer for use with Imenu."
(let (toc-index)
(save-excursion
(goto-char (point-min))