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
|
(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)
|
||||||
|
|
Loading…
Reference in a new issue