[Emacs-diffs] Changes to emacs/lisp/add-log.el

[Sam Steingold]

Index: emacs/lisp/add-log.el
diff -c emacs/lisp/add-log.el:1.155 emacs/lisp/add-log.el:1.156
*** emacs/lisp/add-log.el:1.155 Wed Feb  9 15:50:43 2005
--- emacs/lisp/add-log.el       Mon Mar 21 14:37:35 2005
***************
*** 812,818 ****
                                 (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.
                     (if (condition-case nil
                             (and (save-excursion
                                    (end-of-line)
--- 812,818 ----
                                 (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:
                     (if (condition-case nil
                             (and (save-excursion
                                    (end-of-line)
***************
*** 824,839 ****
                                    (looking-at "DEFUN\\b"))
                                  (>= location tem))
                           (error nil))
                         (progn
                           (goto-char tem)
                           (down-list 1)
!                          (if (= (char-after (point)) ?\")
!                              (progn
!                                (forward-sexp 1)
!                                (skip-chars-forward " ,")))
                           (buffer-substring-no-properties
                            (point)
!                           (progn (forward-sexp 1)
                                   (point))))
                       (if (looking-at "^[+-]")
                           (change-log-get-method-definition)
--- 824,843 ----
                                    (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)
!                          (when (= (char-after (point)) ?\")
!                              (forward-sexp 1)
!                              (search-forward ","))
!                            (skip-syntax-forward " ")
                           (buffer-substring-no-properties
                            (point)
!                           (progn (search-forward ",")
!                                    (forward-char -1)
!                                    (skip-syntax-backward " ")
                                   (point))))
                       (if (looking-at "^[+-]")
                           (change-log-get-method-definition)