[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el

[Glenn Morris]

Index: emacs/lisp/progmodes/f90.el
diff -c emacs/lisp/progmodes/f90.el:1.85 emacs/lisp/progmodes/f90.el:1.86
*** emacs/lisp/progmodes/f90.el:1.85    Mon Aug  1 08:37:48 2005
--- emacs/lisp/progmodes/f90.el Sat Oct  8 04:47:23 2005
***************
*** 4,10 ****
  ;; Free Software Foundation, Inc.
  
  ;; Author: Torbj\"orn Einarsson <address@hidden>
! ;; Maintainer: Glenn Morris <address@hidden>
  ;; Keywords: fortran, f90, languages
  
  ;; This file is part of GNU Emacs.
--- 4,10 ----
  ;; Free Software Foundation, Inc.
  
  ;; Author: Torbj\"orn Einarsson <address@hidden>
! ;; Maintainer: Glenn Morris <address@hidden>
  ;; Keywords: fortran, f90, languages
  
  ;; This file is part of GNU Emacs.
***************
*** 276,282 ****
                "target" "then" "type" "use" "where" "while" "write"
                ;; F95 keywords.
                "elemental" "pure") 'words)
!   "Regexp for F90 keywords.")
  
  (defconst f90-keywords-level-3-re
    (regexp-opt
--- 276,282 ----
                "target" "then" "type" "use" "where" "while" "write"
                ;; F95 keywords.
                "elemental" "pure") 'words)
!   "Regexp used by the function `f90-change-keywords'.")
  
  (defconst f90-keywords-level-3-re
    (regexp-opt
***************
*** 370,376 ****
     (list
      ;; Variable declarations (avoid the real function call).
      '("^[ \t0-9]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|\
! logical\\|type[ \t]*(\\sw+)\\)\\(.*::\\|[ \t]*(.*)\\)?\\([^&!\n]*\\)"
        (1 font-lock-type-face t) (4 font-lock-variable-name-face t))
      ;; do, if, select, where, and forall constructs.
      '("\\<\\(end[ \t]*\\(do\\|if\\|select\\|forall\\|where\\)\\)\\>\
--- 370,377 ----
     (list
      ;; Variable declarations (avoid the real function call).
      '("^[ \t0-9]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|\
! logical\\|double[ \t]*precision\\|*type[ \t]*(\\sw+)\\)\
! \\(.*::\\|[ \t]*(.*)\\)?\\([^&!\n]*\\)"
        (1 font-lock-type-face t) (4 font-lock-variable-name-face t))
      ;; do, if, select, where, and forall constructs.
      '("\\<\\(end[ \t]*\\(do\\|if\\|select\\|forall\\|where\\)\\)\\>\
***************
*** 381,387 ****
        (2 font-lock-constant-face nil t) (3 font-lock-keyword-face))
      ;; Implicit declaration.
      '("\\<\\(implicit\\)[ \t]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\
! \\|logical\\|type[ \t]*(\\sw+)\\|none\\)[ \t]*"
        (1 font-lock-keyword-face) (2 font-lock-type-face))
      '("\\<\\(namelist\\|common\\)[ \t]*\/\\(\\sw+\\)?\/"
        (1 font-lock-keyword-face) (2 font-lock-constant-face nil t))
--- 382,388 ----
        (2 font-lock-constant-face nil t) (3 font-lock-keyword-face))
      ;; Implicit declaration.
      '("\\<\\(implicit\\)[ \t]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\
! \\|logical\\|double[ \t]*precision\\|type[ \t]*(\\sw+)\\|none\\)[ \t]*"
        (1 font-lock-keyword-face) (2 font-lock-type-face))
      '("\\<\\(namelist\\|common\\)[ \t]*\/\\(\\sw+\\)?\/"
        (1 font-lock-keyword-face) (2 font-lock-constant-face nil t))
***************
*** 698,703 ****
--- 699,705 ----
         ("`de"  "deallocate"   )
         ("`df"  "define"       )
         ("`di"  "dimension"    )
+        ("`dp"  "double precision")
         ("`dw"  "do while"     )
         ("`el"  "else"         )
         ("`eli" "else if"      )
***************
*** 796,803 ****
    The possibilities are 'downcase-word, 'upcase-word, 'capitalize-word.
  `f90-leave-line-no'
    Do not left-justify line numbers (default nil).
- `f90-keywords-re'
-   List of keywords used for highlighting/upcase-keywords etc.
  
  Turning on F90 mode calls the value of the variable `f90-mode-hook'
  with no args, if that value is non-nil."
--- 798,803 ----