Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

(fortran-mode): Use beginning-of-defun-function, end-of-defun-function.

Browse source
This commit is contained in:
Dave Love 2000-01-24 22:44:09 +00:00
parent ef7deaa98c
commit 26ef1c879e
2 changed files with 13 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
2000-01-24 Dave Love <fx@gnu.org>
* fortran.el (fortran-mode): Use beginning-of-defun-function,
end-of-defun-function.
* font-lock.el (turn-on-font-lock): Don't depend on window-system
&c.
2000-01-22 Jason Rumney <jasonr@gnu.org>
* term/w32-win.el (w32_create_initial_fontsets): Disabled as it

9
lisp/progmodes/fortran.el
View file

@ -1,6 +1,6 @@
;;; fortran.el --- Fortran mode for GNU Emacs
;; Copyright (c) 1986, 93, 94, 95, 97-99, 2000 Free Software Foundation, Inc.
;; Copyright (c) 1986, 93, 94, 95, 97, 98, 99, 2000 Free Software Foundation, Inc.
;; Author: Michael D. Prange <prange@erl.mit.edu>
;; Maintainer: Dave Love <fx@gnu.org>
@ -658,7 +658,6 @@ with no args, if that value is non-nil."
(setq fortran-tab-mode-string " TAB-format")
(setq indent-tabs-mode (fortran-analyze-file-format))
(setq imenu-case-fold-search t)
(make-local-variable 'imenu-generic-expression)
(setq imenu-generic-expression fortran-imenu-generic-expression)
(setq imenu-syntax-alist '(("_$" . "w")))
(set (make-local-variable 'fill-paragraph-function) 'fortran-fill-paragraph)
@ -668,8 +667,10 @@ with no args, if that value is non-nil."
(let (fortran-blink-matching-if ; avoid blinking delay
indent-region-function)
(indent-region start end nil))))
(setq beginning-of-defun #'fortran-beginning-of-subprogram)
(setq end-of-defun #'fortran-end-of-subprogram)
(set (make-local-variable 'beginning-of-defun-function)
#'fortran-beginning-of-subprogram)
(set (make-local-variable 'end-of-defun-function)
#'fortran-end-of-subprogram)
(run-hooks 'fortran-mode-hook))
(defun fortran-comment-indent-function ()