From 1628b47f0477d8e3474a6db7db2d699ad5c97c0a Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Fri, 5 Feb 2021 20:37:26 +0100 Subject: [PATCH] ambrevar/emacs: Fix %emacs-eval when argument contains "'". --- .local/share/common-lisp/source/ambrevar/emacs.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/.local/share/common-lisp/source/ambrevar/emacs.lisp b/.local/share/common-lisp/source/ambrevar/emacs.lisp index 24d7dc63..db0755d8 100644 --- a/.local/share/common-lisp/source/ambrevar/emacs.lisp +++ b/.local/share/common-lisp/source/ambrevar/emacs.lisp @@ -100,9 +100,10 @@ Example: "See `emacs-eval'." (let ((*package* (find-package :ambrevar/emacs))) (funcall caller "emacsclient" "-e" - (let ((*print-case* :downcase)) - (format nil "'~s'" `(progn - ,@s-exp)))))) + (list + (let ((*print-case* :downcase)) + (format nil "~s" `(progn + ,@s-exp))))))) (export-always 'emacs-eval) (defun emacs-eval (&rest s-exp)