mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(add-log-current-defun): Fix typos in last change.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-06-05 17:10:19 +00:00
parent 4ce8eec2d5
commit 633149516a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/add-log.el
View File

@ -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)