emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/org cb758720f3 3/4: testing/org-test.el (<toplevel>): R


From: ELPA Syncer
Subject: [elpa] externals/org cb758720f3 3/4: testing/org-test.el (<toplevel>): Remove dead code
Date: Sat, 15 Jun 2024 12:58:33 -0400 (EDT)

branch: externals/org
commit cb758720f3bf8a8e5d22d454f5b239393c3a8071
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Ihor Radchenko <yantar92@posteo.net>

    testing/org-test.el (<toplevel>): Remove dead code
    
    (featurep 'org) is always non-nil here since we have a (require 'org)
    further up.  I suspect other `require's nearby could be removed or
    moved to toplevel.
---
 testing/org-test.el | 29 ++++++++++-------------------
 1 file changed, 10 insertions(+), 19 deletions(-)

diff --git a/testing/org-test.el b/testing/org-test.el
index 643c5c7660..52d38c3fdf 100644
--- a/testing/org-test.el
+++ b/testing/org-test.el
@@ -48,25 +48,16 @@
                        (file-name-directory
                         (or load-file-name buffer-file-name))))
         (org-lisp-dir (expand-file-name
-                       (concat org-test-dir "../lisp"))))
-
-    (unless (featurep 'org)
-      (setq load-path (cons org-lisp-dir load-path))
-      (require 'org)
-      (require 'org-id)
-      (require 'ox)
-      (org-babel-do-load-languages
-       'org-babel-load-languages '((shell . t) (org . t))))
-
-    (let ((load-path (cons org-test-dir
-                          (cons (expand-file-name "jump" org-test-dir)
-                                load-path))))
-      (require 'cl-lib)
-      (require 'ert)
-      (require 'ert-x)
-      (when (file-exists-p (expand-file-name "jump/jump.el" org-test-dir))
-       (require 'jump)
-       (require 'which-func)))))
+                       (concat org-test-dir "../lisp")))
+        (load-path (cons org-test-dir
+                         (cons (expand-file-name "jump" org-test-dir)
+                               load-path))))
+    (require 'cl-lib)
+    (require 'ert)
+    (require 'ert-x)
+    (when (file-exists-p (expand-file-name "jump/jump.el" org-test-dir))
+      (require 'jump)
+      (require 'which-func))))
 
 (defconst org-test-default-test-file-name "tests.el"
   "For each defun a separate file with tests may be defined.



reply via email to

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