From bf6b1e498ff074639745b399ba5c6b9754cbf6b6 Mon Sep 17 00:00:00 2001 From: Torsten Hilbrich Date: Mon, 11 Nov 2019 05:36:09 +0100 Subject: dictionary: Move definition of dictionary-reply MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Fixes the following warning: dictionary.el:567:11:Warning: macro ‘dictionary-reply’ defined too late --- dictionary.el | 24 ++++++++++++------------ 1 file 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)) -- cgit v1.2.3