Call dired-do-delete in correct buffer

chenyanming · Jun 12, 2022 · 2f2cfc3 · 2f2cfc3
1 parent e4ce01a
commit 2f2cfc3
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/calibredb-dired.el b/calibredb-dired.el
@@ -66,7 +66,8 @@ library."
   (let ((files (mapconcat
                 (lambda (file)
                   (shell-quote-argument (expand-file-name file)))
-                files " ")))
+                files " "))
+        (buffer (current-buffer)))
     (set-process-sentinel
      (calibredb-process :command "add"
                         :input files
@@ -78,7 +79,8 @@ library."
          (setq calibredb-search-entries (calibredb-candidates))
          (setq calibredb-full-entries calibredb-search-entries)
          (calibredb-search-clear-filter)
-         (dired-do-delete))))))
+         (with-current-buffer buffer
+             (dired-do-delete)))))))
 
 (provide 'calibredb-dired)