Просмотр исходного кода

Add my-fzf-or-find-file

master
10sr 5 лет назад
Родитель
Сommit
b2becc55a2
Подписано: 10sr Идентификатор GPG ключа: 7BEC428194130EB2
1 измененных файлов: 8 добавлений и 1 удалений
  1. +8
    -1
      emacs.el

+ 8
- 1
emacs.el Просмотреть файл

@@ -760,7 +760,14 @@ found, otherwise returns nil."
"cut -b3-")))
(setenv "FZF_DEFAULT_COMMAND" defcmd))
(set-variable 'fzf/window-height 45)
;; (define-key ctl-x-map (kbd "C-f") 'fzf)
(defun my-fzf-or-find-file ()
"Call fzf if usable or call find-file."
(declare (interactive-only t))
(interactive)
(if (and (file-remote-p default-directory))
(call-interactively 'find-file)
(fzf)))
(define-key ctl-x-map (kbd "C-f") 'my-fzf-or-find-file)
)

(when (safe-require-or-eval 'recently)


Загрузка…
Отмена
Сохранить