diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-13 03:45:07 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-13 03:45:07 +0100 |
| commit | 4db12d622e103220c0a84f65eaa5f9c0369c40fd (patch) | |
| tree | 6b02295f2bf5b5021347a99e2d9276083f4882a2 /elisp/geiser-connection.el | |
| parent | 7194141f5e53cd0b360d3ee53c3337823da6ae9f (diff) | |
| download | geiser-4db12d622e103220c0a84f65eaa5f9c0369c40fd.tar.gz geiser-4db12d622e103220c0a84f65eaa5f9c0369c40fd.tar.bz2 | |
Cleanups
Nothing here, move on.
Diffstat (limited to 'elisp/geiser-connection.el')
| -rw-r--r-- | elisp/geiser-connection.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el index 0225964..d41110c 100644 --- a/elisp/geiser-connection.el +++ b/elisp/geiser-connection.el @@ -36,16 +36,12 @@ ;;; Request datatype: (defun geiser-con--make-request (con str cont &optional sender-buffer) - (list :geiser-connection-request - (cons :id (geiser-con--connection-inc-count con)) + (list (cons :id (geiser-con--connection-inc-count con)) (cons :string str) (cons :continuation cont) (cons :buffer (or sender-buffer (current-buffer))) (cons :connection con))) -(defsubst geiser-con--request-p (req) - (and (listp req) (eq (car req) :geiser-connection-request))) - (defsubst geiser-con--request-id (req) (cdr (assoc :id req))) |