blob: 62612053de5a32f7ae6870df597fd9f986cc582a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(defun my-close-children ()
(interactive)
(cperl-mode)
(end-of-buffer)
(let ((p t))
(while (setq p (search-backward-regexp "\\<children\\(\\|_tight\\|_loose\\) => \\[" nil t))
(progn
(search-forward "[")
(backward-char)
(forward-sexp)
(backward-char)
(if (not (string-equal (buffer-substring (point) (1+ (point))) "]"))
(insert "]"))
(goto-char p))))
(save-buffer)
(kill-emacs)
)
|
