Commit faf142ec authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(add-log-current-defun): Clean up handling of DEFUNs.

parent e536613e
......@@ -826,31 +826,28 @@ Has a preference of looking backwards."
;; If the desired position is within the defun we found,
;; find the function name.
(when (< location (point))
;; Move back over function body.
(backward-sexp 1)
(let (beg tem)
(let (beg)
;; Skip back over typedefs and arglist.
;; Stop at the function definition itself
;; or at the line that follows end of function doc string.
(forward-line -1)
;; Skip back over typedefs of arglist.
(while (and (not (bobp))
(looking-at "[ \t\n]"))
(looking-at "[ \t\n]")
(not (looking-back "[*]/)\n" (- (point) 4))))
(forward-line -1))
;; See if this is using the DEFUN macro used in Emacs,
;; or the DEFUN macro used by the C library:
(if (condition-case nil
(and (save-excursion
(while (= (preceding-char) ?\\)
(end-of-line 2))
(backward-sexp 1)
(setq tem (point))
(looking-at "DEFUN\\b"))
(>= location tem))
(error nil))
;; If we found a doc string, this must be the DEFUN macro
;; used in Emacs. Move back to the DEFUN line.
(when (looking-back "[*]/)\n" (- (point) 4))
(backward-sexp 1)
;; Is this a DEFUN construct? And is LOCATION in it?
(if (and (looking-at "DEFUN\\b")
(>= location (point)))
;; DEFUN ("file-name-directory", Ffile_name_directory, Sfile_name_directory, ...) ==> Ffile_name_directory
(goto-char tem)
(down-list 1)
(when (= (char-after (point)) ?\")
(forward-sexp 1)
......@@ -863,6 +860,7 @@ Has a preference of looking backwards."
(skip-syntax-backward " ")
(if (looking-at "^[+-]")
;; C++.
;; Ordinary C function syntax.
(setq beg (point))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment