branch: elpa/scad-mode
commit d862a9ad8a570703709d096478494b6705d33ad0
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Accept prefix arguments
---
scad-mode.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/scad-mode.el b/scad-mode.el
index 73a97fdb8f..c696cb5316 100644
--- a/scad-mode.el
+++ b/scad-mode.el
@@ -408,8 +408,9 @@ Key bindings:
"Define camera move function NAME which increments IDX by OFF."
`(defun ,(intern (format "scad-preview-%s" name)) (&optional offset)
"Move camera by OFFSET."
- (interactive)
- (cl-incf (nth ,idx scad-preview-camera) (or offset ,off))
+ (interactive "p")
+ (cl-incf (nth ,idx scad-preview-camera)
+ (* (cl-signum ,off) (or offset ,(abs off))))
(scad--preview-render)))
(scad--define-preview-move translate-x+ 0 10)
