diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-02-14 14:27:24 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-02-14 14:27:24 +0000 |
| commit | 4632a8938ae0bf3cb12586417c42fc923cd0e53d (patch) | |
| tree | 96f732357a9bc7cfede89ad165467108dd8b390e /lisp | |
| parent | 997d34382152fbc9802dd90ae4e40d6cb0b4442a (diff) | |
| download | emacs-4632a8938ae0bf3cb12586417c42fc923cd0e53d.tar.gz | |
* fortran.el (fortran-prepare-abbrev-list-buffer): Put quote in
front of first argument to `insert-abbrev-table-description'.
* fortran.el (fortran-is-in-string-p): Fixed incorrect behaviour
when in first statement of a buffer.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/fortran.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 5a0aa4511f8..5a987da372b 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -4,7 +4,7 @@ ;; Author: Michael D. Prange <prange@erl.mit.edu> ;; Maintainer: bug-fortran-mode@erl.mit.edu -;; Version 1.30 (November 18, 1992) +;; Version 1.30 (February 2, 1993) ;; Keywords: languages ;; This file is part of GNU Emacs. @@ -38,10 +38,10 @@ ;;; This file may be used with GNU Emacs version 18.xx if the following ;;; variable and function substutions are made. -;;; Replace: -;;; unread-command-events with unread-command-char -;;; frame-width with screen-width -;;; auto-fill-function with auto-fill-hook +;;; Replace: +;;; frame-width with screen-width +;;; auto-fill-function with auto-fill-hook +;;; (setq unread-command-events (list c)) with (setq unread-command-char c) ;;; Bugs to bug-fortran-mode@erl.mit.edu @@ -483,7 +483,7 @@ Any other key combination is executed normally." (save-excursion (set-buffer (get-buffer-create "*Abbrevs*")) (erase-buffer) - (insert-abbrev-table-description fortran-mode-abbrev-table t) + (insert-abbrev-table-description 'fortran-mode-abbrev-table t) (goto-char (point-min)) (set-buffer-modified-p nil) (edit-abbrevs-mode)) @@ -1029,8 +1029,8 @@ Fortran strings are delimeted by apostrophes (\'). Quote-Escape-sequences (let ((is-in-fortran-string nil)) (save-excursion (goto-char pos) - (fortran-previous-statement) - (fortran-next-statement) + (if (not (fortran-previous-statement)) + (fortran-next-statement)) (while (< (point) pos) ;; Make sure we don't count quotes in continuation column. (if (looking-at "^ ") |