Mercurial > emacs
changeset 41848:a20c1a3fca7f
(f90-break-line): Use (newline 1) to insert newlines.
(bug-f90-mode): Variable deleted.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Dec 2001 03:33:39 +0000 |
| parents | 7423116b7ac3 |
| children | 82810216f9a4 |
| files | lisp/progmodes/f90.el |
| diffstat | 1 files changed, 3 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/f90.el Thu Dec 06 16:24:26 2001 +0000 +++ b/lisp/progmodes/f90.el Fri Dec 07 03:33:39 2001 +0000 @@ -143,9 +143,6 @@ ;;; Code: -(defconst bug-f90-mode "T.Einarsson@clab.ericsson.se" - "Address of mailing list for F90 mode bugs.") - ;; User options (defgroup f90 nil @@ -889,8 +886,6 @@ (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 @@ -1472,14 +1467,14 @@ (interactive) (let (ctype) (cond ((f90-in-string) - (insert "&") (newline) (insert "&")) + (insert "&") (newline 1) (insert "&")) ((f90-in-comment) (setq ctype (f90-get-present-comment-type)) - (newline) + (newline 1) (insert ctype)) (t (insert "&") (if (not no-update) (f90-update-line)) - (newline) + (newline 1) (if f90-beginning-ampersand (insert "&"))))) (f90-indent-line))