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

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

[elpa] externals/jarchive f4a7953b4f 04/33: reorganize testing code


From: ELPA Syncer
Subject: [elpa] externals/jarchive f4a7953b4f 04/33: reorganize testing code
Date: Sat, 12 Nov 2022 17:57:55 -0500 (EST)

branch: externals/jarchive
commit f4a7953b4fb5e7c7b803f7827807a7b4b2cc0fe9
Author: dannyfreeman <danny@dfreeman.email>
Commit: dannyfreeman <danny@dfreeman.email>

    reorganize testing code
---
 jarchive.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/jarchive.el b/jarchive.el
index dfb0f0340c..5f919dabe8 100644
--- a/jarchive.el
+++ b/jarchive.el
@@ -52,15 +52,16 @@ provided when calling OP."
             (inhibit-file-name-operation op))
         (apply op args)))))
 
-(defvar test-file 
"/home/user/.m2/repository/hiccup/hiccup/1.0.5/hiccup-1.0.5.jar!/hiccup/page.clj")
 
-(defmacro comment (&rest body) nil)
+(defun jarchive-setup ()
+  (add-to-list 'file-name-handler-alist (cons jarchive--hybrid-path-regex 
#'jarchive--file-name-handler)))
 
+;; Temporary, for testing
+(defmacro comment (&rest body) nil)
 (comment
+ (jarchive-setup)
+ (defvar test-file 
"/home/user/.m2/repository/hiccup/hiccup/1.0.5/hiccup-1.0.5.jar!/hiccup/page.clj")
  (find-file test-file)
  )
 
-(defun jarchive-setup ()
-  (add-to-list 'file-name-handler-alist (cons jarchive--hybrid-path-regex 
#'jarchive--file-name-handler)))
-
 (provide 'jarchive)



reply via email to

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