Changes
Jump to navigation
Jump to search
(goto-char beg) (while (search-forward-regexp "{\\([0-9]+\\),\\([0-9]+\\)}" end t) (replace-match (concat "{" (number-to-string (+ (string-to-number (match-string 1)) x)) "," (number-to-string (+ (string-to-number (match-string 2)) y)) "}") nil nil))))
→Working with FLOW charts (from m-chart.tex)
<pre>
(defun context-FLOW-shift-cells (x y &optional beg end)
"Shifts FLOW cells in region right and down"
(interactive "nRight: \nnDown: \nr")
(save-excursion
(defun context-FLOW-insert-cells (%optional n)
