emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/integration-of-dictionary-el ffa7d66 09/17: * lisp/net/dictionar


From: Torsten Hilbrich
Subject: feature/integration-of-dictionary-el ffa7d66 09/17: * lisp/net/dictionary.el: Prefer defsubst over defmacro
Date: Mon, 14 Dec 2020 05:46:38 -0500 (EST)

branch: feature/integration-of-dictionary-el
commit ffa7d6671d893de397cb17c7230f68ef46bef294
Author: Torsten Hilbrich <torsten.hilbrich@gmx.net>
Commit: Torsten Hilbrich <torsten.hilbrich@gmx.net>

    * lisp/net/dictionary.el: Prefer defsubst over defmacro
---
 lisp/net/dictionary.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/net/dictionary.el b/lisp/net/dictionary.el
index 624c1a4..782282c 100644
--- a/lisp/net/dictionary.el
+++ b/lisp/net/dictionary.el
@@ -422,17 +422,17 @@ is utf-8"
   (dictionary-pre-buffer)
   (dictionary-post-buffer))
 
-(defmacro dictionary-reply-code (reply)
+(defsubst dictionary-reply-code (reply)
   "Return the reply code stored in `reply'."
-  (list 'get reply ''reply-code))
+  (get reply 'reply-code))
 
-(defmacro dictionary-reply (reply)
+(defsubst dictionary-reply (reply)
   "Return the string reply stored in `reply'."
-  (list 'get reply ''reply))
+  (get reply 'reply))
 
-(defmacro dictionary-reply-list (reply)
+(defsubst dictionary-reply-list (reply)
   "Return the reply list stored in `reply'."
-  (list 'get reply ''reply-list))
+  (get reply 'reply-list))
 
 (defun dictionary-open-server (server)
   "Opens a new connection to this server"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]