From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 14 Jul 2005 19:35:15 +0000 (+0000)
Subject: Fix indentation of #; for single lines.
X-Git-Tag: 20090517-FFI~1255
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b7d0dac69931f6cc5882daacb1a279e448308f53;p=mit-scheme.git

Fix indentation of #; for single lines.
---

diff --git a/v7/src/edwin/linden.scm b/v7/src/edwin/linden.scm
index 6206b0aff..ab7a83f93 100644
--- a/v7/src/edwin/linden.scm
+++ b/v7/src/edwin/linden.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: linden.scm,v 1.131 2005/06/10 01:50:39 cph Exp $
+$Id: linden.scm,v 1.132 2005/07/14 19:35:15 cph Exp $
 
 Copyright 1987,1989,1991,1995,1996,2005 Massachusetts Institute of Technology
 
@@ -273,14 +273,15 @@ is used to calculate the indentation for that form."
 ;;;; Indent Comment
 
 (define (lisp-comment-locate mark)
-  (and (re-search-forward ";+[ \t]*" mark (line-end mark 0))
+  (and (re-search-forward "\\(#;\\|;+\\)[ \t]*" mark (line-end mark 0))
        (cons (re-match-start 0) (re-match-end 0))))
 
 (define (lisp-comment-indentation mark #!optional stack)
   (let ((column
 	 (cond ((match-forward ";;;" mark)
 		0)
-	       ((match-forward ";;" mark)
+	       ((or (match-forward ";;" mark)
+		    (match-forward "#;" mark))
 		(compute-indentation mark
 				     (if (default-object? stack) '() stack)))
 	       (else