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))) |