diff options
-rw-r--r-- | dictionary.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/dictionary.el b/dictionary.el index 40e9313..8a8a7ff 100644 --- a/dictionary.el +++ b/dictionary.el @@ -436,6 +436,18 @@ by the choice value: (link-initialize-keymap dictionary-mode-map)) +(defmacro dictionary-reply-code (reply) + "Return the reply code stored in `reply'." + (list 'get reply ''reply-code)) + +(defmacro dictionary-reply (reply) + "Return the string reply stored in `reply'." + (list 'get reply ''reply)) + +(defmacro dictionary-reply-list (reply) + "Return the reply list stored in `reply'." + (list 'get reply ''reply-list)) + (defun dictionary-check-connection () "Check if there is already a connection open" (if (not (and dictionary-connection @@ -560,18 +572,6 @@ This function knows about the special meaning of quotes (\")" (put answer 'reply-code (string-to-number (car reply-list))) answer))) -(defmacro dictionary-reply-code (reply) - "Return the reply code stored in `reply'." - (list 'get reply ''reply-code)) - -(defmacro dictionary-reply (reply) - "Return the string reply stored in `reply'." - (list 'get reply ''reply)) - -(defmacro dictionary-reply-list (reply) - "Return the reply list stored in `reply'." - (list 'get reply ''reply-list)) - (defun dictionary-read-answer () "Read an answer delimited by a . on a single line" (let ((answer (connection-read-to-point dictionary-connection)) |