branch: externals/objed
commit 25fe16dd0981e744ddc30222b9398fc909ecaff5
Author: Clemens Radermacher <clem...@posteo.net>
Commit: Clemens Radermacher <clem...@posteo.net>
Fix compile error
thunderlink://messageid=jwvva2cquep.fsf-monnier+em...@gnu.org
---
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 <clem...@posteo.net>
;; 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)
-
-
-
-
-
-
-
-
