/[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.30 by fx, Thu Feb 1 15:59:04 2001 UTC revision 1.31 by rms, Fri Dec 7 03:33:39 2001 UTC
# Line 143  Line 143 
143    
144  ;;; Code:  ;;; Code:
145    
 (defconst bug-f90-mode "T.Einarsson@clab.ericsson.se"  
   "Address of mailing list for F90 mode bugs.")  
   
146  ;; User options  ;; User options
147    
148  (defgroup f90 nil  (defgroup f90 nil
# Line 889  with no args, if that value is non-nil." Line 886  with no args, if that value is non-nil."
886    (set (make-local-variable 'add-log-current-defun-function)    (set (make-local-variable 'add-log-current-defun-function)
887         #'f90-current-defun)         #'f90-current-defun)
888    (run-hooks 'f90-mode-hook)    (run-hooks 'f90-mode-hook)
 ;;   (if f90-startup-message  
 ;;       (message "Emacs F90 mode; please report bugs to %s" bug-f90-mode))  
889    (setq f90-startup-message nil))    (setq f90-startup-message nil))
890    
891  ;; inline-functions  ;; inline-functions
# Line 1472  If run in the middle of a line, the line Line 1467  If run in the middle of a line, the line
1467    (interactive)    (interactive)
1468    (let (ctype)    (let (ctype)
1469      (cond ((f90-in-string)      (cond ((f90-in-string)
1470             (insert "&") (newline) (insert "&"))             (insert "&") (newline 1) (insert "&"))
1471            ((f90-in-comment)            ((f90-in-comment)
1472             (setq ctype (f90-get-present-comment-type))             (setq ctype (f90-get-present-comment-type))
1473             (newline)             (newline 1)
1474             (insert ctype))             (insert ctype))
1475            (t (insert "&")            (t (insert "&")
1476               (if (not no-update) (f90-update-line))               (if (not no-update) (f90-update-line))
1477               (newline)               (newline 1)
1478               (if f90-beginning-ampersand (insert "&")))))               (if f90-beginning-ampersand (insert "&")))))
1479    (f90-indent-line))    (f90-indent-line))
1480        

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

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