# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739300219 0
# Node ID 6428162f137c42a42b4610ac4340c309417ba588
# Parent  e34b759a7b77ccbb7c8067a000931d0a120947a6
(add-log-current-defun): Fix typos in last change.

diff -r e34b759a7b77 -r 6428162f137c lisp/add-log.el
--- a/lisp/add-log.el	Sat Jun 05 17:05:17 1993 +0000
+++ b/lisp/add-log.el	Sat Jun 05 17:10:19 1993 +0000
@@ -243,8 +243,8 @@
 (defun add-log-current-defun ()
   "Return name of function definition point is in, or nil.
 
-Understands Lisp, LaTeX (\"functions\" are chapters, sections, ...),
-Texinfo (@node titles), and C.
+Understands C, Lisp, LaTeX (\"functions\" are chapters, sections, ...),
+Texinfo (@node titles), and Fortran.
 
 Other modes are handled by a heuristic that looks in the 10K before
 point for uppercase headings starting in the first column or
@@ -381,7 +381,7 @@
                    (if (re-search-forward
 			 "^[ \t]*\\(program\\|subroutine\\|function\
 \\|[ \ta-z0-9*]*[ \t]+function\\)"
-			 string nil t)
+			 nil t)
                        (progn
                          ;; move to EOL or before first left paren
                          (if (re-search-forward "[(\n]" nil t)