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