branch: externals/hyperbole
commit 49ecbd80b976edda3eb4aa8a92e647facebb2a5c
Merge: 12043802da 734b0ffbea
Author: bw <r...@gnu.org>
Commit: bw <r...@gnu.org>
Merge branch 'master' into rsw
---
ChangeLog | 5 +++++
test/hywiki-tests.el | 12 ++++++++++++
2 files changed, 17 insertions(+)
diff --git a/ChangeLog b/ChangeLog
index 2790f87fd2..bb88bfdddb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -74,6 +74,11 @@
* test/hact-tests.el (hact-tests--action-params-with-lambdas): Eliminate
byte compiler 'unused args' errors by starting args with underscore.
+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>
* hywiki.el (hywiki-maybe-dehighlight-page-name,
diff --git a/test/hywiki-tests.el b/test/hywiki-tests.el
index 472876899b..f897d95658 100644
--- a/test/hywiki-tests.el
+++ b/test/hywiki-tests.el
@@ -978,5 +978,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
