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)))))