Lines Matching +defs:forward +defs:visible +defs:line
218 ;;;_ = allout-beginning-of-line-cycles
219 (defcustom allout-beginning-of-line-cycles t
220 "*If non-nil, \\[allout-beginning-of-line] will cycle through smart-placement options.
228 - if the cursor is on a non-headline body line and not on the first column:
230 - if the cursor is on the first column of a non-headline body line:
237 then it goes to the first column of that line (the headline)
241 In this fashion, you can use the beginning-of-line command to do
246 advanced to the beginning of the line and remains there on
249 ;;;_ = allout-end-of-line-cycles
250 (defcustom allout-end-of-line-cycles t
251 "*If non-nil, \\[allout-end-of-line] will cycle through smart-placement options.
259 - if the cursor is not on the end-of-line,
260 then it goes to the end-of-line
261 - if the cursor is on the end-of-line but not the end-of-entry,
264 then it goes to the end of the head line
266 In this fashion, you can use the end-of-line command to do its
271 advanced to the end of the line and remains there on repeated
421 from regular comments that start at the beginning-of-line.")
546 ;;;_ - allout-head-line-style
547 (defcustom allout-head-line-style "\\large\\sl "
551 ;;;_ - allout-body-line-style
552 (defcustom allout-body-line-style " "
567 ;;;_ - allout-line-skip
568 (defcustom allout-line-skip ".05cm"
690 ("\C-n" allout-next-visible-heading)
691 ("\C-p" allout-previous-visible-heading)
693 ("\C-f" allout-forward-current-level)
715 ("\C-k" allout-kill-line t)
716 ("\M-k" allout-copy-line-as-kill t)
849 "*Regular expression to match the beginning of a heading line.
851 Any line whose beginning matches this regexp is considered a
869 "*Regular expression to match a heading line prefix for a particular depth.
882 "*Regular expression to match a heading line prefix for depth one.
889 ;;;_ = allout-line-boundary-regexp
890 (defvar allout-line-boundary-regexp ()
891 "`allout-regexp' with outline style beginning-of-line anchor.
894 (make-variable-buffer-local 'allout-line-boundary-regexp)
897 "Like `allout-line-boundary-regexp', for headers at beginning of buffer.")
1064 allout-line-boundary-regexp (concat "\n" new-part
1184 ["Next Visible Heading" allout-next-visible-heading t]
1186 allout-previous-visible-heading t]
1189 ["Forward Current Level" allout-forward-current-level t]
1384 mode from prop-line file-var activation. Used by `allout-mode' function
1448 for example, a line that happens to look like an allout-mode topic prefix.
1709 \\[allout-next-visible-heading] `allout-next-visible-heading'
1710 \\[allout-previous-visible-heading] `allout-previous-visible-heading'
1712 \\[allout-forward-current-level] `allout-forward-current-level'
1716 \\[allout-beginning-of-line] `allout-beginning-of-line' - like regular beginning-of-line, but
1718 and then to the hot-spot (if `allout-beginning-of-line-cycles' is set).
1744 \\[allout-kill-line] `allout-kill-line' kill-line, attending to outline structure.
1745 \\[allout-copy-line-as-kill] `allout-copy-line-as-kill' Copy line but don't delete it.
1803 \(\\[allout-forward-current-level] `allout-forward-current-level').
1807 single keystroke. Regular navigation keys (eg, \\[forward-char], \\[next-line]) don't get
1811 In allout-mode, the normal beginning-of-line command (\\[allout-beginning-of-line]]) is
1813 repeat it immediately it cycles (if `allout-beginning-of-line-cycles'
1840 The visible ITEM most immediately containing the cursor.
1861 HEADER: The first line of an ITEM, include the ITEM PREFIX and HEADER
1943 ;; Emacs v 19.18, 19.19 file-var code invokes prop-line-designated
1950 (not explicit-activation) ; Prop-line file-vars don't have args.
1995 allout-line-boundary-regexp
2014 (allout-add-resumptions '(line-move-ignore-invisible t))
2101 (substitute-key-definition 'beginning-of-line
2102 'allout-beginning-of-line
2104 (substitute-key-definition 'move-beginning-of-line
2105 'allout-beginning-of-line
2107 (substitute-key-definition 'end-of-line
2108 'allout-end-of-line
2110 (substitute-key-definition 'move-end-of-line
2111 'allout-end-of-line
2158 (save-excursion (forward-char 1)
2311 ;; headers. For example, any line with a leading '.' or '*' and lacking a
2323 (re-search-forward allout-line-boundary-regexp nil 0))
2342 "Return non-nil if point is on current visible topics' header line.
2346 (allout-beginning-of-current-line)
2357 (beginning-of-line))
2367 Like `allout-current-depth', but respects hidden as well as visible topics."
2380 "Return depth of visible topic most immediately containing point.
2398 "Return bullet of containing topic (visible or not)."
2404 "Return bullet of current (visible) topic heading, or none if none found."
2455 ;;;_ > allout-beginning-of-current-line ()
2456 (defun allout-beginning-of-current-line ()
2457 "Like beginning of line, but to visible text."
2459 ;; This combination of move-beginning-of-line and beginning-of-line is
2460 ;; deliberate, but the (beginning-of-line) may now be superfluous.
2462 (move-beginning-of-line 1)
2463 (beginning-of-line)
2465 (beginning-of-line)
2467 (forward-char -1)))))
2468 ;;;_ > allout-end-of-current-line ()
2469 (defun allout-end-of-current-line ()
2470 "Move to the end of line, past concealed text if any."
2471 ;; XXX This is for symmetry with `allout-beginning-of-current-line' -
2472 ;; `move-end-of-line' doesn't suffer the same problem as
2473 ;; `move-beginning-of-line'.
2475 (end-of-line)
2477 (end-of-line)
2478 (if (allout-hidden-p) (forward-char 1)))))
2479 ;;;_ > allout-beginning-of-line ()
2480 (defun allout-beginning-of-line ()
2481 "Beginning-of-line with `allout-beginning-of-line-cycles' behavior, if set."
2485 (if (or (not allout-beginning-of-line-cycles)
2487 (move-beginning-of-line 1)
2493 (allout-previous-visible-heading 1)))
2499 (allout-beginning-of-current-line))
2502 (t (allout-beginning-of-current-line)
2506 ;;;_ > allout-end-of-line ()
2507 (defun allout-end-of-line ()
2508 "End-of-line with `allout-end-of-line-cycles' behavior, if set."
2512 (if (or (not allout-end-of-line-cycles)
2514 (allout-end-of-current-line)
2519 (allout-end-of-current-line))
2521 (forward-char -1)
2529 (allout-end-of-current-line))
2539 (forward-char 1))
2541 (when (re-search-forward allout-line-boundary-regexp nil 0)
2556 "Move to the prior (possibly invisible) heading line.
2567 (when (or (re-search-backward allout-line-boundary-regexp nil 0)
2588 ;;;_ > allout-back-to-visible-text ()
2589 (defun allout-back-to-visible-text ()
2590 "Move to most recent prior character that is visible, and return point."
2602 ;;;_ > allout-chart-subtree (&optional levels visible orig-depth prev-depth)
2603 (defun allout-chart-subtree (&optional levels visible orig-depth prev-depth)
2610 only the visible subelements of the charted subjects.
2639 (if visible
2640 (allout-next-visible-heading 1)
2663 (if visible
2664 (allout-next-visible-heading 1)
2666 (if visible
2667 (allout-next-visible-heading 1)
2677 visible
2691 (progn (and (not (eobp)) (forward-char -1))
2697 (forward-char -1))
2787 (forward-char 1)
2790 (forward-char -1)))
2823 (while (looking-at "[0-9]") (forward-char 1))
2824 (if (and (not (eolp)) (looking-at "\\s-")) (forward-char 1)))
2829 "Return position of current (visible) topic's bullet."
2836 "Move to heading line of current topic, or beginning if not in a topic.
2843 (allout-beginning-of-current-line)
2856 "Skip forward to just before the next heading line.
2867 visible topic.
2869 Optional INCLUDE-TRAILING-BLANK means include a trailing blank line, if
2885 (forward-char -1))
2887 (forward-char -1))
2892 "Put point at end of last leaf in currently visible containing topic.
2894 Optional INCLUDE-TRAILING-BLANK means include a trailing blank line, if
2909 (move-beginning-of-line 1)
2921 Optional INCLUSIVE means also include trailing empty line, if any. When
2927 (forward-char -1))
2933 (search-forward "\n" nil t)
2934 (forward-char -1))
2941 (if (not (search-forward "\n" nil t))
3013 "Move out ARG levels from current visible topic."
3026 "Like `allout-forward-current-level', but respects invisible topics.
3108 (forward-char 1)
3109 (re-search-forward expression nil 'to-limit)))
3132 "Like `allout-forward-current-level' backwards, respecting invisible topics.
3148 (forward-char -1))
3151 (forward-char -1))
3155 "Go back to the first sibling at this level, visible or not."
3159 "Go to the last sibling at this level, visible or not."
3165 ;;;_ > allout-next-visible-heading (arg)
3166 (defun allout-next-visible-heading (arg)
3167 "Move to the next ARG'th visible heading line, backward if arg is negative.
3182 (prog1 (condition-case nil (or (line-move step) t)
3184 (allout-beginning-of-current-line))
3185 ;; Deal with apparent header line:
3187 ;; not a header line, keep looking:
3192 ;; skip this aberrant prospective header line:
3206 ((not backward) (end-of-line) nil))))
3207 ;;;_ > allout-previous-visible-heading (arg)
3208 (defun allout-previous-visible-heading (arg)
3209 "Move to the previous heading line.
3211 With argument, repeats or can move forward if negative.
3212 A heading line is one that starts with a `*' (or that `allout-regexp'
3215 (prog1 (allout-next-visible-heading (- arg))
3217 ;;;_ > allout-forward-current-level (arg)
3218 (defun allout-forward-current-level (arg)
3248 "Inverse of `allout-forward-current-level'."
3252 (call-interactively 'allout-forward-current-level))
3253 (allout-forward-current-level (* -1 arg))))
3592 is non-nil, or unless current line is completely empty - lacking even
3593 whitespace - in which case open is done on the current line.
3604 - Creation of new topics is with respect to the visible topic
3609 cursor is on a blank line, even if that breaks the current topic
3621 having to go to its preceding sibling, and then open forward
3624 (allout-beginning-of-current-line)
3664 ;; at b-o-b or preceded by a blank line?
3665 (or (> 0 (forward-line -1))
3669 ;; succeeded by a blank line?
3688 (open-line 1)))
3694 (open-line 1)
3695 (open-line 2))
3697 (progn (end-of-line)
3701 (forward-char 1)
3703 (forward-char 1))
3705 (open-line 1)))
3707 (if (looking-at "\n\n") (forward-char 1))))
3713 (line-move 1))
3714 (allout-beginning-of-current-line)
3719 ;; line in body:
3728 (forward-line -1)
3730 (progn (forward-line 1)
3731 (open-line 1)
3732 (forward-line 1)))
3733 (allout-end-of-current-line))
3737 ;; We insert a newline char rather than using open-line to
3741 (open-line 1)
3745 (open-line 1)
3756 (forward-char -1)
3758 (forward-char 1))))
3770 (end-of-line)
3819 (beginning-of-line)
3853 (and (re-search-forward "\n\\(\\s-*\\)"
3872 "Solicit new bullet for current visible heading."
3896 (allout-next-visible-heading 1)
3898 (allout-next-visible-heading -1))))
4008 "Rebullet the visible topic containing point and all contained subtopics.
4010 Descends into invisible as well as visible topics, however.
4041 \(visible or not).
4234 (forward-char -1)
4291 ;;;_ > allout-kill-line (&optional arg)
4292 (defun allout-kill-line (&optional arg)
4293 "Kill line, adjusting subsequent lines suitably for outline mode."
4301 (kill-line arg)
4306 (end-hidden (save-excursion (allout-end-of-current-line)
4313 (allout-unprotected (kill-line arg))
4314 (kill-line arg))
4323 ;;;_ > allout-copy-line-as-kill ()
4324 (defun allout-copy-line-as-kill ()
4329 (allout-kill-line)
4347 (beg (prog1 (allout-back-to-current-heading) (beginning-of-line)))
4352 (forward-char 1))
4360 (forward-char 1)))
4465 2 it is being yanked at the end of a line which consists of only a valid
4512 (beginning-of-line)
4525 ; line at end, if any:
4545 (forward-char -1)
4554 (beginning-of-line)
4605 3 it is being yanked at the end of a line which consists of only a valid
4662 (heading-end (progn (end-of-line) (point))))
4665 (if (re-search-forward "\\s-\\(\\S-*\\)" heading-end t)
4707 "Conceal currently-visible topic's subtree if FLAG non-nil, else reveal it."
4712 (end-of-line))
4742 "If point is visible, show all direct subheadings of this heading.
4769 (allout-beginning-of-current-line)
4808 (progn (search-forward "\n" nil t)
4832 (move-beginning-of-line 1)
4833 (if (allout-hidden-p) (forward-char -1)))
4837 (progn (beginning-of-line)
4857 (end-of-line))
4887 (allout-beginning-of-current-line)
4894 "True if the currently visible containing topic is already collapsed.
4896 Single line topics intrinsically can be considered as being both
4898 true, then single-line topics are considered to be collapsed. By
4902 ;; Is the topic all on one line (allowing for trailing blank line)?
4904 (move-end-of-line 1)
4938 (beginning-of-line))
4970 (end-of-line)
4973 (forward-char
5142 (end-of-line)
5168 (end-of-line)
5305 - and a series of strings, each containing one line of the exposed
5317 (beginning-of-line)
5331 (not (allout-next-visible-heading 1)))
5335 (beginning-of-line)
5343 ;To hidden text or end of line:
5345 (end-of-line)
5346 (allout-back-to-visible-text)))
5349 (line-move 1)
5350 (beginning-of-line))
5423 X number, padded with blanks to line up with first.
5586 ;;;_ > allout-latex-verbatim-quote-curr-line ()
5587 (defun allout-latex-verbatim-quote-curr-line ()
5588 "Express line for exact (literal) representation across LaTeX processing.
5590 Adjust line contents so it is unaltered (from the original line)
5592 environment. Leaves point at the end of the line."
5594 (beginning-of-line)
5596 (end (progn (end-of-line)(point))))
5598 (while (re-search-forward "\\\\"
5600 end ; bounded by end-of-line
5622 allout-head-line-style))
5624 allout-body-line-style))
5636 allout-line-skip
5643 allout-line-skip
5684 (let* ((head-line (if text (car text)))
5686 (curr-line)
5688 ; Do the head line:
5694 (if head-line
5695 (allout-latex-verb-quote head-line)
5703 (setq curr-line (car body-lines))
5705 (not (string-match "^\\s-*$" curr-line)))
5711 (setq bop (string-match "\\end{verbatim}" curr-line)))
5712 (setq curr-line (concat (substring curr-line 0 bop)
5714 (substring curr-line bop))))
5716 (insert curr-line)
5717 (allout-latex-verbatim-quote-curr-line)
5722 (forward-char -1)
5724 (forward-char 1))
5864 (was-collapsed (if (not (search-forward "\n" nil t))
6052 (while (re-search-forward re nil t)
6361 ;; Collapse to a single line and enclose in string quotes:
6424 (if (not (re-search-forward
6433 (forward-char 1))
6439 ((not (search-forward "\n"))
6492 (setq bo-subtree (re-search-forward "$"))
6551 (not (search-forward "Local Variables:" nil t)))
6556 (progn (if (search-forward "\n" nil t)
6557 (forward-char -1))
6561 (forward-char 1))
6578 section lines (including the section line) exist as second-level topics in
6595 (open-line 1)
6597 (end-of-line)
6603 (beginning-of-line)
6615 (if (search-forward (concat "\n" prefix varname ":") nil t)
6617 (line-end (progn (if (search-forward "\n" nil t)
6618 (forward-char -1))
6620 (value-end (- line-end (length suffix))))
6623 (end-of-line)
6624 (open-line 1)
6625 (forward-line 1)
6657 (beginning-of-line))
6730 (while (re-search-forward "[ ][ ]*$" end t)
6829 ;;;_ > move-beginning-of-line if necessary - older emacs, xemacs
6830 (if (not (fboundp 'move-beginning-of-line))
6831 (defun move-beginning-of-line (arg)
6832 "Move point to beginning of current line as displayed.
6836 With argument ARG not nil or 1, move forward ARG - 1 lines first.
6842 (condition-case nil (line-move (1- arg)) (error nil)))
6844 ;; Move to beginning-of-line, ignoring fields and invisibles.
6846 (while (and (not (bobp)) (line-move-invisible-p (1- (point))))
6853 ;;;_ > move-end-of-line if necessary - older emacs, xemacs
6854 (if (not (fboundp 'move-end-of-line))
6855 (defun move-end-of-line (arg)
6856 "Move point to end of current line as displayed.
6860 With argument ARG not nil or 1, move forward ARG - 1 lines first.
6871 (or (line-move arg) t)
6876 (line-move-invisible-p (1- (point))))
6893 ;;;_ > line-move-invisible-p if necessary
6894 (if (not (fboundp 'line-move-invisible-p))
6895 (defun line-move-invisible-p (pos)
6919 (isearch-repeat 'forward)