Commit 59c1a7de authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(get-method-definition, get-method-definition-1): New functions.

(add-log-current-defun): Use them to handle objc-mode.
parent 002c4306
......@@ -349,6 +349,8 @@ Has a preference of looking backwards."
(skip-chars-forward " \t")
(buffer-substring (point)
(progn (forward-sexp 1) (point))))
((and (eq major-mode 'objc-mode)
((memq major-mode '(c-mode c++-mode c++-c-mode))
;; See if we are in the beginning part of a function,
......@@ -471,6 +473,31 @@ Has a preference of looking backwards."
(match-end 1))))))))
(error nil)))
;; Subroutine used within get-method-definition.
;; Add the last match in the buffer to the end of `md',
;; followed by the string END; move to the end of that match.
(defun get-method-definition-1 (end)
(setq md (concat md
(buffer-substring (match-beginning 1) (match-end 1))
(goto-char (match-end 0)))
;; For objective C, return the method name if we are in a method.
(defun get-method-definition ()
(let ((md "["))
(if (re-search-backward "^@implementation \\(.*\\)$" nil t)
(get-method-definition-1 " ")))
((re-search-backward "^\\([-+]\\)[ \t\n\f\r]*\\(([^)]*)\\)?" nil t)
(get-method-definition-1 "")
(while (not (looking-at "[{;]"))
"\\([^ ;{:\t\n\f\r]*:?\\)\\(([^)]*)\\)?[^ ;{:\t\n\f\r]*[ \t\n\f\r]*")
(get-method-definition-1 ""))
(concat md "]"))))))
(provide 'add-log)
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