Mercurial > emacs
changeset 3499:6428162f137c
(add-log-current-defun): Fix typos in last change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 05 Jun 1993 17:10:19 +0000 |
| parents | e34b759a7b77 |
| children | 78c1c1e9f4d2 |
| files | lisp/add-log.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)