/[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.30.14.1 by fx, Tue Dec 18 15:19:04 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 1472  If run in the middle of a line, the line Line 1469  If run in the middle of a line, the line
1469    (interactive)    (interactive)
1470    (let (ctype)    (let (ctype)
1471      (cond ((f90-in-string)      (cond ((f90-in-string)
1472             (insert "&") (newline) (insert "&"))             (insert "&\n&"))
1473            ((f90-in-comment)            ((f90-in-comment)
1474             (setq ctype (f90-get-present-comment-type))             (setq ctype (f90-get-present-comment-type))
1475             (newline)             (newline 1)
1476             (insert ctype))             (insert ctype))
1477            (t (insert "&")            (t (insert "&")
1478               (if (not no-update) (f90-update-line))               (if (not no-update) (f90-update-line))
1479               (newline)               (newline 1)
1480               (if f90-beginning-ampersand (insert "&")))))               (if f90-beginning-ampersand (insert "&")))))
1481    (f90-indent-line))    (f90-indent-line))
1482        

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

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