emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/emacs-lisp: refactor +emacs-lisp-eval

Browse source
This commit is contained in:
Henrik Lissner 2019-11-24 19:40:00 -05:00
parent ffc29a547c
commit 5623b8b9ba
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 12 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

25
modules/lang/emacs-lisp/autoload.el
View file

@ -8,19 +8,18 @@
"Evaluate a region and print it to the echo area (if one line long), otherwise "Evaluate a region and print it to the echo area (if one line long), otherwise
to a pop up buffer." to a pop up buffer."
(+eval-display-results (+eval-display-results
(let* ((buffer-file-name (buffer-file-name (buffer-base-buffer)))) (string-trim-right
(string-trim-right (condition-case-unless-debug e
(condition-case-unless-debug e (let ((result
(let ((result (let ((debug-on-error t))
(let ((debug-on-error t)) (eval (read (format "(progn %s)" (buffer-substring-no-properties beg end)))
(eval (read (format "(progn %s)" (buffer-substring-no-properties beg end))) `((buffer-file-name . ,(buffer-file-name (buffer-base-buffer)))
`((buffer-file-name . ,buffer-file-name) (doom--current-module
(doom--current-module . ,(ignore-errors
. ,(ignore-errors (doom-module-from-path buffer-file-name))))))))
(doom-module-from-path buffer-file-name)))))))) (require 'pp)
(require 'pp) (replace-regexp-in-string "\\\\n" "\n" (pp-to-string result)))
(replace-regexp-in-string "\\\\n" "\n" (pp-to-string result))) (error (error-message-string e))))
(error (error-message-string e)))))
(current-buffer))) (current-buffer)))
(defvar +emacs-lisp--face nil) (defvar +emacs-lisp--face nil)