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

Implement recently view-file

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

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

@@ -2030,13 +2030,21 @@ use for the buffer. It defaults to \"*recetf-show*\"."
("Full Path" 0 t)])))

(defun recently-show-tabulated-find-file ()
"Find-file in `recently-show-tabulated-mode'."
"Find file at point."
(interactive)
(let ((f (tabulated-list-get-id)))
(when f
(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))))

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


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