Mercurial > emacs
comparison lisp/textmodes/texinfo.el @ 66423:5217bc507b30
(texinfo-mode): Use real chars, so as not to unnecessarily expose
emacs-mule's internal char codes.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 25 Oct 2005 04:57:45 +0000 |
| parents | 9c6897b47b81 |
| children | 90aa3875974e |
comparison
equal
deleted
inserted
replaced
| 66422:ee446efaafaf | 66423:5217bc507b30 |
|---|---|
| 1 ;;; texinfo.el --- major mode for editing Texinfo files | 1 ;;; texinfo.el --- major mode for editing Texinfo files -*- coding: iso-2022-7bit -*- |
| 2 | 2 |
| 3 ;; Copyright (C) 1985, 1988, 1989, 1990, 1991, 1992, 1993, 1996, 1997, | 3 ;; Copyright (C) 1985, 1988, 1989, 1990, 1991, 1992, 1993, 1996, 1997, |
| 4 ;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. | 4 ;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. |
| 5 | 5 |
| 6 ;; Author: Robert J. Chassell | 6 ;; Author: Robert J. Chassell |
| 593 (concat "\b\\|@[a-zA-Z]*[ \n]\\|" paragraph-separate)) | 593 (concat "\b\\|@[a-zA-Z]*[ \n]\\|" paragraph-separate)) |
| 594 (make-local-variable 'paragraph-start) | 594 (make-local-variable 'paragraph-start) |
| 595 (setq paragraph-start (concat "\b\\|@[a-zA-Z]*[ \n]\\|" paragraph-start)) | 595 (setq paragraph-start (concat "\b\\|@[a-zA-Z]*[ \n]\\|" paragraph-start)) |
| 596 (make-local-variable 'sentence-end-base) | 596 (make-local-variable 'sentence-end-base) |
| 597 (setq sentence-end-base | 597 (setq sentence-end-base |
| 598 "\\(@\\(end\\)?dots{}\\|[.?!]\\)[]\"'\xd0c9\x5397d)}]*") | 598 "\\(@\\(end\\)?dots{}\\|[.?!]\\)[]\"'$,1r}r}(B)}]*") |
| 599 (make-local-variable 'adaptive-fill-mode) | 599 (make-local-variable 'adaptive-fill-mode) |
| 600 (setq adaptive-fill-mode nil) | 600 (setq adaptive-fill-mode nil) |
| 601 (make-local-variable 'fill-column) | 601 (make-local-variable 'fill-column) |
| 602 (setq fill-column 70) | 602 (setq fill-column 70) |
| 603 (make-local-variable 'comment-start) | 603 (make-local-variable 'comment-start) |
| 1057 ;; job-number"\n")) | 1057 ;; job-number"\n")) |
| 1058 (tex-recenter-output-buffer nil)) | 1058 (tex-recenter-output-buffer nil)) |
| 1059 | 1059 |
| 1060 (provide 'texinfo) | 1060 (provide 'texinfo) |
| 1061 | 1061 |
| 1062 ;;; arch-tag: 005d7c38-43b9-4b7d-aa1d-aea69bae73e1 | 1062 ;; arch-tag: 005d7c38-43b9-4b7d-aa1d-aea69bae73e1 |
| 1063 ;;; texinfo.el ends here | 1063 ;;; texinfo.el ends here |