branch: externals/hyperbole
commit 734b0ffbea78c2eef19b0269195568689dd855da
Author: Mats Lidell <mats.lid...@lidells.se>
Commit: GitHub <nore...@github.com>
Verify issue with delete char in elisp mode (#670)
See gh#rswgnu/hyperbole/669
---
ChangeLog | 5 +++++
test/hywiki-tests.el | 12 ++++++++++++
2 files changed, 17 insertions(+)
diff --git a/ChangeLog b/ChangeLog
index 5c1393f608..4777de1206 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2025-02-21 Mats Lidell <ma...@gnu.org>
+
+* test/hywiki-tests.el (hywiki-tests--delete-parenthesised-char): Verify
+ reported delete char issue for elisp mode.
+
2025-02-19 Bob Weiner <r...@gnu.org>
* hyrolo.el (hyrolo-expand-path-list): Fix to include a default file name
diff --git a/test/hywiki-tests.el b/test/hywiki-tests.el
index 90180f4000..89107ceee0 100644
--- a/test/hywiki-tests.el
+++ b/test/hywiki-tests.el
@@ -980,5 +980,17 @@ Note special meaning of `hywiki-allow-plurals-flag'."
(hy-delete-files-and-buffers (list wiki-page
(hywiki-cache-default-file)))
(hy-delete-dir-and-buffer hywiki-directory))))
+(ert-deftest hywiki-tests--delete-parenthesised-char ()
+ "Verify removing a char between parentheses only removes the char.
+See gh#rswgnu/hyperbole/669."
+ :expected-result :failed
+ (with-temp-buffer
+ (insert "(a)")
+ (goto-char 2)
+ (let ((this-command #'delete-char))
+ (with-hywiki-buttonize-hooks
+ (delete-char 1)))
+ (should (string= "()" (buffer-substring-no-properties (point-min)
(point-max))))))
+
(provide 'hywiki-tests)
;;; hywiki-tests.el ends here
