From: Juanma Barranquero Date: Fri, 18 Oct 2002 08:30:49 +0000 (+0000) Subject: (sgml-close-tag, html-imenu-index): Fix typo. X-Git-Tag: ttn-vms-21-2-B4~12786 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a9d4efa2390c7c1962ad7ea61f6facfd569ea225;p=emacs.git (sgml-close-tag, html-imenu-index): Fix typo. --- diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index f5bd3236412..dc2af7067f3 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -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))