diff options
| author | Taylor R Campbell <campbell@mumble.net> | 2011-04-11 18:49:08 +0000 |
|---|---|---|
| committer | Taylor R Campbell <campbell@mumble.net> | 2011-04-11 18:49:08 +0000 |
| commit | 67a3f00f2a029a74134d3d45079f97296db4e862 (patch) | |
| tree | 89f9e6ff0fc5b1ba3d5ba18fe6eb69fe343c3be4 /test.el | |
| parent | fac925d3f9c7daf472239260217414e696b8cd10 (diff) | |
Support setting the mark in test cases, indicated by an underscore.
Ignore-this: 83a9ba4b44db09fbc9b734399fcbb177
darcs-hash:20110411184908-00fcc-d4bdfeac48a61f997fdb29269784edc2b0b0b9ac
Diffstat (limited to 'test.el')
| -rw-r--r-- | test.el | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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) |