From 2d4ba191e343b4b6344b943f3d2ff1afd8b1f07b Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Thu, 14 Jan 2021 20:33:42 +0100 Subject: [PATCH] ambrevar/emacs: Remove CL package prefix from transmitted symbols. --- .../common-lisp/source/ambrevar/emacs.lisp | 20 ++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/.local/share/common-lisp/source/ambrevar/emacs.lisp b/.local/share/common-lisp/source/ambrevar/emacs.lisp index 5bb23e1d..ebddd89d 100644 --- a/.local/share/common-lisp/source/ambrevar/emacs.lisp +++ b/.local/share/common-lisp/source/ambrevar/emacs.lisp @@ -16,16 +16,18 @@ Example: (with-emacs-eval (switch-to-buffer (get-buffer-create \"foobar\")) (insert \"Hello\"))" - `(cmd:cmd "emacsclient" "-e" - (let ((*print-case* :downcase)) - (format nil "'~s'" '(progn ,@body))))) + `(let ((*package* (find-package :ambrevar/emacs))) + (cmd:cmd "emacsclient" "-e" + (let ((*print-case* :downcase)) + (format nil "'~s'" '(progn ,@body)))))) (defun %emacs-eval (caller &rest s-exp) "See `emacs-eval'." - (funcall caller "emacsclient" "-e" - (let ((*print-case* :downcase)) - (format nil "'~s'" `(progn - ,@s-exp))))) + (let ((*package* (find-package :ambrevar/emacs))) + (funcall caller "emacsclient" "-e" + (let ((*print-case* :downcase)) + (format nil "'~s'" `(progn + ,@s-exp)))))) (export-always 'emacs-eval) (defun emacs-eval (&rest s-exp) @@ -55,8 +57,8 @@ Example: This means string double quotes are included. See `princ-emacs-buffer'." (emacs-eval - `(with-current-buffer (get-buffer-create ,buffer-or-name) - (insert ,(write-to-string thing))))) + `(with-current-buffer (get-buffer-create ,buffer-or-name) + (insert ,(write-to-string thing))))) (export-always 'princ-emacs-buffer) (defun princ-emacs-buffer (buffer-or-name thing)