Changeset 3939 for vendor/emacs-CVS_HEAD/lisp/add-log.el
- Timestamp:
- 11/01/05 07:08:22 (3 years ago)
- Files:
-
- vendor/emacs-CVS_HEAD/lisp/add-log.el (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
vendor/emacs-CVS_HEAD/lisp/add-log.el
r3806 r3939 827 827 ;; find the function name. 828 828 (when (< location (point)) 829 ;; Move back over function body. 829 830 (backward-sexp 1) 830 (let (beg tem) 831 831 (let (beg) 832 ;; Skip back over typedefs and arglist. 833 ;; Stop at the function definition itself 834 ;; or at the line that follows end of function doc string. 832 835 (forward-line -1) 833 ;; Skip back over typedefs of arglist.834 836 (while (and (not (bobp)) 835 (looking-at "[ \t\n]")) 837 (looking-at "[ \t\n]") 838 (not (looking-back "[*]/)\n" (- (point) 4)))) 836 839 (forward-line -1)) 837 ;; See if this is using the DEFUN macro used in Emacs, 838 ;; or the DEFUN macro used by the C library: 839 (if (condition-case nil 840 (and (save-excursion 841 (end-of-line) 842 (while (= (preceding-char) ?\\) 843 (end-of-line 2)) 844 (backward-sexp 1) 845 (beginning-of-line) 846 (setq tem (point)) 847 (looking-at "DEFUN\\b")) 848 (>= location tem)) 849 (error nil)) 840 ;; If we found a doc string, this must be the DEFUN macro 841 ;; used in Emacs. Move back to the DEFUN line. 842 (when (looking-back "[*]/)\n" (- (point) 4)) 843 (backward-sexp 1) 844 (beginning-of-line)) 845 ;; Is this a DEFUN construct? And is LOCATION in it? 846 (if (and (looking-at "DEFUN\\b") 847 (>= location (point))) 850 848 ;; DEFUN ("file-name-directory", Ffile_name_directory, Sfile_name_directory, ...) ==> Ffile_name_directory 851 849 ;; DEFUN(POSIX::STREAM-LOCK, stream lockp &key BLOCK SHARED START LENGTH) ==> POSIX::STREAM-LOCK 852 850 (progn 853 (goto-char tem)854 851 (down-list 1) 855 852 (when (= (char-after (point)) ?\") … … 864 861 (point)))) 865 862 (if (looking-at "^[+-]") 863 ;; C++. 866 864 (change-log-get-method-definition) 867 865 ;; Ordinary C function syntax.
