[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el |
Date: |
Thu, 06 Dec 2001 22:33:39 -0500 |
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))
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el,
Richard M. Stallman <=