812 |
(looking-at "[ \t\n]")) |
(looking-at "[ \t\n]")) |
813 |
(forward-line -1)) |
(forward-line -1)) |
814 |
;; See if this is using the DEFUN macro used in Emacs, |
;; See if this is using the DEFUN macro used in Emacs, |
815 |
;; or the DEFUN macro used by the C library. |
;; or the DEFUN macro used by the C library: |
816 |
(if (condition-case nil |
(if (condition-case nil |
817 |
(and (save-excursion |
(and (save-excursion |
818 |
(end-of-line) |
(end-of-line) |
824 |
(looking-at "DEFUN\\b")) |
(looking-at "DEFUN\\b")) |
825 |
(>= location tem)) |
(>= location tem)) |
826 |
(error nil)) |
(error nil)) |
827 |
|
;; DEFUN ("file-name-directory", Ffile_name_directory, Sfile_name_directory, ...) ==> Ffile_name_directory |
828 |
|
;; DEFUN(POSIX::STREAM-LOCK, stream lockp &key BLOCK SHARED START LENGTH) ==> POSIX::STREAM-LOCK |
829 |
(progn |
(progn |
830 |
(goto-char tem) |
(goto-char tem) |
831 |
(down-list 1) |
(down-list 1) |
832 |
(if (= (char-after (point)) ?\") |
(when (= (char-after (point)) ?\") |
833 |
(progn |
(forward-sexp 1) |
834 |
(forward-sexp 1) |
(search-forward ",")) |
835 |
(skip-chars-forward " ,"))) |
(skip-syntax-forward " ") |
836 |
(buffer-substring-no-properties |
(buffer-substring-no-properties |
837 |
(point) |
(point) |
838 |
(progn (forward-sexp 1) |
(progn (search-forward ",") |
839 |
|
(forward-char -1) |
840 |
|
(skip-syntax-backward " ") |
841 |
(point)))) |
(point)))) |
842 |
(if (looking-at "^[+-]") |
(if (looking-at "^[+-]") |
843 |
(change-log-get-method-definition) |
(change-log-get-method-definition) |