[climacs-cvs] CVS update: climacs/base.lisp

[Matthieu Villeneuve]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv25515

Modified Files:
	base.lisp 
Log Message:
Fixed capitalize-buffer-region's behavior
Date: Sat Jan 29 05:16:25 2005
Author: mvilleneuve

Index: climacs/base.lisp
diff -u climacs/base.lisp:1.28 climacs/base.lisp:1.29
--- climacs/base.lisp:1.28	Fri Jan 28 23:05:42 2005
+++ climacs/base.lisp	Sat Jan 29 05:16:25 2005
@@ -298,9 +298,7 @@
              (upcase-region offset mark))))
 
 (defun capitalize-buffer-region (buffer offset1 offset2)
-  (let ((previous-char-constituent-p
-         (and (plusp offset1)
-              (constituentp (buffer-object buffer (1- offset1))))))
+  (let ((previous-char-constituent-p nil))
     (do-buffer-region (object offset buffer offset1 offset2)
       (when (constituentp object)
         (if previous-char-constituent-p