org代码块怎样用eval来执行？

Org-mode
1

比如 C-c C-c

#+BEGIN_SRC emacs-lisp 
(find-file-other-window "~/.aliases") 
#+END_SRC

#+RESULTS:
: #<buffer .aliases>

并没有打开文件。 能不能在代码块 C-c C-c，类似 eval-region, 有个 eval-source-block

2

在代码块中打开，在代码块中使用，不能作用到当前 Emacs

3

已经打开了，Buffer 名字都已经给出了。之所以没弹出来，估计是因为 Org 不想改动当前的窗口布局。

4 
     (nth 1 (org-babel-get-src-block-info))

这个可以返回代码块里的代码，怎么样把他传递给eval来执行啊？

5

我想打开这个文件编辑，直接按C-c C-c，不想记配置文件的路径或者手输。

6

改动窗口布局的效果会在 org-babel-execute:emacs-lisp 所使用的 save-window-excursion 屏蔽掉。

(eval (read "(+ 1 2)"))
;; => 3
7 
(defun cm/find-emacs-init-file ()
  "Find my emacs init file"
  (interactive)
  (find-file (expand-file-name "init.el" user-emacs-directory)))

(defun cm/jump-emacs-etc-directory ()
  "Jump to my emacs etc directory"
  (interactive)
  (dired cm/config-files-directory))

(defun cm/jump-emacs-lib-directory ()
  "Jump to my emacs lib directory"
  (interactive)
  (dired cm/library-files-directory))

写几个函数用M-x执行就好了，还用折腾这种东西