diff options
| author | Richard M. Stallman | 1993-06-05 17:10:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-06-05 17:10:19 +0000 |
| commit | 633149516adc314beec6b1ebdb9eae2caaf0d866 (patch) | |
| tree | e3cc84d8994e7ccbae3ddfd79508ce794b629637 | |
| parent | 4ce8eec2d54062fd296d226529b80c881336ab7b (diff) | |
| download | emacs-633149516adc314beec6b1ebdb9eae2caaf0d866.tar.gz emacs-633149516adc314beec6b1ebdb9eae2caaf0d866.zip | |
(add-log-current-defun): Fix typos in last change.
| -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'." | |||
| 243 | (defun add-log-current-defun () | 243 | (defun add-log-current-defun () |
| 244 | "Return name of function definition point is in, or nil. | 244 | "Return name of function definition point is in, or nil. |
| 245 | 245 | ||
| 246 | Understands Lisp, LaTeX (\"functions\" are chapters, sections, ...), | 246 | Understands C, Lisp, LaTeX (\"functions\" are chapters, sections, ...), |
| 247 | Texinfo (@node titles), and C. | 247 | Texinfo (@node titles), and Fortran. |
| 248 | 248 | ||
| 249 | Other modes are handled by a heuristic that looks in the 10K before | 249 | Other modes are handled by a heuristic that looks in the 10K before |
| 250 | point for uppercase headings starting in the first column or | 250 | point for uppercase headings starting in the first column or |
| @@ -381,7 +381,7 @@ Has a preference of looking backwards." | |||
| 381 | (if (re-search-forward | 381 | (if (re-search-forward |
| 382 | "^[ \t]*\\(program\\|subroutine\\|function\ | 382 | "^[ \t]*\\(program\\|subroutine\\|function\ |
| 383 | \\|[ \ta-z0-9*]*[ \t]+function\\)" | 383 | \\|[ \ta-z0-9*]*[ \t]+function\\)" |
| 384 | string nil t) | 384 | nil t) |
| 385 | (progn | 385 | (progn |
| 386 | ;; move to EOL or before first left paren | 386 | ;; move to EOL or before first left paren |
| 387 | (if (re-search-forward "[(\n]" nil t) | 387 | (if (re-search-forward "[(\n]" nil t) |