[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	search-commands.lisp 
Log Message:
Fixed `com-isearch-append-word' to work with the new motion methods.


--- /project/climacs/cvsroot/climacs/search-commands.lisp	2006/06/12 19:10:58	1.7
+++ /project/climacs/cvsroot/climacs/search-commands.lisp	2006/07/02 18:42:28	1.8
@@ -199,7 +199,9 @@
       (isearch-from-mark pane mark string forwardp))))
 
 (define-command (com-isearch-append-word :name t :command-table isearch-climacs-table) ()
-  (isearch-append-text #'forward-word))
+  (let ((syntax (syntax (current-buffer))))
+   (isearch-append-text #'(lambda (mark)
+                            (forward-word mark syntax)))))
 
 (define-command (com-isearch-append-line :name t :command-table isearch-climacs-table) ()
   (isearch-append-text #'end-of-line))