mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-14 09:39:42 +00:00
* lisp/net/dictionary.el: Prefer defsubst over defmacro
This commit is contained in:
parent
a557a103cc
commit
ffa7d6671d
@ -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"
|
||||
|
Loading…
Reference in New Issue
Block a user