From 60db35943357fffada30fdf38e864a38bae1076e Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 3 Nov 1997 02:50:20 +0000 Subject: [PATCH] (fortran-imenu-generic-expression): Doc fix. Delete redundant setq. --- lisp/progmodes/fortran.el | 57 +++++++++++++++------------------------ 1 file changed, 22 insertions(+), 35 deletions(-) diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 6d09a86a7ee..fdf5620584a 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -34,7 +34,7 @@ ;; We acknowledge many contributions and valuable suggestions by ;; Lawrence R. Dodd, Ralf Fassel, Ralph Finch, Stephen Gildea, -;; Dr. Anil Gokhale, Ulrich Mueller, Mark Neale, Eric Prestemon, +;; Dr. Anil Gokhale, Ulrich Mueller, Mark Neale, Eric Prestemon, ;; Gary Sabot and Richard Stallman. ;; This file may be used with GNU Emacs version 18.xx if the following @@ -243,7 +243,7 @@ This variable used in TAB format mode.") ;; standard comment syntax in an Emacs syntax table (we can for VAX-style). ;; Therefore an unmatched quote in a standard comment will throw fontification ;; off on the wrong track. So we do syntactic fontification with regexps. - + ;; Regexps done by simon@gnu with help from Ulrik Dickow and ;; probably others Si's forgotten about (sorry). @@ -368,7 +368,7 @@ This variable used in TAB format mode.") (defvar fortran-font-lock-keywords fortran-font-lock-keywords-1 "Default expressions to highlight in Fortran mode.") - + (defvar fortran-imenu-generic-expression (list (list @@ -382,22 +382,9 @@ This variable used in TAB format mode.") subroutine\\|entry\\|block\\s-*data\\|program\\)[ \t]+\ \\(\\sw+\\)" 3)) - "imenu generic expression for `imenu-ci-deafult-create-index-function'.") -(setq fortran-imenu-generic-expression - (list - (list - nil - ;; Lines are: 1. leading whitespace; 2. function declaration - ;; with optional type, e.g. `real', `double precision', [which - ;; will be fooled by `end function' allowed by G77]; 3. untyped - ;; declarations; 4. the variable to index. - "^\\s-+\\(\ -\\(\\sw\\|\\s-\\)*\\ (save-excursion - (goto-char fill-point) + (goto-char fill-point) (current-column)) (+ (calculate-fortran-indent) fortran-continuation-indent)) (progn @@ -1619,7 +1606,7 @@ automatically breaks the line at a previous space." (bol (save-excursion (beginning-of-line) (point))) (eol (save-excursion (end-of-line) (point))) (comment-string nil)) - + (save-excursion (if (and comment-start-skip (fortran-find-comment-start-skip)) (progn -- 2.39.2