From e2897e6cdd0524549617fab76e81ef1a2eb2b055 Mon Sep 17 00:00:00 2001 From: andersvi Date: Fri, 6 Mar 2009 10:09:50 +0000 Subject: [PATCH] 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 --- el/sclang-language.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/el/sclang-language.el b/el/sclang-language.el index 26ff044..624ef26 100644 --- a/el/sclang-language.el +++ b/el/sclang-language.el @@ -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)