現在利用可能な4つの回答（スーパーユーザーに2つ、この質問に2つ）を調べると、次の問題があります。
- ステファンと鵬白によってスーパーユーザのものは、現在の列の位置を保持し、親にまで移動する実装されていません（現在のインデントを見て、ライン・バイ・ラインを動かします）
- ダンによって答えは何の次の兄弟が存在しない場合、それはわからないので、兄弟ではないというものに移動することができます少ないインデントと行はスキップ（同じインデントで次の行を見つけるために、フォワード再検索を使用して）しかし、別の親の子…おそらく次の「いとこ」。
- ジルによって回答（アウトラインモードを使用して）は、列位置を保持せず、ゼロくぼみ（「トップレベル」の線）と線で作業をしません。また、のコードを見ると、（ほとんど）すべての行がアウトラインの正規表現に一致し、「見出し」としてカウントされるため、
outline.el基本的には（outline-next-visible-headingとして）とにかく行ごとに進んでいます。
したがって、それぞれのアイデアをまとめると、次のようになります。空行やインデントされた行をスキップして、行ごとに移動します。均等にインデントしている場合は、次の兄弟です。基本的な考え方は次のようになります。
(defun indentation-get-next-sibling-line ()
"The line number of the next sibling, or nil if there isn't any."
(let ((wanted-indentation (current-indentation)))
(save-excursion
(while (and (zerop (forward-line)) ; forward-line returns 0 on success
(or (eolp) ; Skip past blank lines and more-indented lines
(> (current-indentation) wanted-indentation))))
;; Now we can't go further. Which case is it?
(if (and (not (eobp)) (= (current-indentation) wanted-indentation))
(line-number-at-pos)
nil))))
(defun indentation-forward-to-next-sibling ()
(interactive)
(let ((saved-column (current-column)))
(forward-line (- (indentation-get-next-sibling-line) (line-number-at-pos)))
(move-to-column saved-column)))
適切に一般化（フォワード/バックワード/アップ/ダウン）して、現在使用しているものは次のようになります。
(defun indentation-get-next-good-line (direction skip good)
"Moving in direction `direction', and skipping over blank lines and lines that
satisfy relation `skip' between their indentation and the original indentation,
finds the first line whose indentation satisfies predicate `good'."
(let ((starting-indentation (current-indentation))
(lines-moved direction))
(save-excursion
(while (and (zerop (forward-line direction))
(or (eolp) ; Skip past blank lines and other skip lines
(funcall skip (current-indentation) starting-indentation)))
(setq lines-moved (+ lines-moved direction)))
;; Now we can't go further. Which case is it?
(if (and
(not (eobp))
(not (bobp))
(funcall good (current-indentation) starting-indentation))
lines-moved
nil))))
(defun indentation-get-next-sibling-line ()
"The line number of the next sibling, if any."
(indentation-get-next-good-line 1 '> '=))
(defun indentation-get-previous-sibling-line ()
"The line number of the previous sibling, if any"
(indentation-get-next-good-line -1 '> '=))
(defun indentation-get-parent-line ()
"The line number of the parent, if any."
(indentation-get-next-good-line -1 '>= '<))
(defun indentation-get-child-line ()
"The line number of the first child, if any."
(indentation-get-next-good-line +1 'ignore '>))
(defun indentation-move-to-line (func preserve-column name)
"Move the number of lines given by func. If not possible, use `name' to say so."
(let ((saved-column (current-column))
(lines-to-move-by (funcall func)))
(if lines-to-move-by
(progn
(forward-line lines-to-move-by)
(move-to-column (if preserve-column
saved-column
(current-indentation))))
(message "No %s to move to." name))))
(defun indentation-forward-to-next-sibling ()
"Move to the next sibling if any, retaining column position."
(interactive "@")
(indentation-move-to-line 'indentation-get-next-sibling-line t "next sibling"))
(defun indentation-backward-to-previous-sibling ()
"Move to the previous sibling if any, retaining column position."
(interactive "@")
(indentation-move-to-line 'indentation-get-previous-sibling-line t "previous sibling"))
(defun indentation-up-to-parent ()
"Move to the parent line if any."
(interactive "@")
(indentation-move-to-line 'indentation-get-parent-line nil "parent"))
(defun indentation-down-to-child ()
"Move to the first child line if any."
(interactive "@")
(indentation-move-to-line 'indentation-get-child-line nil "child"))
望ましい機能がまだいくつかあり、それらのいくつかを見てoutline.el再実装することは役立つかもしれませんが、私は今のところ、私の目的のためにこれに満足しています。
set-selective-displayあなたが必要なものの近くにあなたを得ますか？