diff options
author | Richard M. Stallman <rms@gnu.org> | 1993-06-05 17:10:19 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1993-06-05 17:10:19 +0000 |
commit | 191a49ac4ba3a1120932f2a43e9231dc4bc3bdc7 (patch) | |
tree | 761a1adfad18466348a84db66e5375f86af1734b /lisp/add-log.el | |
parent | 5491f4783f5cd55007ca93571d9f0429e5bdd5bd (diff) | |
download | emacs-191a49ac4ba3a1120932f2a43e9231dc4bc3bdc7.tar.gz |
(add-log-current-defun): Fix typos in last change.
Diffstat (limited to 'lisp/add-log.el')
-rw-r--r-- | lisp/add-log.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 9c1be0e4536..a90237f96ce 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -243,8 +243,8 @@ Runs `change-log-mode-hook'." (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 @@ Has a preference of looking backwards." (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) |