Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun seek-backward-to-char (chr)
- "Seek backwards to a character"
- (interactive "cSeek back to char: ")
- (while (not (= (char-after) chr))
- (forward-char -1)))
- (defun delete-between-pair (char)
- "Delete in between the given pair"
- (interactive "cDelete between char: ")
- (seek-backward-to-char char)
- (forward-char 1)
- (zap-to-char 1 char)
- (insert char)
- (forward-char -1))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement