(defun my-close-children () (interactive) (cperl-mode) (end-of-buffer) (let ((p t)) (while (setq p (search-backward-regexp "\\ \\[" 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) ) Git repository'/>
summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2004-02-19 19:27:40 +0000
committerPablo Saratxaga <pablo@mandriva.com>2004-02-19 19:27:40 +0000
commit1cbb512c517e0126d5abcddf8b26013b90a64283 (patch)
treebc0b1acf0d3fe2d5f5e2052d79ca36a1e81e7cbc /perl-install/share/po
parent1f445c49c911fb32d27bb40fe59496c8f885a5d9 (diff)
downloaddrakx-1cbb512c517e0126d5abcddf8b26013b90a64283.tar
drakx-1cbb512c517e0126d5abcddf8b26013b90a64283.tar.gz
drakx-1cbb512c517e0126d5abcddf8b26013b90a64283.tar.bz2
drakx-1cbb512c517e0126d5abcddf8b26013b90a64283.tar.xz
drakx-1cbb512c517e0126d5abcddf8b26013b90a64283.zip
updated pot file
Diffstat (limited to 'perl-install/share/po')