소스 검색

Use assert

master
10sr 6 년 전
부모
커밋
9bdfc40bf3
로그인 계정: 10sr GPG 키 ID: 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)))


불러오는 중...
취소
저장