Kaynağa Gözat

Implement recently view-file

master
10sr 5 yıl önce
ebeveyn
işleme
0d17960936
İmzalayan: 10sr GPG Anahtar Kimliği: 7BEC428194130EB2
1 değiştirilmiş dosya ile 9 ekleme ve 1 silme
  1. +9
    -1
      emacs.el

+ 9
- 1
emacs.el Dosyayı Görüntüle

@@ -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)


Yükleniyor…
İptal
Kaydet