Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Per Cederqvist
lyskom-server-ceder-1616-generations-topgit
Commits
21ae820e
Commit
21ae820e
authored
Aug 22, 2003
by
Per Cederqvist
Browse files
(renumber-lyskom-send-simple-expect-indented): New function.
parent
3acae75d
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/server/testsuite/renumber.el
View file @
21ae820e
...
...
@@ -39,3 +39,21 @@
"^\\(simple\\|extracting\\|good_bad\\)_expect \"[%=]\\([0-9]+\\)"
limit
t
)
(
replace-match
(
format
"%d"
ref-nr
)
t
t
nil
2
))))))
;;;###autoload
(
defun
renumber-lyskom-send-simple-expect-indented
()
(
interactive
)
(
goto-char
(
point-min
))
(
let
((
ref-nr
1999
)
(
case-fold-search
nil
))
(
while
(
re-search-forward
"^ send \"\\([0-9]+\\) "
nil
t
)
(
setq
ref-nr
(
+
1
ref-nr
))
(
replace-match
(
format
"%d"
ref-nr
)
t
t
nil
1
)
(
let
((
pos
(
point
))
(
limit
(
re-search-forward
"^ \\(send\\)\\|\\(talk_to\\)"
nil
t
)))
(
goto-char
pos
)
(
while
(
re-search-forward
"^ \\(simple\\|extracting\\|good_bad\\)_expect \"[%=]\\([0-9]+\\)"
limit
t
)
(
replace-match
(
format
"%d"
ref-nr
)
t
t
nil
2
))))))
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment