branch: elpa/aidermacs
commit bea17f191759b210b9c2c720cfc3127e97d63464
Author: Mingde (Matthew) Zeng <matthew...@posteo.net>
Commit: Mingde (Matthew) Zeng <matthew...@posteo.net>
Replace goto-line with forward-line
Signed-off-by: Mingde (Matthew) Zeng <matthew...@posteo.net>
---
aidermacs.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/aidermacs.el b/aidermacs.el
index 9c16010e79..988f058da1 100644
--- a/aidermacs.el
+++ b/aidermacs.el
@@ -648,7 +648,8 @@ Sends the \"/ls\" command and displays the results in a
Dired buffer."
;; The executed command is on the 2nd line; it can get
;; quite long, so we delete it to avoid cluttering the
;; buffer.
- (goto-line 2)
+ (goto-char (point-min))
+ (forward-line 1) ;; Move to the 2nd line
(when (looking-at "^ *find " t)
(let ((inhibit-read-only t))
(delete-region (line-beginning-position)
(line-end-position)))))
@@ -670,6 +671,7 @@ Sends the \"/ls\" command and displays the results in a
Dired buffer."
(defun aidermacs-drop-all-files ()
"Drop all files from the current chat session."
(interactive)
+ (setq aidermacs--tracked-files nil)
(aidermacs--send-command "/drop"))
(defun aidermacs-batch-drop-dired-marked-files ()
