10sr 6 роки тому
джерело
коміт
9bdfc40bf3
Підписано: 10sr Ідентифікатор GPG ключа: 7BEC428194130EB2
1 змінених файлів з 12 додано та 12 видалено
  1. +12
    -12
      emacs.el

+ 12
- 12
emacs.el Переглянути файл

@@ -2001,28 +2001,28 @@ use for the buffer. It defaults to \"*recetf-show*\"."
"Find file at point."
(interactive)
(let ((f (tabulated-list-get-id)))
(when f
(recently-show-tabulated-close)
(find-file f))))
(cl-assert f nil "No entry at point")
(recently-show-tabulated-close)
(find-file f)))

(defun recently-show-tabulated-view-file ()
"View file at point."
(interactive)
(let ((f (tabulated-list-get-id)))
(when f
(recently-show-tabulated-close)
(view-file f))))
(cl-assert f nil "No entry at point")
(recently-show-tabulated-close)
(view-file f)))

(defun recently-show-tabulated-dired()
"Open dired buffer of directory at point."
(interactive)
(let ((f (tabulated-list-get-id)))
(when f
(recently-show-tabulated-close)
(dired (if (file-directory-p f)
f
(or (file-name-directory f)
"."))))))
(cl-assert f nil "No entry at point")
(recently-show-tabulated-close)
(dired (if (file-directory-p f)
f
(or (file-name-directory f)
".")))))

(defvar recently-show-tabulated-mode-map
(let ((map (make-sparse-keymap)))


Завантаження…
Відмінити
Зберегти