diff options
| author | João Távora <joaotavora@gmail.com> | 2020-06-13 18:45:40 +0100 |
|---|---|---|
| committer | João Távora <joaotavora@gmail.com> | 2020-06-13 18:46:03 +0100 |
| commit | 079b0dc430ef9e9a6564c7138fd2f319bf9bc7dd (patch) | |
| tree | 9d463fe14c08de6216f117d646379cb640ac7388 /lisp/icomplete.el | |
| parent | 6cdecc2659a290f4a9eddb498978e3b07d5cbc58 (diff) | |
| download | emacs-079b0dc430ef9e9a6564c7138fd2f319bf9bc7dd.tar.gz emacs-079b0dc430ef9e9a6564c7138fd2f319bf9bc7dd.tar.bz2 emacs-079b0dc430ef9e9a6564c7138fd2f319bf9bc7dd.zip | |
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.
Diffstat (limited to 'lisp/icomplete.el')
| -rw-r--r-- | lisp/icomplete.el | 5 |
1 files changed, 4 insertions, 1 deletions
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 |