[elpa] externals/objed 25fe16d 4/4: Fix compile error

[Clemens Radermacher]

branch: externals/objed
commit 25fe16dd0981e744ddc30222b9398fc909ecaff5
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Fix compile error
    
    thunderlink://address@hidden
---
 objed.el      |  2 +-
 test/tests.el | 51 ++++++++++++++++++++++-----------------------------
 2 files changed, 23 insertions(+), 30 deletions(-)

diff --git a/objed.el b/objed.el
index 1c3fabb..1129f0b 100644
--- a/objed.el
+++ b/objed.el
@@ -3,7 +3,7 @@
 
 ;; Author: Clemens Radermacher <address@hidden>
 ;; Package-Requires: ((emacs "25") (cl-lib "0.5"))
-;; Version: 0.3.0
+;; Version: 0.3.1
 ;; Keywords: convenience
 ;; URL: https://github.com/clemera/objed
 
diff --git a/test/tests.el b/test/tests.el
index 3fd8587..10fcf92 100644
--- a/test/tests.el
+++ b/test/tests.el
@@ -4,6 +4,7 @@
 
 ;; TO ADD NEW TESTS CREATE A DIR IN TESTS AND ADD TESTS FILES IN IT.
 
+(declare-function objed--exit-objed "objed")
 ;; activate on load
 (objed-mode 1)
 
@@ -134,27 +135,27 @@ Insert KEY if there's no command."
                 (kill-buffer temp-buffer)))))))
 
 ;;* Test creation
-
-(defun objed-parse-test (file)
-  (let ((parsed nil))
-    (with-temp-buffer
-      (insert-file-contents file)
-      (delete-trailing-whitespace)
-      (goto-char (point-min))
-      (push (buffer-substring (line-beginning-position) (line-end-position))
-            parsed)
-      (search-forward ";;;;" nil t)
-      (forward-line 1)
-      (push (buffer-substring (point) (progn (search-forward ";;;;" nil t)
-                                             (forward-char -4)
-                                             (point)))
-            parsed)
-      (search-forward ";;;;" nil t)
-      (forward-line 1)
-      (push (buffer-substring (point)
-                              (point-max))
-            parsed))
-    (nreverse parsed)))
+(eval-and-compile
+  (defun objed-parse-test (file)
+    (let ((parsed nil))
+      (with-temp-buffer
+        (insert-file-contents file)
+        (delete-trailing-whitespace)
+        (goto-char (point-min))
+        (push (buffer-substring (line-beginning-position) (line-end-position))
+              parsed)
+        (search-forward ";;;;" nil t)
+        (forward-line 1)
+        (push (buffer-substring (point) (progn (search-forward ";;;;" nil t)
+                                               (forward-char -4)
+                                               (point)))
+              parsed)
+        (search-forward ";;;;" nil t)
+        (forward-line 1)
+        (push (buffer-substring (point)
+                                (point-max))
+              parsed))
+      (nreverse parsed))))
 
 
 (defun objed-equal (str1 str2)
@@ -213,11 +214,3 @@ Insert KEY if there's no command."
 
 
 (provide 'tests)
-
-
-
-
-
-
-
-