From b678a3de00c7dfa7fe2092ca081defffb6d6b9e7 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 16 Jan 1995 20:08:33 +0000 Subject: [PATCH] Fix bug in C indentation: side-effect occurring at wrong time caused temporary markers to lose their position. --- v7/src/edwin/cinden.scm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/v7/src/edwin/cinden.scm b/v7/src/edwin/cinden.scm index 57e295389..f3f7c21e8 100644 --- a/v7/src/edwin/cinden.scm +++ b/v7/src/edwin/cinden.scm @@ -1,8 +1,8 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: cinden.scm,v 1.9 1993/09/17 03:49:13 cph Exp $ +;;; $Id: cinden.scm,v 1.10 1995/01/16 20:08:33 cph Exp $ ;;; -;;; Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology +;;; Copyright (c) 1986, 1989-95 Massachusetts Institute of Technology ;;; ;;; This material was developed by the Scheme project at the ;;; Massachusetts Institute of Technology, Department of @@ -304,11 +304,10 @@ This is in addition to c-continued-statement-offset." (define (c-indent-expression:parse-line start end state) (let loop ((start start) (state state)) + (if (and state (parse-state-in-comment? state)) + (c-indent-line start)) (let ((start* (line-start start 1))) - (let ((state* - (parse-partial-sexp start start* false false state))) - (if (and state (parse-state-in-comment? state)) - (c-indent-line start)) + (let ((state* (parse-partial-sexp start start* false false state))) (cond ((mark= start* end) (values start* state*)) ((parse-state-in-comment? state*) -- 2.25.1