Mercurial > emacs
changeset 11816:2a8e1b01bc15
(get-method-definition): Fix regexps.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 15 May 1995 22:00:20 +0000 |
| parents | e8214d59e98d |
| children | ba82c338bee3 |
| files | lisp/add-log.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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 "]"))))))