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