Open main menu
Wiki

Changes

AUCTeX (view source)

Revision as of 12:26, 12 May 2006

241 bytes removed ,  12:26, 12 May 2006
→‎Help with natural tables
(defun context-FLOW-shift-cells (x y &optional beg end)
"Shifts FLOW cells in region right and down"
(interactive "nRight: \nnDown: \nr")
(save-excursion
(let ((beg (if beg beg (point))))
(let ((end (if (<= (line-number-at-pos end)
(+ 2 (line-number-at-pos beg)))
(search-forward "\\stopFLOWchart") end)))
(message "beg %s, line %s end %s, line %s"
beg (line-number-at-pos beg)
end (line-number-at-pos end))
(goto-char beg)
(while (search-forward-regexp
"," (number-to-string
(+ (string-to-number (match-string 2)) y)) "}")
nil nil))))))
(defun context-FLOW-insert-cells (%optional n)
Anonymous user
Retrieved from "https://wiki.contextgarden.net/Special:MobileDiff/5689"