/[emacs]/emacs/lisp/add-log.el
ViewVC logotype

Diff of /emacs/lisp/add-log.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.155 by kfstorm, Wed Feb 9 15:50:43 2005 UTC revision 1.156 by sds, Mon Mar 21 14:37:35 2005 UTC
# Line 812  Has a preference of looking backwards." Line 812  Has a preference of looking backwards."
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)
# Line 824  Has a preference of looking backwards." Line 824  Has a preference of looking backwards."
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)

Legend:
Removed from v.1.155  
changed lines
  Added in v.1.156

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26