ソースを参照

Implement recently view-file

master
10sr 5年前
コミット
0d17960936
署名者: 10sr GPGキーID: 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)


読み込み中…
キャンセル
保存