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:
parent
34a4a5222b
commit
e2897e6cdd
1 changed files with 1 additions and 2 deletions
|
@ -325,11 +325,10 @@ Return value is nil or (beg end) of defun."
|
|||
(save-excursion
|
||||
(let ((orig (point))
|
||||
beg end)
|
||||
(and (progn (beginning-of-defun-raw 1) t)
|
||||
(and (progn (end-of-line) (beginning-of-defun-raw 1) t)
|
||||
(setq beg (point))
|
||||
(condition-case nil (forward-list 1) (error nil))
|
||||
(setq end (point))
|
||||
(> (point) orig)
|
||||
(list beg end)))))
|
||||
|
||||
(defun sclang-end-of-defun (&optional arg)
|
||||
|
|
Loading…
Reference in a new issue