[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el

[Dave Love]

Index: emacs/lisp/progmodes/f90.el
diff -c emacs/lisp/progmodes/f90.el:1.30 emacs/lisp/progmodes/f90.el:1.31
*** emacs/lisp/progmodes/f90.el:1.30    Thu Feb  1 10:59:04 2001
--- emacs/lisp/progmodes/f90.el Thu Dec  6 22:33:39 2001
***************
*** 143,151 ****
  
  ;;; Code:
  
- (defconst bug-f90-mode "address@hidden"
-   "Address of mailing list for F90 mode bugs.")
- 
  ;; User options
  
  (defgroup f90 nil
--- 143,148 ----
***************
*** 889,896 ****
    (set (make-local-variable 'add-log-current-defun-function)
         #'f90-current-defun)
    (run-hooks 'f90-mode-hook)
- ;;   (if f90-startup-message
- ;;       (message "Emacs F90 mode; please report bugs to %s" bug-f90-mode))
    (setq f90-startup-message nil))
  
  ;; inline-functions
--- 886,891 ----
***************
*** 1472,1485 ****
    (interactive)
    (let (ctype)
      (cond ((f90-in-string)
!          (insert "&") (newline) (insert "&"))
          ((f90-in-comment)
           (setq ctype (f90-get-present-comment-type))
!          (newline)
           (insert ctype))
          (t (insert "&")
             (if (not no-update) (f90-update-line))
!            (newline)
             (if f90-beginning-ampersand (insert "&")))))
    (f90-indent-line))
    
--- 1467,1480 ----
    (interactive)
    (let (ctype)
      (cond ((f90-in-string)
!          (insert "&") (newline 1) (insert "&"))
          ((f90-in-comment)
           (setq ctype (f90-get-present-comment-type))
!          (newline 1)
           (insert ctype))
          (t (insert "&")
             (if (not no-update) (f90-update-line))
!            (newline 1)
             (if f90-beginning-ampersand (insert "&")))))
    (f90-indent-line))