emacs-27 079b0dc: Delete, don't kill, dir dir fragments in icomplete-fido-backward-updir

[João Távora]

branch: emacs-27
commit 079b0dc430ef9e9a6564c7138fd2f319bf9bc7dd
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Delete, don't kill, dir dir fragments in icomplete-fido-backward-updir
    
    Reported by: Andrew Schwartzmeyer <andrew@schwartzmeyer.com>
    
    * 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 60ef024..3747ae3 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