From 079b0dc430ef9e9a6564c7138fd2f319bf9bc7dd Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Sat, 13 Jun 2020 18:45:40 +0100 Subject: [PATCH] Delete, don't kill, dir dir fragments in icomplete-fido-backward-updir Reported by: Andrew Schwartzmeyer * lisp/icomplete.el (icomplete-fido-backward-updir): Don't save dir fragments to kill ring. --- lisp/icomplete.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/icomplete.el b/lisp/icomplete.el index 60ef0247bae..3747ae3d281 100644 --- a/lisp/icomplete.el +++ b/lisp/icomplete.el @@ -300,7 +300,10 @@ if that doesn't produce a completion match." (interactive) (if (and (eq (char-before) ?/) (eq (icomplete--category) 'file)) - (zap-up-to-char -1 ?/) + (save-excursion + (goto-char (1- (point))) + (when (search-backward "/" (point-min) t) + (delete-region (1+ (point)) (point-max)))) (call-interactively 'backward-delete-char))) (defvar icomplete-fido-mode-map -- 2.39.5