modified clang-point-in-defun-p to allow positioning on the beginning

paren and immediately after the end-paren of a block


git-svn-id: https://supercollider.svn.sourceforge.net/svnroot/supercollider/trunk@8884 a380766d-ff14-0410-b294-a243070f3f08
This commit is contained in:
andersvi 2009-03-06 10:09:50 +00:00
parent 34a4a5222b
commit e2897e6cdd

View file

@ -325,11 +325,10 @@ Return value is nil or (beg end) of defun."
(save-excursion (save-excursion
(let ((orig (point)) (let ((orig (point))
beg end) beg end)
(and (progn (beginning-of-defun-raw 1) t) (and (progn (end-of-line) (beginning-of-defun-raw 1) t)
(setq beg (point)) (setq beg (point))
(condition-case nil (forward-list 1) (error nil)) (condition-case nil (forward-list 1) (error nil))
(setq end (point)) (setq end (point))
(> (point) orig)
(list beg end))))) (list beg end)))))
(defun sclang-end-of-defun (&optional arg) (defun sclang-end-of-defun (&optional arg)