[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.36 emacs/lisp/progmodes/f90.el:1.37
*** emacs/lisp/progmodes/f90.el:1.36    Wed Apr 24 18:06:03 2002
--- emacs/lisp/progmodes/f90.el Wed Apr 24 18:13:45 2002
***************
*** 89,95 ****
  ;;                        f90-smart-end 'blink
  ;;                        f90-auto-keyword-case nil
  ;;                        f90-leave-line-no  nil
- ;;                        f90-startup-message t
  ;;                        indent-tabs-mode nil
  ;;                        f90-font-lock-keywords f90-font-lock-keywords-2
  ;;                  )
--- 89,94 ----
***************
*** 230,240 ****
    :type 'boolean
    :group 'f90)
  
- (defcustom f90-startup-message t
-   "*Non-nil displays a startup message when F90 mode is first called."
-   :type 'boolean
-   :group 'f90)
- 
  (defconst f90-keywords-re
    (regexp-opt '("allocatable" "allocate" "assign" "assignment" "backspace"
                "block" "call" "case" "character" "close" "common" "complex"
--- 229,234 ----
***************
*** 793,800 ****
      The possibilities are 'downcase-word, 'upcase-word, 'capitalize-word.
   f90-leave-line-no
      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)
   f90-keywords-re
      List of keywords used for highlighting/upcase-keywords etc.
  
--- 787,792 ----
***************
*** 848,855 ****
    (setq imenu-generic-expression f90-imenu-generic-expression)
    (set (make-local-variable 'add-log-current-defun-function)
         #'f90-current-defun)
!   (run-hooks 'f90-mode-hook)
!   (setq f90-startup-message nil))
  
  ;; inline-functions
  (defsubst f90-in-string ()
--- 840,846 ----
    (setq imenu-generic-expression f90-imenu-generic-expression)
    (set (make-local-variable 'add-log-current-defun-function)
         #'f90-current-defun)
!   (run-hooks 'f90-mode-hook))
  
  ;; inline-functions
  (defsubst f90-in-string ()