[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 5c74b80 2/3: Rename some commands to reflect they are fido-mode s
From: |
João Távora |
Subject: |
master 5c74b80 2/3: Rename some commands to reflect they are fido-mode specific |
Date: |
Sat, 9 Nov 2019 09:56:13 -0500 (EST) |
branch: master
commit 5c74b806a6fb0a4cb237300ab0a5418a109ced5e
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>
Rename some commands to reflect they are fido-mode specific
* lisp/icomplete.el (icomplete-fido-kill)
(icomplete-fido-delete-char, icomplete-fido-ret)
(icomplete-fido-backward-updir): Rename from icomplete-magic-ido-*
versions.
(icomplete-fido-mode-map): Use new command names.
---
lisp/icomplete.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index a7f9086..879068e 100644
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -225,7 +225,7 @@ Last entry becomes the first and can be selected with
;;; Helpers for `fido-mode' (or `ido-mode' emulation)
;;;
-(defun icomplete-magic-ido-kill ()
+(defun icomplete-fido-kill ()
"Kill line or current completion, like `ido-mode'.
If killing to the end of line make sense, call `kill-line',
otherwise kill the currently selected completion candidate.
@@ -260,7 +260,7 @@ require user confirmation."
(cdr all)))
(message nil)))))
-(defun icomplete-magic-ido-delete-char ()
+(defun icomplete-fido-delete-char ()
"Delete char or maybe call `dired', like `ido-mode'."
(interactive)
(let* ((beg (icomplete--field-beg))
@@ -272,7 +272,7 @@ require user confirmation."
(dired (file-name-directory (icomplete--field-string)))
(exit-minibuffer))))
-(defun icomplete-magic-ido-ret ()
+(defun icomplete-fido-ret ()
"Exit minibuffer or enter directory, like `ido-mode'."
(interactive)
(let* ((beg (icomplete--field-beg))
@@ -290,7 +290,7 @@ require user confirmation."
(t
(exit-minibuffer)))))
-(defun icomplete-magic-ido-backward-updir ()
+(defun icomplete-fido-backward-updir ()
"Delete char before or go up directory, like `ido-mode'."
(interactive)
(let* ((beg (icomplete--field-beg))
@@ -302,10 +302,10 @@ require user confirmation."
(defvar icomplete-fido-mode-map
(let ((map (make-sparse-keymap)))
- (define-key map (kbd "C-k") 'icomplete-magic-ido-kill)
- (define-key map (kbd "C-d") 'icomplete-magic-ido-delete-char)
- (define-key map (kbd "RET") 'icomplete-magic-ido-ret)
- (define-key map (kbd "DEL") 'icomplete-magic-ido-backward-updir)
+ (define-key map (kbd "C-k") 'icomplete-fido-kill)
+ (define-key map (kbd "C-d") 'icomplete-fido-delete-char)
+ (define-key map (kbd "RET") 'icomplete-fido-ret)
+ (define-key map (kbd "DEL") 'icomplete-fido-backward-updir)
(define-key map (kbd "M-j") 'exit-minibuffer)
(define-key map (kbd "C-s") 'icomplete-forward-completions)
(define-key map (kbd "C-r") 'icomplete-backward-completions)