Function: gametree-transpose-following-leaves

gametree-transpose-following-leaves is a byte-compiled function defined in gametree.el.gz.

Signature

(gametree-transpose-following-leaves)

Documentation

Move the current leaf variation behind all others on the same level.

Source Code

;; Defined in /usr/src/emacs/lisp/play/gametree.el.gz
(defun gametree-transpose-following-leaves ()
  "Move the current leaf variation behind all others on the same level."
  (let ((following-leaves
         (save-excursion
           (gametree-forward-line)
           (let ((p (point)))
             (while (and (not (eobp))
                         (= 0 (gametree-current-branch-depth)))
               (gametree-forward-line))
             (prog1 (buffer-substring p (point))
               (delete-region p (point)))))))
    (save-excursion
      (beginning-of-line 1)
      (insert following-leaves))))