ソース整形
comLv = comLv.concat("00").concat(msg.substring(idx,idx + 1));
というのがずらずらあるソースを
comLv = comLv.concat("00") .concat(msg.substring(idx,idx + 1));
に整形したくて書いてみた
(defun digit-arrangement (args-string) (interactive "sregex-string :") (let ((cc)(cl)) (setq cc (current-column) cl (current-line-number)) (setq x1 0 y1 0) (let ((x1)(y1)) (while (scan-buffer args-string :regexp t) (if y1 (if (= y1 (current-line-number));同一行なら (progn (insert "\n") (dotimes (x x1) (insert " ") ) ) ) ) (setq x1 (current-column) y1 (current-line-number)) (goto-column (+ x1 1)) ) ) (goto-last-modified-line) (refresh-screen) (goto-line cl) (goto-column cc) ) ) (digit-arrangement "\\.concat")