~niklaseklund/detached.el

d8e657cc569da2ad0f1916aa0b5dbc444f0675ff — Niklas Eklund 2 months ago 56bf59e
Replace usage of kill-region with delete-region
1 files changed, 2 insertions(+), 3 deletions(-)

M detached-compile.el
M detached-compile.el => detached-compile.el +2 -3
@@ 124,12 124,11 @@ Optionally EDIT-COMMAND."
(defun detached-compile--replace-modesetter ()
  "Replace the modsetter inserted by `compilation-start'."
  (save-excursion
    (let ((kill-ring nil)
          (inhibit-read-only t)
    (let ((inhibit-read-only t)
          (regexp (rx (regexp "^dtach ") (or "-c" "-a") (regexp ".*\.socket.*$"))))
      (goto-char (point-min))
      (when (re-search-forward regexp nil t)
        (kill-region (match-beginning 0) (match-end 0))
        (delete-region (match-beginning 0) (match-end 0))
        (insert (detached--session-command detached--current-session))))))

(defun detached-compile--compilation-detached-filter ()