Mercurial > emacs
changeset 1862:f6a38dd2250b
* 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.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sun, 14 Feb 1993 14:27:24 +0000 |
| parents | b5c86d0608ac |
| children | 6f55c76b5789 |
| files | lisp/progmodes/fortran.el |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el Sun Feb 14 14:26:41 1993 +0000 +++ b/lisp/progmodes/fortran.el Sun Feb 14 14:27:24 1993 +0000 @@ -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 @@ (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 @@ (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 "^ ")