diff options
| -rw-r--r-- | lisp/km-editing.el | 41 |
1 files changed, 4 insertions, 37 deletions
diff --git a/lisp/km-editing.el b/lisp/km-editing.el index eb93d0c..159e0da 100644 --- a/lisp/km-editing.el +++ b/lisp/km-editing.el @@ -107,46 +107,13 @@ XSELECT is non-nil, copy the region with `x-select-text'." ;;;###autoload (defun km/narrow-to-comment-heading () "Narrow to the current comment heading subtree. - Narrow the buffer from the current comment heading to the next comment heading of the same level or, if not found, to the end of -the buffer. - -A comment is considered a heading if it is at the beginning of -the line and if it conists of 3 or more occurences of -`comment-start'. The number of `comment-start' characters is +the buffer. A comment is considered a heading if it is at the +beginning of the line and if it conists of 3 or more occurences +of `comment-start'. The number of `comment-start' characters is taken to indicate the level of the heading (with 3 being the top -level). - -In the examples below, 'x' indicates the current point and '>>>' -and '<<<' mark the bounds of the narrowed region. - ---------------------------------------------------------------- - >>>;;; Level one heading - x - - ;;;; Level two heading - - <<< - ;;; Another level one heading -------------------------------eob------------------------------ - ---------------------------------------------------------------- - ;;; Level one heading - - >>>;;;; Level two heading - x - <<< - ;;;; Another level one heading -------------------------------eob------------------------------ - ---------------------------------------------------------------- - >>>;;; Level one heading - x - - ;;;; Level two heading - <<< -------------------------------eob------------------------------" +level)." (interactive) (unless comment-start (user-error "Comment syntax is not defined for current buffer")) |