[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 801e19d: * lisp/gnus/gnus.el (gnus): Fix a check to
From: |
Andrea Corallo |
Subject: |
feature/native-comp 801e19d: * lisp/gnus/gnus.el (gnus): Fix a check to handle native compilation. |
Date: |
Mon, 22 Jun 2020 18:34:49 -0400 (EDT) |
branch: feature/native-comp
commit 801e19d0ba8e048a9faa5d5169ec4183e41b0148
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* lisp/gnus/gnus.el (gnus): Fix a check to handle native compilation.
---
lisp/gnus/gnus.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index caeab7f..89d5d12 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -4126,8 +4126,9 @@ prompt the user for the name of an NNTP server to use."
;; file.
(unless (string-match "^Gnus" gnus-version)
(load "gnus-load" nil t))
- (unless (byte-code-function-p (symbol-function 'gnus))
- (message "You should byte-compile Gnus")
+ (unless (or (byte-code-function-p (symbol-function 'gnus))
+ (subr-native-elisp-p (symbol-function 'gnus)))
+ (message "You should compile Gnus")
(sit-for 2))
(let ((gnus-action-message-log (list nil)))
(gnus-1 arg dont-connect slave)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- feature/native-comp 801e19d: * lisp/gnus/gnus.el (gnus): Fix a check to handle native compilation.,
Andrea Corallo <=