diff options
| author | Torsten Hilbrich | 2020-12-14 09:34:44 +0100 |
|---|---|---|
| committer | Torsten Hilbrich | 2020-12-14 11:45:24 +0100 |
| commit | ffa7d6671d893de397cb17c7230f68ef46bef294 (patch) | |
| tree | 4b821d9351247431cd2b696de6dd9a6edf3fde39 | |
| parent | a557a103cc576c97a82346760a84947fe296000c (diff) | |
| download | emacs-ffa7d6671d893de397cb17c7230f68ef46bef294.tar.gz emacs-ffa7d6671d893de397cb17c7230f68ef46bef294.zip | |
* lisp/net/dictionary.el: Prefer defsubst over defmacro
| -rw-r--r-- | lisp/net/dictionary.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/net/dictionary.el b/lisp/net/dictionary.el index 624c1a40f55..782282c27cd 100644 --- a/lisp/net/dictionary.el +++ b/lisp/net/dictionary.el | |||
| @@ -422,17 +422,17 @@ is utf-8" | |||
| 422 | (dictionary-pre-buffer) | 422 | (dictionary-pre-buffer) |
| 423 | (dictionary-post-buffer)) | 423 | (dictionary-post-buffer)) |
| 424 | 424 | ||
| 425 | (defmacro dictionary-reply-code (reply) | 425 | (defsubst dictionary-reply-code (reply) |
| 426 | "Return the reply code stored in `reply'." | 426 | "Return the reply code stored in `reply'." |
| 427 | (list 'get reply ''reply-code)) | 427 | (get reply 'reply-code)) |
| 428 | 428 | ||
| 429 | (defmacro dictionary-reply (reply) | 429 | (defsubst dictionary-reply (reply) |
| 430 | "Return the string reply stored in `reply'." | 430 | "Return the string reply stored in `reply'." |
| 431 | (list 'get reply ''reply)) | 431 | (get reply 'reply)) |
| 432 | 432 | ||
| 433 | (defmacro dictionary-reply-list (reply) | 433 | (defsubst dictionary-reply-list (reply) |
| 434 | "Return the reply list stored in `reply'." | 434 | "Return the reply list stored in `reply'." |
| 435 | (list 'get reply ''reply-list)) | 435 | (get reply 'reply-list)) |
| 436 | 436 | ||
| 437 | (defun dictionary-open-server (server) | 437 | (defun dictionary-open-server (server) |
| 438 | "Opens a new connection to this server" | 438 | "Opens a new connection to this server" |