mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

* outline.el (outline-get-next-sibling): Clarify docstring.

Browse Source 
(outline-get-last-sibling): Handle case where we are at the first
heading.  Clarify docstring.
This commit is contained in:
Chong Yidong 2007-04-13 01:17:51 +00:00
parent cb2ec9315e
commit 29779b2d7b
2 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2007-04-12 Chong Yidong <cyd@stupidchicken.com>
* outline.el (outline-get-next-sibling): Clarify docstring.
(outline-get-last-sibling): Handle case where we are at the first
heading. Clarify docstring.
2007-04-12 Nick Roberts <nickrob@snap.net.nz>
* progmodes/gud.el (gud-minor-mode-map): Make go button same same

22
lisp/outline.el
View File

@ -1000,7 +1000,8 @@ Stop at the first and last subheadings of a superior heading."
(error "No following same-level heading"))))))
(defun outline-get-next-sibling ()
"Move to next heading of the same level, and return point or nil if none."
"Move to next heading of the same level, and return point.
If there is no such heading, return nil."
(let ((level (funcall outline-level)))
(outline-next-visible-heading 1)
(while (and (not (eobp)) (> (funcall outline-level) level))
@ -1026,15 +1027,18 @@ Stop at the first and last subheadings of a superior heading."
(error "No previous same-level heading"))))))
(defun outline-get-last-sibling ()
"Move to previous heading of the same level, and return point or nil if none."
(let ((level (funcall outline-level)))
"Move to previous heading of the same level, and return point.
If there is no such heading, return nil."
(let ((opoint (point))
(level (funcall outline-level)))
(outline-previous-visible-heading 1)
(while (and (> (funcall outline-level) level)
(not (bobp)))
(outline-previous-visible-heading 1))
(if (< (funcall outline-level) level)
nil
(point))))
(when (and (/= (point) opoint) (outline-on-heading-p))
(while (and (> (funcall outline-level) level)
(not (bobp)))
(outline-previous-visible-heading 1))
(if (< (funcall outline-level) level)
nil
(point)))))
(defun outline-headers-as-kill (beg end)
"Save the visible outline headers in region at the start of the kill ring.