branch: externals/objed
commit a0c7e921955b57eb456b01541d512219d64b562c
Author: Clemens Radermacher <clem...@posteo.net>
Commit: Clemens Radermacher <clem...@posteo.net>
Remove line object from block expansion, line object has its own key
---
objed.el | 2 +-
test/tests.el | 8 ++++++++
test/tests/emacs-lisp-mode/expansion/block_2 | 3 ++-
test/tests/emacs-lisp-mode/expansion/block_3 | 2 +-
test/tests/emacs-lisp-mode/expansion/block_4 | 2 +-
test/tests/emacs-lisp-mode/expansion/block_5 | 2 +-
test/tests/emacs-lisp-mode/expansion/block_6 | 2 +-
7 files changed, 15 insertions(+), 6 deletions(-)
diff --git a/objed.el b/objed.el
index 6d9c407..2982a38 100644
--- a/objed.el
+++ b/objed.el
@@ -1409,7 +1409,7 @@ matches IREGEX is not displayed."
;; * Basic Movement, Block Objects (textblocks)
-(defvar objed--block-objects '(buffer paragraph textblock block indent line)
+(defvar objed--block-objects '(buffer paragraph textblock block indent)
"List of objects which are 'line based'.
Objects which are built by lines of text.")
diff --git a/test/tests.el b/test/tests.el
index 37cb41c..a557958 100644
--- a/test/tests.el
+++ b/test/tests.el
@@ -3,6 +3,14 @@
(require 'objed)
;; TO ADD NEW TESTS CREATE A DIR IN TESTS AND ADD TESTS FILES IN IT.
+(defun objed-run-tests ()
+ (interactive)
+ (let ((buf (or (get-buffer "objed/tests.el")
+ (find-file-noselect "~/objed/test/tests.el"))))
+ (with-current-buffer buf
+ ;; create tests...
+ (eval-buffer)
+ (ert t))))
(declare-function objed--exit-objed "objed")
;; activate on load
diff --git a/test/tests/emacs-lisp-mode/expansion/block_2
b/test/tests/emacs-lisp-mode/expansion/block_2
index 29eff50..60fbed7 100644
--- a/test/tests/emacs-lisp-mode/expansion/block_2
+++ b/test/tests/emacs-lisp-mode/expansion/block_2
@@ -1,4 +1,4 @@
-hh
+h
;;;;
(defun check ()
@@ -19,3 +19,4 @@ hh
|<;; Some text
;; and more text
>
+
diff --git a/test/tests/emacs-lisp-mode/expansion/block_3
b/test/tests/emacs-lisp-mode/expansion/block_3
index aa83147..db371c0 100644
--- a/test/tests/emacs-lisp-mode/expansion/block_3
+++ b/test/tests/emacs-lisp-mode/expansion/block_3
@@ -1,4 +1,4 @@
-hhh
+hh
;;;;
(defun check ()
diff --git a/test/tests/emacs-lisp-mode/expansion/block_4
b/test/tests/emacs-lisp-mode/expansion/block_4
index 0c969b6..d760406 100644
--- a/test/tests/emacs-lisp-mode/expansion/block_4
+++ b/test/tests/emacs-lisp-mode/expansion/block_4
@@ -1,4 +1,4 @@
-hhhh
+hhh
;;;;
(defun check ()
diff --git a/test/tests/emacs-lisp-mode/expansion/block_5
b/test/tests/emacs-lisp-mode/expansion/block_5
index c955607..bb726d2 100644
--- a/test/tests/emacs-lisp-mode/expansion/block_5
+++ b/test/tests/emacs-lisp-mode/expansion/block_5
@@ -1,4 +1,4 @@
-hhhhh
+hhhh
;;;;
(defun check ()
diff --git a/test/tests/emacs-lisp-mode/expansion/block_6
b/test/tests/emacs-lisp-mode/expansion/block_6
index 3fa965e..90e8f63 100644
--- a/test/tests/emacs-lisp-mode/expansion/block_6
+++ b/test/tests/emacs-lisp-mode/expansion/block_6
@@ -1,4 +1,4 @@
-hhhhhh
+hhhhh
;;;;
(defun check ()
