Lines Matching +defs:insert +defs:char
444 functions to vary the topic bullet char (the char that marks the topic
807 (if here (insert msg))
1019 cur-char
1025 (setq cur-char (aref cur-string index))
1032 ((eq cur-char ?-) "--")
1036 ((eq cur-char ?\]) "")
1037 (t (regexp-quote (char-to-string cur-char))))))
1083 ;; old-style all-bullets string, if primary not multi-char:
1107 ;; disqualify any bullet char following any amount of
1114 ;; bullet style if the prefix is multi-char.
1480 (if (save-excursion (goto-char (point-min))
1516 (goto-char (car allout-after-save-decrypt))
1521 (goto-char (cadr allout-after-save-decrypt))
1649 (put 'allout-exposure-category 'insert-in-front-hooks
1650 '(allout-overlay-insert-in-front-handler)))
1807 single keystroke. Regular navigation keys (eg, \\[forward-char], \\[next-line]) don't get
2081 (goto-char 0)
2126 (eq (get-char-property (or pos (point)) 'invisible) 'allout))
2128 ;;;_ > allout-overlay-insert-in-front-handler (ol after beg end
2130 (defun allout-overlay-insert-in-front-handler (ol after beg end
2153 (goto-char beg)
2158 (save-excursion (forward-char 1)
2162 (goto-char (if (featurep 'xemacs)
2164 (next-char-property-change (1+ (point)) end))))
2166 (goto-char first)
2173 (progn (goto-char start)
2178 (goto-char start))))
2193 (got-char beg)
2325 (goto-char allout-recent-prefix-beginning)
2336 (goto-char start-point)
2467 (forward-char -1)))))
2478 (if (allout-hidden-p) (forward-char 1)))))
2497 (goto-char beginning-of-body))
2501 (goto-char (allout-current-bullet-pos)))
2505 (goto-char beginning-of-body)))))))
2521 (forward-char -1)
2539 (forward-char 1))
2547 (goto-char allout-recent-prefix-beginning)))
2569 (goto-char (allout-prefix-data))
2573 (and (goto-char start-point)
2592 (goto-char (overlay-start (allout-get-invisibility-overlay))))
2691 (progn (and (not (eobp)) (forward-char -1))
2692 (and (= (preceding-char) ?\n)
2697 (forward-char -1))
2736 (goto-char here)
2787 (forward-char 1)
2790 (forward-char -1)))
2820 (goto-char allout-recent-prefix-end)
2823 (while (looking-at "[0-9]") (forward-char 1))
2824 (if (and (not (eolp)) (looking-at "\\s-")) (forward-char 1)))
2850 (goto-char (point-min))
2861 (goto-char (1- allout-recent-prefix-beginning))))
2885 (forward-char -1))
2886 (if (and (not include-trailing-blank) (= ?\n (preceding-char)))
2887 (forward-char -1))
2911 (goto-char allout-recent-prefix-end)
2912 (goto-char (point-min)))
2916 (goto-char (allout-current-bullet-pos)))))
2926 (if (and (not inclusive) (not (bobp)) (= ?\n (preceding-char)))
2927 (forward-char -1))
2934 (forward-char -1))
2943 (backward-char 1)
2963 (goto-char allout-recent-prefix-beginning)
2984 (goto-char dont-move-if-unsuccessful))
2989 (goto-char bolevel)
3008 (goto-char start-point)
3018 (progn (goto-char start-point)
3057 (goto-char start-point)
3067 (goto-char start-point)
3108 (forward-char 1)
3114 (progn (goto-char start-point)
3124 (goto-char start-point)
3127 (goto-char found)
3148 (forward-char -1))
3149 (if (or (bobp) (not (= ?\n (preceding-char))))
3151 (forward-char -1))
3204 (goto-char prev)
3295 (progn (goto-char (allout-current-bullet-pos))
3305 When the cursor is on the bullet character, self-insert characters are
3313 char. When in this mode you can use regular cursor-positioning
3315 return to regular interpretation of self-insert characters."
3322 (if (and (eq this-command 'self-insert-command)
3335 (let* ((key-string (if (numberp last-command-char)
3336 (char-to-string last-command-char)))
3337 (key-num (cond ((numberp last-command-char) last-command-char)
3340 (apply 'characterp (list last-command-char)))
3341 (apply 'char-to-int (list last-command-char)))
3357 (char-to-string
3365 (setq mapped-binding (key-binding (char-to-string key-num))))
3369 (lookup-key mapped-binding (vector (read-char)))))
3388 "Prompt for and return a bullet char as an alternative to the current one.
3397 (goto-char (allout-current-bullet-pos))
3398 (setq choice (solicit-char-in-string
3432 (char-to-string (aref allout-plain-bullets-string
3449 ;; Solicit dominates specified bullet-char.
3505 (bullet-char
3507 ;; Getting value for bullet char is practically the whole job:
3515 ;; bullet-char:
3517 (string-to-char allout-primary-bullet)))
3580 bullet-char
3660 (goto-char ref-topic)
3699 (while (and (= ?\n (following-char))
3701 (forward-char 1)
3703 (forward-char 1))
3707 (if (looking-at "\n\n") (forward-char 1))))
3715 (backward-char 1)
3735 ;;(if doing-beginning (goto-char doing-beginning))
3737 ;; We insert a newline char rather than using open-line to
3756 (forward-char -1)
3758 (forward-char 1))))
3761 (insert (concat (allout-make-topic-prefix opening-numbered t depth)
3768 (save-excursion (goto-char ref-topic)
3900 (cond (on-bullet (goto-char (allout-current-bullet-pos)))
3966 (goto-char mb)
3981 (allout-unprotected (insert new-prefix))
4114 (goto-char local-point)
4142 (progn (goto-char starting-point)
4178 (if was-eobp (goto-char (point-max)))))
4234 (forward-char -1)
4286 (goto-char child-point)
4352 (forward-char 1))
4360 (forward-char 1)))
4388 (goto-char begin)
4395 (next-single-char-property-change (point)
4401 (goto-char next)
4411 (goto-char next)
4430 (goto-char begin)
4436 (setq next (next-single-char-property-change (point)
4442 (goto-char next)
4448 (setq next (next-single-char-property-change (point)
4455 (if next (goto-char next)))))
4507 (and (goto-char subj-end)
4509 (goto-char subj-beg)
4526 (goto-char (point-max))
4528 (allout-unprotected (delete-char -1)))
4545 (forward-char -1)
4558 (goto-char subj-beg)
4570 (while (looking-at "[0-9]") (delete-char 1))
4571 (if (looking-at " ") (delete-char 1))))))
4579 (goto-char subj-beg)
4663 (goto-char text-start)
4797 (goto-char start-point)
4803 (goto-char (car to-reveal))
4806 (goto-char (car to-reveal))
4812 (goto-char (car to-reveal))
4817 (goto-char start-point)))
4833 (if (allout-hidden-p) (forward-char -1)))
4839 (goto-char orig-pt)
4846 (goto-char orig-pref)))
4847 (goto-char orig-pt)))
4909 (progn (backward-char 1) (allout-hidden-p))))))
4927 (t (goto-char 0)
4932 (goto-char from)))
4967 (goto-char (point-min))
4973 (forward-char
5091 (progn (goto-char (min (point-max) max-pos))
5166 (progn (goto-char max-pos)
5316 (goto-char start)
5337 (goto-char beg)
5428 FUNCTION: `allout-insert-listified'
5437 (if (not func) (setq func 'allout-insert-listified))
5469 ;;;_ > allout-insert-listified (listified)
5470 (defun allout-insert-listified (listified)
5488 (insert prefix)
5489 (if bullet-plus (insert (concat " " bullet-plus)))
5491 (insert (car text))
5493 (insert "\n")))
5494 (insert "\n")))
5526 (goto-char beg)
5530 (allout-process-exposed 'allout-insert-listified
5536 (goto-char (point-min))
5538 (goto-char start-pt)))
5579 (lambda (char)
5580 (cond ((memq char '(?\\ ?$ ?% ?# ?& ?{ ?} ?_ ?^ ?- ?*))
5581 (concat "\\char" (number-to-string char) "{}"))
5582 ((= char ?\n) "\\\\")
5583 (t (char-to-string char)))))
5597 (goto-char beg)
5602 (goto-char (match-beginning 2))
5603 (insert "\\")
5605 (goto-char (1+ (match-end 2)))))))
5606 ;;;_ > allout-insert-latex-header (buffer)
5607 (defun allout-insert-latex-header (buffer)
5658 (insert (concat doc-style
5673 ;;;_ > allout-insert-latex-trailer (buffer)
5674 (defun allout-insert-latex-trailer (buffer)
5677 (insert "\n\\end{document}\n"))
5689 (insert (concat "\\OneHeadLine{\\verb\1 "
5700 ;;(insert "\\beginlines\n")
5701 (insert "\\begin{verbatim}\n")
5715 ;;(insert "|" (car body-lines) "|")
5716 (insert curr-line)
5718 (insert "\n")
5722 (forward-char -1)
5723 (insert "\\ ")
5724 (forward-char 1))
5725 ;;(insert "\\endlines\n")
5726 (insert "\\end{verbatim}\n")
5746 (allout-insert-latex-header tobuf)
5747 (goto-char (point-max))
5753 (goto-char (point-max))
5754 (allout-insert-latex-trailer tobuf)
5755 (goto-char (point-min))
5757 (goto-char start-pt)))
5866 (backward-char 1)
5872 (subtree-end-char (char-after (1- subtree-end)))
5873 (subtree-trailing-char (char-after subtree-end))
5925 (insert result-text)
5930 (if (and (= subtree-end-char ?\n)
5931 (= subtree-trailing-char ?\n))
5932 (insert subtree-trailing-char)))
5937 (progn (goto-char (1- after-bullet-pos))
5938 (delete-char 1)
5939 (insert allout-topic-encryption-bullet)))
5942 (progn (goto-char after-bullet-pos)
5943 (delete-char 1))
5945 (goto-char after-bullet-pos)
5946 (insert "*"))))
6038 (insert text)
6051 (goto-char (point-min))
6302 (insert text)
6362 (subst-char-in-string
6394 (subst-char-in-string ?\C-a ?\n verifier-string))
6431 (goto-char (setq got (match-beginning 0)))
6433 (forward-char 1))
6449 (backward-char 1)
6462 (goto-char got))
6486 (goto-char (point-min))
6532 (goto-char (point-min))
6536 (insert (concat "Dummy outline topic header - see"
6548 (goto-char (point-max))
6557 (forward-char -1))
6561 (forward-char 1))
6594 (goto-char (point-max))
6598 (insert "Local emacs vars.\n")
6606 (goto-char beg)
6607 (insert "Local variables:\n")
6609 (insert "End:\n")
6613 (goto-char beg)
6618 (forward-char -1))
6626 (insert (concat prefix varname ":")))
6627 (insert (format " %S%s" value suffix))
6663 ;;;_ > solicit-char-in-string (prompt string &optional do-defaulting)
6664 (defun solicit-char-in-string (prompt string &optional do-defaulting)
6678 (char-to-string (let ((cursor-in-echo-area nil)) (read-char))))
6708 ;; Set successive-backslashes to number if current char is
6715 ;; Include first char:
6718 ;; Exclude first char, but maintain count:
6728 (goto-char beg)
6731 (goto-char (1+ (match-beginning 2)))
6738 (mapcar (lambda (char) (if (= char ?%) "%%" (char-to-string char)))
6758 ;;;_ > subst-char-in-string if necessary
6759 (if (not (fboundp 'subst-char-in-string))
6760 (defun subst-char-in-string (fromchar tochar string &optional inplace)
6847 (goto-char (if (featurep 'xemacs)
6849 (previous-char-property-change (point))))
6877 (goto-char
6878 (previous-char-property-change (point))))
6879 (backward-char 1)))
6881 (goto-char newpos)
6883 (eq (preceding-char) ?\n))
6884 (backward-char 1)
6886 (not (eq (following-char) ?\n)))
6898 (get-char-property pos 'invisible)))
6910 (setq bullet (solicit-char-in-string