/[emacs]/emacs/lisp/progmodes/f90.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/f90.el

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

revision 1.36 by gm, Wed Apr 24 22:06:03 2002 UTC revision 1.37 by gm, Wed Apr 24 22:13:45 2002 UTC
# Line 89  Line 89 
89  ;;                        f90-smart-end 'blink  ;;                        f90-smart-end 'blink
90  ;;                        f90-auto-keyword-case nil  ;;                        f90-auto-keyword-case nil
91  ;;                        f90-leave-line-no  nil  ;;                        f90-leave-line-no  nil
 ;;                        f90-startup-message t  
92  ;;                        indent-tabs-mode nil  ;;                        indent-tabs-mode nil
93  ;;                        f90-font-lock-keywords f90-font-lock-keywords-2  ;;                        f90-font-lock-keywords f90-font-lock-keywords-2
94  ;;                  )  ;;                  )
# Line 230  whether to blink the matching beginning. Line 229  whether to blink the matching beginning.
229    :type 'boolean    :type 'boolean
230    :group 'f90)    :group 'f90)
231    
 (defcustom f90-startup-message t  
   "*Non-nil displays a startup message when F90 mode is first called."  
   :type 'boolean  
   :group 'f90)  
   
232  (defconst f90-keywords-re  (defconst f90-keywords-re
233    (regexp-opt '("allocatable" "allocate" "assign" "assignment" "backspace"    (regexp-opt '("allocatable" "allocate" "assign" "assignment" "backspace"
234                  "block" "call" "case" "character" "close" "common" "complex"                  "block" "call" "case" "character" "close" "common" "complex"
# Line 793  Variables controlling indentation style Line 787  Variables controlling indentation style
787      The possibilities are 'downcase-word, 'upcase-word, 'capitalize-word.      The possibilities are 'downcase-word, 'upcase-word, 'capitalize-word.
788   f90-leave-line-no   f90-leave-line-no
789      Do not left-justify line numbers. (default nil)      Do not left-justify line numbers. (default nil)
  f90-startup-message  
     Set to nil to inhibit message first time F90 mode is used. (default t)  
790   f90-keywords-re   f90-keywords-re
791      List of keywords used for highlighting/upcase-keywords etc.      List of keywords used for highlighting/upcase-keywords etc.
792    
# Line 848  with no args, if that value is non-nil." Line 840  with no args, if that value is non-nil."
840    (setq imenu-generic-expression f90-imenu-generic-expression)    (setq imenu-generic-expression f90-imenu-generic-expression)
841    (set (make-local-variable 'add-log-current-defun-function)    (set (make-local-variable 'add-log-current-defun-function)
842         #'f90-current-defun)         #'f90-current-defun)
843    (run-hooks 'f90-mode-hook)    (run-hooks 'f90-mode-hook))
   (setq f90-startup-message nil))  
844    
845  ;; inline-functions  ;; inline-functions
846  (defsubst f90-in-string ()  (defsubst f90-in-string ()

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

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