emacs-diffs
[Top][All Lists]
Advanced

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

master 89eb235: Use declare-function instead of defun in eieio-tests.el


From: Stefan Kangas
Subject: master 89eb235: Use declare-function instead of defun in eieio-tests.el
Date: Mon, 20 Dec 2021 12:34:51 -0500 (EST)

branch: master
commit 89eb23589f9274c8531f291f3e8156f3d640dd27
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Use declare-function instead of defun in eieio-tests.el
    
    * test/lisp/emacs-lisp/eieio-tests/eieio-tests.el: Prefer
    declare-function to defun.
---
 test/lisp/emacs-lisp/eieio-tests/eieio-tests.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el 
b/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
index 8027925..c13d3ee 100644
--- a/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
+++ b/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
@@ -139,8 +139,8 @@
 ;;      )))
 
 ;; Silence byte-compiler.
-(defun eitest-subordinate--eieio-childp ())
-(defun class-alloc-initarg--eieio-childp ())
+(declare-function eitest-subordinate--eieio-childp nil)
+(declare-function class-alloc-initarg--eieio-childp nil)
 (ert-deftest eieio-test-01-mix-alloc-initarg ()
   ;; Only run this test if the message framework thingy works.
   (skip-unless (and (message "foo") (string= "foo" (current-message))))
@@ -213,8 +213,8 @@ Argument C is the class bound to this static method."
     (oset-default c some-slot value)))
 
 ;; Silence byte-compiler.
-(defun static-method-class-2 ())
-(defun static-method-class-2--eieio-childp ())
+(declare-function static-method-class-2 nil)
+(declare-function static-method-class-2--eieio-childp nil)
 (ert-deftest eieio-test-04-static-method ()
   ;; Call static method on a class and see if it worked
   (static-method-class-method 'static-method-class 'class)
@@ -546,8 +546,8 @@ METHOD is the method that was attempting to be called."
 
 ;; Silence byte-compiler.
 (defvar eitest-tests nil)
-(defun eitest-superior ())
-(defun eitest-superior--eieio-childp ())
+(declare-function eitest-superior nil)
+(declare-function eitest-superior--eieio-childp nil)
 (ert-deftest eieio-test-22-init-forms-dont-match-runnable ()
   ;; Init forms with types that don't match the runnable.
   (defclass eitest-subordinate nil
@@ -597,8 +597,8 @@ METHOD is the method that was attempting to be called."
 
 ;; Silence byte-compiler.
 (defvar eitest-t1 nil)
-(defun eieio-tests-initform-not-evaluated-when-initarg-is-present ())
-(defun 
eieio-tests-initform-not-evaluated-when-initarg-is-present--eieio-childp ())
+(declare-function eieio-tests-initform-not-evaluated-when-initarg-is-present 
nil)
+(declare-function 
eieio-tests-initform-not-evaluated-when-initarg-is-present--eieio-childp nil)
 (ert-deftest eieio-test-25-slot-tests ()
   (setq eitest-t1 (class-c))
   ;; Slot initialization



reply via email to

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