ambrevar/emacs: Remove CL package prefix from transmitted symbols.
parent
37c28b3ec7
commit
2d4ba191e3
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue