fix for dc

extensions/vi-mode/commands/utils.lisp

@@ -163,21 +163,20 @@
                        (ignore-some-conditions (end-of-buffer)
                          (next-logical-line (1- (or uarg 1))))
                        (values start (copy-point (current-point)) :line))
-                     ;; Ignore an invalid operator (like 'dJ')
-                     nil))
+                     ;; raise error for invalid commands
+                     (error 'editor-abort :message nil)))
                 (otherwise
                  (call-motion command uarg)))))))))
 
 (defun visual-region ()
-  (if (visual-p)
-      (values-list
-       (append (visual-range)
-               (list
-                (cond
-                  ((visual-line-p) :line)
-                  ((visual-block-p) :block)
-                  (t :exclusive)))))
-      (values nil nil nil)))
+  (assert (visual-p))
+  (values-list
+   (append (visual-range)
+           (list
+            (cond
+              ((visual-line-p) :line)
+              ((visual-block-p) :block)
+              (t :exclusive))))))
 
 (defun operator-region (motion &key move-point with-type)
   (multiple-value-bind (start end type)