[nongnu] elpa/paredit 67a3f00 126/224: Support setting the mark in test cases, indicated by an underscore.

[ELPA Syncer]

branch: elpa/paredit
commit 67a3f00f2a029a74134d3d45079f97296db4e862
Author: Taylor R Campbell <campbell@mumble.net>
Commit: Taylor R Campbell <campbell@mumble.net>

    Support setting the mark in test cases, indicated by an underscore.
    
    Ignore-this: 83a9ba4b44db09fbc9b734399fcbb177
    
    darcs-hash:20110411184908-00fcc-d4bdfeac48a61f997fdb29269784edc2b0b0b9ac
---
 test.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/test.el b/test.el
index 1c4d957..1136c55 100644
--- a/test.el
+++ b/test.el
@@ -42,6 +42,9 @@ Four arguments: the paredit command, the text of the buffer
           (set (make-local-variable 'comment-column) 40)
           (insert before)
           (goto-char (point-min))
+          (if (search-forward "_" nil t)
+              (progn (backward-delete-char +1) (set-mark (point))))
+          (goto-char (point-min))
           (search-forward "|")
           (backward-delete-char +1)
           (if (cond ((eq expected 'error)