[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv13353

Modified Files:
	basic-commands.lisp 
Log Message:
Fixed Backward Delete Unit commands.


--- /project/mcclim/cvsroot/mcclim/Drei/basic-commands.lisp	2006/11/14 19:43:36	1.3
+++ /project/mcclim/cvsroot/mcclim/Drei/basic-commands.lisp	2007/01/17 11:44:30	1.4
@@ -245,7 +245,7 @@
 ;;;
 ;;; This file also holds command definitions for other functions
 ;;; defined in the DREI-EDITING package.
-
+n
 (defmacro define-deletion-commands (unit command-table &key
                                     noun
                                     plural)
@@ -311,14 +311,14 @@
                ((count 'integer :prompt ,(concat "Number of " plural)))
              ,(concat "Delete from point until the next " noun " end.
 With a positive numeric argument, delete that many " plural " forward.")
-             (,backward-delete *current-point* count))
+             (,backward-delete *current-point* (syntax *current-buffer*) count))
 
            ;; Backward Delete Unit
            (define-command (,com-backward-delete :name t :command-table ,command-table)
                ((count 'integer :prompt ,(concat "Number of " plural)))
              ,(concat "Delete from point until the previous " noun " beginning.
 With a positive numeric argument, delete that many " plural " backward.")
-             (,backward-delete *current-point* count)))))))
+             (,backward-delete *current-point* (syntax *current-buffer*) count)))))))
 
 (defmacro define-editing-commands (unit command-table &key
                                    noun