[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv1454

Modified Files:
	base.lisp 
Log Message:
Added non-syntax-aware version of `whitespacep'.


--- /project/climacs/cvsroot/climacs/base.lisp	2006/06/12 19:10:58	1.51
+++ /project/climacs/cvsroot/climacs/base.lisp	2006/06/29 14:23:26	1.52
@@ -139,6 +139,11 @@
                                 #\: #\< #\= #\> #\? #\@ #\^ #\~ #\_
                                 #\{ #\} #\[ #\] )))))
 
+(defun buffer-whitespacep (obj)
+  "Return T if `obj' is a basic whitespace character. This
+  function does not respect the current syntax."
+  (member obj '(#\Space #\Tab #\Newline #\Page #\Return)))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; 
 ;;; Character case
@@ -317,7 +322,7 @@
     (loop
        for i downfrom (- offset wlen) to 0
        for j = (+ i wlen)
-       when (and (or (zerop i) (whitespacep t (buffer-object buffer (1- i))))
+       when (and (or (zerop i) (buffer-whitespacep (buffer-object buffer (1- i))))
 		 (buffer-looking-at buffer i word :test test)
 		 (not (and (< (+ i wlen) blen)
 			   (constituentp (buffer-object buffer (+ i wlen))))))
@@ -337,7 +342,7 @@
     (loop
        for i upfrom offset to (- blen (max wlen 1))
        for j = (+ i wlen)
-       when (and (or (zerop i) (whitespacep (buffer-object buffer (1- i))))
+       when (and (or (zerop i) (buffer-whitespacep (buffer-object buffer (1- i))))
 		 (buffer-looking-at buffer i word :test test)
 		 (not (and (< j blen)
 			   (constituentp (buffer-object buffer j)))))