Mercurial > emacs
comparison lisp/progmodes/f90.el @ 53699:859030e39b53
(f90-break-delimiters): Doc fix.
(f90-no-break-re): Add some extra tokens. Doc fix.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sun, 25 Jan 2004 23:42:35 +0000 |
parents | 695cf19ef79e |
children | d5d0f1479a4a |
comparison
equal
deleted
inserted
replaced
53698:4216782b9c14 | 53699:859030e39b53 |
---|---|
1 ;;; f90.el --- Fortran-90 mode (free format) | 1 ;;; f90.el --- Fortran-90 mode (free format) |
2 | 2 |
3 ;; Copyright (C) 1995, 1996, 1997, 2000 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1995, 1996, 1997, 2000, 2004 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Torbj\"orn Einarsson <Torbjorn.Einarsson@era.ericsson.se> | 5 ;; Author: Torbj\"orn Einarsson <Torbjorn.Einarsson@era.ericsson.se> |
6 ;; Maintainer: Glenn Morris <gmorris@ast.cam.ac.uk> | 6 ;; Maintainer: Glenn Morris <gmorris@ast.cam.ac.uk> |
7 ;; Keywords: fortran, f90, languages | 7 ;; Keywords: fortran, f90, languages |
8 | 8 |
222 whether to blink the matching beginning." | 222 whether to blink the matching beginning." |
223 :type '(choice (const blink) (const no-blink) (const nil)) | 223 :type '(choice (const blink) (const no-blink) (const nil)) |
224 :group 'f90) | 224 :group 'f90) |
225 | 225 |
226 (defcustom f90-break-delimiters "[-+\\*/><=,% \t]" | 226 (defcustom f90-break-delimiters "[-+\\*/><=,% \t]" |
227 "*Regexp holding list of delimiters at which lines may be broken." | 227 "*Regexp matching delimiter characters at which lines may be broken. |
228 There are certain tokens comprised entirely of characters | |
229 matching this regexp that should not be split, and these are | |
230 specified by the constant `f90-no-break-re'." | |
228 :type 'regexp | 231 :type 'regexp |
229 :group 'f90) | 232 :group 'f90) |
230 | 233 |
231 (defcustom f90-break-before-delimiters t | 234 (defcustom f90-break-before-delimiters t |
232 "*Non-nil causes `f90-do-auto-fill' to break lines before delimiters." | 235 "*Non-nil causes `f90-do-auto-fill' to break lines before delimiters." |
572 (defconst f90-type-def-re | 575 (defconst f90-type-def-re |
573 "\\<\\(type\\)\\>\\(?:[^()\n]*::\\)?[ \t]*\\(\\sw+\\)" | 576 "\\<\\(type\\)\\>\\(?:[^()\n]*::\\)?[ \t]*\\(\\sw+\\)" |
574 "Regexp matching the definition of a derived type.") | 577 "Regexp matching the definition of a derived type.") |
575 | 578 |
576 (defconst f90-no-break-re | 579 (defconst f90-no-break-re |
577 (regexp-opt '("**" "//" "=>") 'paren) | 580 (regexp-opt '("**" "//" "=>" ">=" "<=" "==" "/=") 'paren) |
578 "Regexp specifying where not to break lines when filling.") | 581 "Regexp specifying where not to break lines when filling. |
582 This regexp matches certain tokens comprised entirely of | |
583 characters matching the regexp `f90-break-delimiters' that should | |
584 not be split by filling. Each element is assumed to be two | |
585 characters long.") | |
579 | 586 |
580 (defvar f90-cache-position nil | 587 (defvar f90-cache-position nil |
581 "Temporary position used to speed up region operations.") | 588 "Temporary position used to speed up region operations.") |
582 (make-variable-buffer-local 'f90-cache-position) | 589 (make-variable-buffer-local 'f90-cache-position) |
583 | 590 |