mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

lisp/ido.el: New command `ido-bury-buffer-at-head'

Browse Source 
Bound to C-S-b
Bury the buffer at the head of `ido-matches', analogous to how C-k
kills the buffer at head.
This commit is contained in:
Artur Malabarba 2014-11-19 00:47:36 +00:00
parent 4a306d701b
commit 6316435de7
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
etc/NEWS
View File

@ -132,6 +132,10 @@ Unicode standards.
* Changes in Specialized Modes and Packages in Emacs 25.1
** ido
*** New command `ido-bury-buffer-at-head' bound to C-S-b
Bury the buffer at the head of `ido-matches', analogous to how C-k
kills the buffer at head.
** Minibuffer

15
lisp/ido.el
View File

@ -1672,6 +1672,7 @@ This function also adds a hook to the minibuffer."
(define-key map "\C-x\C-f" 'ido-enter-find-file)
(define-key map "\C-x\C-b" 'ido-fallback-command)
(define-key map "\C-k" 'ido-kill-buffer-at-head)
(define-key map [?\C-\S-b] 'ido-bury-buffer-at-head)
(define-key map "\C-o" 'ido-toggle-virtual-buffers)
(set-keymap-parent map ido-common-completion-map)
(setq ido-buffer-completion-map map)))
@ -4026,6 +4027,20 @@ If cursor is not at the end of the user input, delete to end of input."
(setq ido-cur-list (delete buf ido-cur-list))
(setq ido-rescan t))))))
;;; BURY CURRENT BUFFER
(defun ido-bury-buffer-at-head ()
"Bury the buffer at the head of `ido-matches'."
(interactive)
(let ((enable-recursive-minibuffers t)
(buf (ido-name (car ido-matches)))
(nextbuf (cadr ido-matches)))
(when (get-buffer buf)
(bury-buffer buf)
(setq ido-default-item nextbuf
ido-text-init ido-text
ido-exit 'refresh)
(exit-minibuffer))))
;;; DELETE CURRENT FILE
(defun ido-delete-file-at-head ()
"Delete the file at the head of `ido-matches'.