Mercurial > emacs
comparison lisp/progmodes/f90.el @ 35828:fc4250f64a77
(f90-mode): Remove startup message.
author | Dave Love <fx@gnu.org> |
---|---|
date | Thu, 01 Feb 2001 15:59:04 +0000 |
parents | 0371c5f8f98b |
children | a20c1a3fca7f |
comparison
equal
deleted
inserted
replaced
35827:8258a6628b85 | 35828:fc4250f64a77 |
---|---|
887 (make-local-variable 'imenu-generic-expression) | 887 (make-local-variable 'imenu-generic-expression) |
888 (setq imenu-generic-expression f90-imenu-generic-expression) | 888 (setq imenu-generic-expression f90-imenu-generic-expression) |
889 (set (make-local-variable 'add-log-current-defun-function) | 889 (set (make-local-variable 'add-log-current-defun-function) |
890 #'f90-current-defun) | 890 #'f90-current-defun) |
891 (run-hooks 'f90-mode-hook) | 891 (run-hooks 'f90-mode-hook) |
892 (if f90-startup-message | 892 ;; (if f90-startup-message |
893 (message "Emacs F90 mode; please report bugs to %s" bug-f90-mode)) | 893 ;; (message "Emacs F90 mode; please report bugs to %s" bug-f90-mode)) |
894 (setq f90-startup-message nil)) | 894 (setq f90-startup-message nil)) |
895 | 895 |
896 ;; inline-functions | 896 ;; inline-functions |
897 (defsubst f90-get-beg-of-line () | 897 (defsubst f90-get-beg-of-line () |
898 (save-excursion (beginning-of-line) (point))) | 898 (save-excursion (beginning-of-line) (point))) |