Lines Matching +defs:old +defs:mark
77 ;; 3.x, for those of you that depend on the old method.)
339 `?' - question mark - uncertain or outright question
423 ;;;_ = allout-old-style-prefixes
424 (defcustom allout-old-style-prefixes nil
425 "*When non-nil, use only old-and-crusty `outline-mode' `*' topic prefixes.
431 Whatever the setting of this variable, both old and new style prefixes
435 (make-variable-buffer-local 'allout-old-style-prefixes)
437 (put 'allout-old-style-prefixes 'safe-local-variable
476 Stylish and constant prefixes (as well as old-style prefixes) are
480 The setting of this var is not relevant when `allout-old-style-prefixes'
722 ;([?\C-\ ] allout-mark-topic)
984 (if (not allout-old-style-prefixes)
1045 (let (new-part old-part)
1052 old-part (concat "\\("
1061 old-part
1066 "\n" old-part)
1070 "\\`" old-part))
1083 ;; old-style all-bullets string, if primary not multi-char:
1113 ;; Need not support anything like the old
1477 (let ((except-mark (and (equal allout-encrypt-unencrypted-on-saves
1481 (allout-next-topic-pending-encryption except-mark))
1487 (allout-encrypt-decrypted except-mark))
1761 \\[allout-mark-topic] `allout-mark-topic'
1983 (if allout-old-style-prefixes
2416 ;; Doesn't make sense if we're old-style prefixes, but this just
3513 (allout-old-style-prefixes
3521 ;; (Neither level 1 nor old-style, so we're space padding.
3831 ;;;_ > allout-reindent-body (old-depth new-depth &optional number)
3832 (defun allout-reindent-body (old-depth new-depth &optional number)
3843 excess old-indent-begin old-indent-end
3847 (old-margin (+ old-depth (- new-margin new-depth))))
3858 (setq old-indent-begin (match-beginning 1)
3859 old-indent-end (match-end 1))
3861 (if (> 0 (setq excess (- (- old-indent-end old-indent-begin)
3862 old-margin)))
3863 ;; Text starts left of old margin - don't adjust:
3865 ;; Text was hanging at or right of old left margin -
3867 ;; beyond the old margin:
3868 (delete-region old-indent-begin old-indent-end)
3939 Cf vars `allout-stylish-prefixes', `allout-old-style-prefixes',
3956 ;; Is new one is identical to old?
3963 ;; New prefix probably different from old:
3964 ; get rid of old one:
4475 at the end (and vice-versa with the mark). Non-adjusted yanks,
4481 (if (< (allout-mark-marker t) (point))
4482 (exchange-point-and-mark))
4485 (subj-end (allout-mark-marker t))
4548 ;; use old one:
4551 ; Delete from bullet of old to
4557 (set-marker (allout-mark-marker t) subj-end)
4561 ; leaving old one:
4572 (exchange-point-and-mark))))
4589 (allout-hide-by-annotation (point) (allout-mark-marker t))
4590 (allout-deannotate-hidden (allout-mark-marker t) (point)))
4592 (exchange-point-and-mark))
4613 at the end (and vice-versa with the mark). Non-adjusted yanks,
4690 arguments as this function, after the exposure changes are made. (The old
5095 ;;;_ > allout-old-expose-topic (spec &rest followers)
5096 (defun allout-old-expose-topic (spec &rest followers)
5151 ;(let ((got (allout-old-expose-topic (car spec))))
5156 (setq max-pos (allout-old-expose-topic (car spec)))
5161 (progn (setq got (apply 'allout-old-expose-topic spec))
5170 (allout-old-expose-topic (car followers))
5406 'mark-active))
6410 ;;;_ > allout-next-topic-pending-encryption (&optional except-mark)
6411 (defun allout-next-topic-pending-encryption (&optional except-mark)
6419 immediately following '*' that would mark the topic as being encrypted. It
6452 (and except-mark
6453 (<= content-beg except-mark)
6454 (>= (point) except-mark)))
6465 ;;;_ > allout-encrypt-decrypted (&optional except-mark)
6466 (defun allout-encrypt-decrypted (&optional except-mark)
6481 (let* ((current-mark (point-marker))
6482 (current-mark-position (marker-position current-mark))
6487 (while (allout-next-topic-pending-encryption except-mark)
6494 (>= current-mark (point))
6496 (<= current-mark (point))))
6500 editing-point (- current-mark-position
6502 bo-subtree current-mark-position))))
6652 ;;;_ > allout-mark-topic ()
6653 (defun allout-mark-topic ()
6659 (push-mark (point))
6661 (exchange-point-and-mark))
6749 ;;;_ > allout-mark-marker to accommodate divergent emacsen:
6750 (defun allout-mark-marker (&optional force buffer)
6751 "Accommodate the different signature for `mark-marker' across Emacsen.
6756 (apply 'mark-marker force buffer)
6757 (mark-marker)))