Commit 568ec09d authored by Sam Steingold's avatar Sam Steingold
Browse files

(add-log-current-defun): Support more C DEFUN forms.

parent 7651545c
2005-03-21 Sam Steingold <sds@gnu.org>
* add-log.el (add-log-current-defun): Support more C DEFUN forms.
2005-03-21 Thien-Thi Nguyen <ttn@gnu.org>
 
* progmodes/dcl-mode.el (dcl-font-lock-keywords):
......
......@@ -812,7 +812,7 @@ Has a preference of looking backwards."
(looking-at "[ \t\n]"))
(forward-line -1))
;; See if this is using the DEFUN macro used in Emacs,
;; or the DEFUN macro used by the C library.
;; or the DEFUN macro used by the C library:
(if (condition-case nil
(and (save-excursion
(end-of-line)
......@@ -824,16 +824,20 @@ Has a preference of looking backwards."
(looking-at "DEFUN\\b"))
(>= location tem))
(error nil))
;; DEFUN ("file-name-directory", Ffile_name_directory, Sfile_name_directory, ...) ==> Ffile_name_directory
;; DEFUN(POSIX::STREAM-LOCK, stream lockp &key BLOCK SHARED START LENGTH) ==> POSIX::STREAM-LOCK
(progn
(goto-char tem)
(down-list 1)
(if (= (char-after (point)) ?\")
(progn
(forward-sexp 1)
(skip-chars-forward " ,")))
(when (= (char-after (point)) ?\")
(forward-sexp 1)
(search-forward ","))
(skip-syntax-forward " ")
(buffer-substring-no-properties
(point)
(progn (forward-sexp 1)
(progn (search-forward ",")
(forward-char -1)
(skip-syntax-backward " ")
(point))))
(if (looking-at "^[+-]")
(change-log-get-method-definition)
......
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