Commit f27f16ed authored by Karl Heuer's avatar Karl Heuer
Browse files

(get-method-definition): Fix regexps.

parent 76b17c0b
...@@ -486,15 +486,15 @@ Has a preference of looking backwards." ...@@ -486,15 +486,15 @@ Has a preference of looking backwards."
(defun get-method-definition () (defun get-method-definition ()
(let ((md "[")) (let ((md "["))
(save-excursion (save-excursion
(if (re-search-backward "^@implementation \\(.*\\)$" nil t) (if (re-search-backward "^@implementation\\s-*\\([A-Za-z_]*\\)" nil t)
(get-method-definition-1 " "))) (get-method-definition-1 " ")))
(save-excursion (save-excursion
(cond (cond
((re-search-backward "^\\([-+]\\)[ \t\n\f\r]*\\(([^)]*)\\)?" nil t) ((re-search-forward "^\\([-+]\\)[ \t\n\f\r]*\\(([^)]*)\\)?\\s-*" nil t)
(get-method-definition-1 "") (get-method-definition-1 "")
(while (not (looking-at "[{;]")) (while (not (looking-at "[{;]"))
(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 "")) (get-method-definition-1 ""))
(concat md "]")))))) (concat md "]"))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment