branch: externals/dape
commit f423809b2f18527df4f7cfa20b121d333b0cf227
Author: Daniel Pettersson <[email protected]>
Commit: Daniel Pettersson <[email protected]>
Remove useless interactive prefix arg
---
dape.el | 51 +++++++++++++++++++++++++--------------------------
1 file changed, 25 insertions(+), 26 deletions(-)
diff --git a/dape.el b/dape.el
index 0951fb9e58..8300dbe30c 100644
--- a/dape.el
+++ b/dape.el
@@ -511,26 +511,25 @@ The hook is run with one argument, the compilation
buffer."
(declare (indent 2))
`(,request-fn ,@args (dape--callback ,@body)))
-(defun dape--next-like-command (command &optional arg)
+(defun dape--next-like-command (command)
"Helper for interactive step like commands.
Run step like COMMAND. If ARG is set run COMMAND ARG times."
(if (dape--stopped-threads)
- (dotimes (_ (or arg 1))
- (dape-request (dape--live-process)
- command
- `(,@(dape--thread-id-object)
- ,@(when (plist-get dape--capabilities
- :supportsSteppingGranularity)
- (list :granularity
- (symbol-name dape-stepping-granularity))))
- (dape--callback
- (when success
- (dape--update-state "running")
- (dape--remove-stack-pointers)
- (dolist (thread dape--threads)
- (plist-put thread :status "running"))
- (run-hooks 'dape-update-ui-hooks)))))
- (user-error "No stopped threads")))
+ (dape-request (dape--live-process)
+ command
+ `(,@(dape--thread-id-object)
+ ,@(when (plist-get dape--capabilities
+ :supportsSteppingGranularity)
+ (list :granularity
+ (symbol-name dape-stepping-granularity))))
+ (dape--callback
+ (when success
+ (dape--update-state "running")
+ (dape--remove-stack-pointers)
+ (dolist (thread dape--threads)
+ (plist-put thread :status "running"))
+ (run-hooks 'dape-update-ui-hooks)))))
+ (user-error "No stopped threads"))
(defun dape--thread-id-object ()
"Helper to construct a thread id object."
@@ -1607,20 +1606,20 @@ Starts a new process as per request of the debug
adapter."
;;; Commands
-(defun dape-next (&optional arg)
+(defun dape-next ()
"Step one line (skip functions)."
- (interactive (list current-prefix-arg))
- (dape--next-like-command "next" arg))
+ (interactive)
+ (dape--next-like-command "next"))
-(defun dape-step-in (&optional arg)
+(defun dape-step-in ()
"Steps into function/method. If not possible behaves like `dape-next'."
- (interactive (list current-prefix-arg))
- (dape--next-like-command "stepIn" arg))
+ (interactive)
+ (dape--next-like-command "stepIn"))
-(defun dape-step-out (&optional arg)
+(defun dape-step-out ()
"Steps out of function/method. If not possible behaves like `dape-next'."
- (interactive (list current-prefix-arg))
- (dape--next-like-command "stepOut" arg))
+ (interactive)
+ (dape--next-like-command "stepOut"))
(defun dape-continue ()
"Resumes execution."
