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

[Stefan Monnier]

Index: emacs/lisp/textmodes/texinfo.el
diff -c emacs/lisp/textmodes/texinfo.el:1.90 
emacs/lisp/textmodes/texinfo.el:1.91
*** emacs/lisp/textmodes/texinfo.el:1.90        Mon Apr 29 08:59:26 2002
--- emacs/lisp/textmodes/texinfo.el     Sun Jul  7 16:14:28 2002
***************
*** 358,365 ****
      ("@\\(anchor\\){\\([^}]+\\)" 2 font-lock-type-face)
      ("@\\(dmn\\|acronym\\|value\\){\\([^}]+\\)" 2 font-lock-builtin-face)
      ("@\\(end\\|itemx?\\) +\\(.+\\)" 2 font-lock-keyword-face keep)
!     (,texinfo-environment-regexp
!      1 (texinfo-clone-environment (match-beginning 1) (match-end 1)) keep)
      (,(concat "^@" (regexp-opt (mapcar 'car texinfo-section-list) t)
               ".*\n") 0 texinfo-heading-face t))
    "Additional expressions to highlight in TeXinfo mode.")
--- 358,365 ----
      ("@\\(anchor\\){\\([^}]+\\)" 2 font-lock-type-face)
      ("@\\(dmn\\|acronym\\|value\\){\\([^}]+\\)" 2 font-lock-builtin-face)
      ("@\\(end\\|itemx?\\) +\\(.+\\)" 2 font-lock-keyword-face keep)
!     ;; (,texinfo-environment-regexp
!     ;;  1 (texinfo-clone-environment (match-beginning 1) (match-end 1)) keep)
      (,(concat "^@" (regexp-opt (mapcar 'car texinfo-section-list) t)
               ".*\n") 0 texinfo-heading-face t))
    "Additional expressions to highlight in TeXinfo mode.")
***************
*** 377,383 ****
            (forward-word 1)
            (texinfo-next-unmatched-end))
          (skip-syntax-forward "^w")
!         (when (looking-at (regexp-quote (buffer-substring start end)))
            (text-clone-create start end 'spread "\\w*")))))))
  
  (defun texinfo-outline-level ()
--- 377,384 ----
            (forward-word 1)
            (texinfo-next-unmatched-end))
          (skip-syntax-forward "^w")
!         (when (looking-at
!                (concat (regexp-quote (buffer-substring start end)) "\\>"))
            (text-clone-create start end 'spread "\\w*")))))))
  
  (defun texinfo-outline-level ()