Mercurial > emacs

comparison lisp/progmodes/f90.el @ 53699:859030e39b53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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