diff options
author | João Távora <joaotavora@gmail.com> | 2019-11-08 23:44:44 +0000 |
---|---|---|
committer | João Távora <joaotavora@gmail.com> | 2019-11-09 14:55:42 +0000 |
commit | 5c74b806a6fb0a4cb237300ab0a5418a109ced5e (patch) | |
tree | 15f7fc1069a1d6bae3095f2aa6fbdaf5bb9233d7 | |
parent | d9c6b4378ac851f5e730daa0ae36c9ee2d0292fe (diff) | |
download | emacs-5c74b806a6fb0a4cb237300ab0a5418a109ced5e.tar.gz |
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.
-rw-r--r-- | lisp/icomplete.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/icomplete.el b/lisp/icomplete.el index a7f9086d828..879068e4e95 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) |