/[emacs]/emacs/lisp/textmodes/texinfo.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/texinfo.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.90 by bob, Mon Apr 29 12:59:26 2002 UTC revision 1.91 by monnier, Sun Jul 7 20:14:28 2002 UTC
# Line 358  Subexpression 1 is what goes into the co Line 358  Subexpression 1 is what goes into the co
358      ("@\\(anchor\\){\\([^}]+\\)" 2 font-lock-type-face)      ("@\\(anchor\\){\\([^}]+\\)" 2 font-lock-type-face)
359      ("@\\(dmn\\|acronym\\|value\\){\\([^}]+\\)" 2 font-lock-builtin-face)      ("@\\(dmn\\|acronym\\|value\\){\\([^}]+\\)" 2 font-lock-builtin-face)
360      ("@\\(end\\|itemx?\\) +\\(.+\\)" 2 font-lock-keyword-face keep)      ("@\\(end\\|itemx?\\) +\\(.+\\)" 2 font-lock-keyword-face keep)
361      (,texinfo-environment-regexp      ;; (,texinfo-environment-regexp
362       1 (texinfo-clone-environment (match-beginning 1) (match-end 1)) keep)      ;;  1 (texinfo-clone-environment (match-beginning 1) (match-end 1)) keep)
363      (,(concat "^@" (regexp-opt (mapcar 'car texinfo-section-list) t)      (,(concat "^@" (regexp-opt (mapcar 'car texinfo-section-list) t)
364                 ".*\n") 0 texinfo-heading-face t))                 ".*\n") 0 texinfo-heading-face t))
365    "Additional expressions to highlight in TeXinfo mode.")    "Additional expressions to highlight in TeXinfo mode.")
# Line 377  Subexpression 1 is what goes into the co Line 377  Subexpression 1 is what goes into the co
377              (forward-word 1)              (forward-word 1)
378              (texinfo-next-unmatched-end))              (texinfo-next-unmatched-end))
379            (skip-syntax-forward "^w")            (skip-syntax-forward "^w")
380            (when (looking-at (regexp-quote (buffer-substring start end)))            (when (looking-at
381                     (concat (regexp-quote (buffer-substring start end)) "\\>"))
382              (text-clone-create start end 'spread "\\w*")))))))              (text-clone-create start end 'spread "\\w*")))))))
383    
384  (defun texinfo-outline-level ()  (defun texinfo-outline-level ()

Legend:
Removed from v.1.90  
changed lines
  Added in v.1.91

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26