# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 800575220 0
# Node ID 2a8e1b01bc15be275e1921576a3e2e726eb2969f
# Parent  e8214d59e98dfd812ad0b46c1bff1b8aaad44255
(get-method-definition): Fix regexps.

diff -r e8214d59e98d -r 2a8e1b01bc15 lisp/add-log.el
--- a/lisp/add-log.el	Mon May 15 21:53:39 1995 +0000
+++ b/lisp/add-log.el	Mon May 15 22:00:20 1995 +0000
@@ -486,15 +486,15 @@
 (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 "]"))))))