24 |
;; GNU General Public License for more details. |
;; GNU General Public License for more details. |
25 |
|
|
26 |
;; You should have received a copy of the GNU General Public License |
;; You should have received a copy of the GNU General Public License |
27 |
;; along with GNU Emacs; see the file COPYING. If not, write to |
;; along with this program; see the file COPYING. If not, write to |
28 |
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
29 |
;; Boston, MA 02111-1307, USA. |
;; Boston, MA 02110-1301, USA. |
30 |
|
|
31 |
;;; Commentary: |
;;; Commentary: |
32 |
|
|
175 |
(let ((open-paren (elt c-syntactic-element 2)) |
(let ((open-paren (elt c-syntactic-element 2)) |
176 |
(paren-state (c-parse-state))) |
(paren-state (c-parse-state))) |
177 |
(while (not (eq (car paren-state) open-paren)) |
(while (not (eq (car paren-state) open-paren)) |
178 |
(goto-char (car paren-state)) |
(unless (consp (car paren-state)) ;; ignore matched braces |
179 |
|
(goto-char (car paren-state))) |
180 |
(setq paren-state (cdr paren-state))))) |
(setq paren-state (cdr paren-state))))) |
181 |
|
|
182 |
(let ((start (point)) c) |
(let ((start (point)) c) |
1172 |
;;(/= (point-max) |
;;(/= (point-max) |
1173 |
;; (save-excursion (skip-syntax-forward " ") (point)) |
;; (save-excursion (skip-syntax-forward " ") (point)) |
1174 |
(zerop (forward-line 1)) |
(zerop (forward-line 1)) |
1175 |
|
(bolp) ; forward-line has funny behavior at eob. |
1176 |
(not (looking-at "^[ \t]*$"))) |
(not (looking-at "^[ \t]*$"))) |
1177 |
'stop |
'stop |
1178 |
nil))) |
nil))) |