1

(message "  hello  ")

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

(defun my/eval-current-elisp-func (&optional run)
  " eval-last-sexp 当前光标处的function
根据run 来决定是否要运行"
  (interactive)
  (let* ((current-pos (point)) func-start-pos func-end-pos fun-name)
    (when (string= major-mode "emacs-lisp-mode")
      (save-excursion
        (re-search-backward "^\\s-*(defun .*" nil t)
        (setq func-start-pos (point))
        ;; (message "func-start-pos : %d" func-start-pos)
        (end-of-defun)
        (setq func-end-pos (point))
        ;; (message "func-end-pos : %d" func-end-pos)
      )
      (when (and (>= current-pos func-start-pos) (< current-pos func-end-pos))
                 (re-search-backward "^\\s-*(defun .*" nil t)
                 (evil-jump-item)
                 (eval-last-sexp nil)   ;; 不把执行的结果插入到当前buffer 中
                 (goto-char current-pos)
                 (when run
                   (setq fun-name (format "(%s)" (lisp-current-defun-name)))
                   (eval (read fun-name)))))))

(defun my/eval-current-elisp-func-only ()
  " eval-last-sexp 当前光标处的function "
  (interactive)
  (my/eval-current-elisp-func))

(defun my/eval-current-elisp-func-and-run ()
  " eval-last-sexp 当前光标处的function 并运行"
  (interactive)
  (my/eval-current-elisp-func t))

(define-key emacs-lisp-mode-map (kbd "C-c e") #'my/eval-current-elisp-func-only)
(define-key emacs-lisp-mode-map (kbd "C-c r") #'my/eval-current-elisp-func-and-run)

1

gdb emacs