Changeset 714

Timestamp:

Mar 24, 2004, 12:48:17 AM (21 years ago)

Author:

Gary Byers

Message:

Transpose Characters - do it even if at line end (may be bugs in
%SET-NEXT-CHARACTER.)

File:

• trunk/ccl/hemlock/src/command.lisp (modified) (1 diff)

trunk/ccl/hemlock/src/command.lisp

@@ -141 +141 @@
         (point (current-point)))
     (dotimes (i (abs arg))
-      (when (or (minusp arg) (end-line-p point)) (mark-before point))
+      (when (minusp arg) (mark-before point))
       (let ((prev (previous-character point))
             (next (next-character point)))
+
         (cond ((not prev) (editor-error "No previous character."))
               ((not next) (editor-error "No next character."))