[Emacs-diffs] Changes to emacs/lisp/textmodes/sgml-mode.el

[Juanma Barranquero]

Index: emacs/lisp/textmodes/sgml-mode.el
diff -c emacs/lisp/textmodes/sgml-mode.el:1.90 
emacs/lisp/textmodes/sgml-mode.el:1.91
*** emacs/lisp/textmodes/sgml-mode.el:1.90      Sun Sep 29 01:59:10 2002
--- emacs/lisp/textmodes/sgml-mode.el   Fri Oct 18 04:30:49 2002
***************
*** 1074,1087 ****
                      (/= (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
--- 1074,1087 ----
                      (/= (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,1150 ****
  ;; Editing shortcuts
  
  (defun sgml-close-tag ()
!   "Insert an close-tag for the current element."
    (interactive)
    (case (car (sgml-lexical-context))
      (comment  (insert " -->"))
--- 1144,1150 ----
  ;; Editing shortcuts
  
  (defun sgml-close-tag ()
!   "Insert a close-tag for the current element."
    (interactive)
    (case (car (sgml-lexical-context))
      (comment  (insert " -->"))
***************
*** 1259,1265 ****
           (goto-char there)
           (+ (current-column)
              (* sgml-basic-offset (length context))))))
!       
        (otherwise
         (error "Unrecognised context %s" (car lcon)))
  
--- 1259,1265 ----
           (goto-char there)
           (+ (current-column)
              (* sgml-basic-offset (length context))))))
! 
        (otherwise
         (error "Unrecognised context %s" (car lcon)))
  
***************
*** 1740,1746 ****
  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."
    (let (toc-index)
      (save-excursion
        (goto-char (point-min))
--- 1740,1746 ----
  The third `match-string' will be the used in the menu.")
  
  (defun html-imenu-index ()
!   "Return a table of contents for an HTML buffer for use with Imenu."
    (let (toc-index)
      (save-excursion
        (goto-char (point-min))