comparison lisp/add-log.el @ 11816:2a8e1b01bc15

(get-method-definition): Fix regexps.

11815:e8214d59e98d

;; For objective C, return the method name if we are in a method.
(defun get-method-definition ()
  (let ((md "["))
    (save-excursion
      (if (re-search-backward "^@implementation \\(.*\\)$" nil t)
	  (get-method-definition-1 " ")))
    (save-excursion
      (cond
       ((re-search-backward "^\\([-+]\\)[ \t\n\f\r]*\\(([^)]*)\\)?" nil t)
	(get-method-definition-1 "")
	(while (not (looking-at "[{;]"))
	  (looking-at
	   "\\([^ ;{:\t\n\f\r]*:?\\)\\(([^)]*)\\)?[^ ;{:\t\n\f\r]*[ \t\n\f\r]*")
	  (get-method-definition-1 ""))
	(concat md "]"))))))


(provide 'add-log)

11816:2a8e1b01bc15

;; For objective C, return the method name if we are in a method.
(defun get-method-definition ()
  (let ((md "["))
    (save-excursion
      (if (re-search-backward "^@implementation\\s-*\\([A-Za-z_]*\\)" nil t)
	  (get-method-definition-1 " ")))
    (save-excursion
      (cond
       ((re-search-forward "^\\([-+]\\)[ \t\n\f\r]*\\(([^)]*)\\)?\\s-*" nil t)
	(get-method-definition-1 "")
	(while (not (looking-at "[{;]"))
	  (looking-at
	   "\\([A-Za-z_]*:?\\)\\s-*\\(([^)]*)\\)?[A-Za-z_]*[ \t\n\f\r]*")
	  (get-method-definition-1 ""))
	(concat md "]"))))))


(provide 'add-log)