From 26ef1c879ec7ae86fddd4037477a2e31d2b6bc7c Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 24 Jan 2000 22:44:09 +0000 Subject: [PATCH] (fortran-mode): Use beginning-of-defun-function, end-of-defun-function. --- lisp/ChangeLog | 8 ++++++++ lisp/progmodes/fortran.el | 9 +++++---- 2 files changed, 13 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8b3db491b32..e354dac34e6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2000-01-24 Dave Love + + * 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 * term/w32-win.el (w32_create_initial_fontsets): Disabled as it diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 183b1a00e17..d53268441f0 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -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 ;; Maintainer: Dave Love @@ -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 () -- 2.39.5