(get-method-definition): Fix regexps.

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 1b16295c0ebe345dbd8b79369e7ea44878f3ea58..57ff5228f8f714a66d73546ada1e5146c2ffe3f5 100644 (file)
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -486,15 +486,15 @@ Has a preference of looking backwards."
 (defun get-method-definition ()
   (let ((md "["))
     (save-excursion
-      (if (re-search-backward "^@implementation \\(.*\\)$" nil t)
+      (if (re-search-backward "^@implementation\\s-*\\([A-Za-z_]*\\)" nil t)
          (get-method-definition-1 " ")))
     (save-excursion
       (cond
-       ((re-search-backward "^\\([-+]\\)[ \t\n\f\r]*\\(([^)]*)\\)?" nil t)
+       ((re-search-forward "^\\([-+]\\)[ \t\n\f\r]*\\(([^)]*)\\)?\\s-*" nil t)
        (get-method-definition-1 "")
        (while (not (looking-at "[{;]"))
          (looking-at
-          "\\([^ ;{:\t\n\f\r]*:?\\)\\(([^)]*)\\)?[^ ;{:\t\n\f\r]*[ \t\n\f\r]*")
+          "\\([A-Za-z_]*:?\\)\\s-*\\(([^)]*)\\)?[A-Za-z_]*[ \t\n\f\r]*")
          (get-method-definition-1 ""))
        (concat md "]"))))))