Lines Matching +defs:insert +defs:char
593 (insert-file-contents file)
863 `woman-escaped-escape-char' and `woman-unpadded-space-char'
1132 ;; delete-char does not kill by default
1133 ;; delete-backward-char does not kill by default
1578 (goto-char (point-min)))))
1636 (goto-char (point-min)))
1664 (woman-insert-file-contents filename compressed)
1676 (goto-char (point-min))
1704 (goto-char (point-min))
1713 (goto-char (point-min))
1715 (backward-delete-char 4)
1717 (goto-char (point-min))
1719 (backward-delete-char 4)
1723 (goto-char (point-min))
1730 (goto-char (point-min))
1732 (delete-char -2)
1743 (goto-char (point-min))
1749 (defun woman-insert-file-contents (filename compressed)
1768 (insert-file-contents filename nil)
1772 (insert "\n***** File " filename " not found! *****\n\n")
1810 (goto-char (posn-point (event-start event)))
2092 (defconst woman-escaped-escape-char ?
2096 (char-to-string woman-escaped-escape-char)
2099 (defconst woman-unpadded-space-char ?
2103 (char-to-string woman-unpadded-space-char)
2113 (modify-syntax-entry woman-unpadded-space-char "." woman-syntax-table)
2114 (modify-syntax-entry woman-escaped-escape-char "." woman-syntax-table)
2132 (aset buffer-display-table woman-unpadded-space-char [?\ ])
2133 (aset buffer-display-table woman-escaped-escape-char [?\\]))
2152 ; (goto-char (point-min))
2182 (goto-char from)
2199 (goto-char from)
2265 (cons (string-to-char (symbol-name woman-emulation)) '(?e ?o)))
2286 (goto-char from)
2304 (goto-char (point-min))
2307 (progn (goto-char (point-min))
2309 (progn (goto-char (point-min))
2315 (goto-char from)
2323 (goto-char from)
2329 (goto-char from)
2336 (goto-char from)
2343 (goto-char from)
2348 (goto-char from)
2352 ; (goto-char from)
2356 (goto-char from)
2361 (goto-char from)
2386 ; (goto-char from)
2388 ; ;; Delimiter can be a special char escape sequence \(.. or
2389 ; ;; a single normal char (usually '):
2411 ; (insert-char woman-unpadded-space-char N)
2416 ; (cond ((memq (preceding-char) '(?\ ?\t))
2417 ; (delete-backward-char 1) t)
2418 ; ((memq (following-char) '(?\ ?\t))
2419 ; (delete-char 1) t)
2427 (goto-char from)
2440 (goto-char from)
2442 (delete-char -1) (insert ?\\))
2443 (goto-char from)
2445 (delete-char -1) (insert ?\ ))
2459 ;; Delimiter can be a special char escape sequence \(.. or
2460 ;; a single normal char (usually '):
2482 (insert-char woman-unpadded-space-char N)
2487 (cond ((memq (preceding-char) '(?\ ?\t))
2488 (delete-backward-char 1) t)
2489 ((memq (following-char) '(?\ ?\t))
2490 (delete-char 1) t)
2496 (goto-char from)))
2519 (goto-char from)
2562 (goto-char from) ; necessary!
2566 (goto-char from) ; necessary!
2584 (if (setq negated (= (following-char) ?!)) (delete-char 1))
2589 (setq c (memq (following-char) woman-if-conditions-true)))
2604 (goto-char (match-end 1))
2609 (goto-char from)))
2615 (goto-char from))
2648 (if (looking-at "^$") (delete-char 1))
2665 (goto-char from)
2716 (length (woman-insert-file-contents filename 0))
2720 (goto-char from)
2754 (goto-char (point-min))
2813 (backward-char) ; return to end of .de/am line
2863 (forward-char)
2867 (insert macro))))
2877 (cond ((= (following-char) ?\[ )
2878 (forward-char)
2880 (forward-char)) ; skip closing ]
2881 ((= (following-char) ?\( )
2882 (forward-char)
2925 (if (bolp) (insert-before-markers "\\&"))
2926 (insert-before-markers (cdr string)))
2947 ;; MUST insert all characters as strings for correct conversion to
2998 (insert-before-markers newtext)
3040 (insert (format "\\%03o " i) (string i) " " (string i))
3043 (insert " ")
3045 (when (= i 128) (setq i 160) (insert "\n"))
3046 (if (zerop (% i 8)) (insert "\n")))
3064 (delete-char 1)
3066 (delete-char -1))
3096 (if (eolp) (delete-char 1))
3098 ; (cond ((memq (following-char) '(?. ?'))
3099 ; (insert "\\&")
3104 (if (and unquote (memq (following-char) '(?. ?')))
3105 (insert "\\&"))
3123 (insert B-or-I) ; because it might be a control line
3125 ;; or start of first arg to hide leading control char.
3132 (insert "\\fR")))
3170 (insert (car fonts))
3171 ;; Return to start of first arg to hide leading control char:
3176 (insert (car fonts))
3179 (insert "\\fR")
3186 (if (eq (following-char) ?\")
3188 (if unquote (delete-char 1) (forward-char))
3191 (while (eq (following-char) ?\") ; paired
3192 (if unquote (delete-char 1) (forward-char))
3194 (if (eq (preceding-char) ?\")
3195 (if unquote (delete-backward-char 1))
3219 (insert ".ft R\n")))
3226 (insert ".ft I\n")
3228 (insert ".ft R\n")
3252 (let ((c (char-to-string (following-char))))
3260 (delete-char -1)))
3299 (insert "SunOS ")
3379 (insert "\\&"))
3404 (goto-char from)
3423 (defun woman-get-next-char ()
3424 "Return and delete next char in buffer, including special chars."
3430 (prog1 (char-to-string (following-char))
3431 (delete-char 1))))
3448 (setq a (woman-get-next-char))
3451 (setq b (woman-get-next-char)))
3457 (delete-char 1) ; no blank line
3460 (if (= (string-to-char matches) ?\])
3476 (insert-before-markers-and-inherit
3507 (goto-char (match-beginning 0))
3527 (when (memq (char-after) '(?+ ?-))
3528 (forward-char) (char-before))))
3572 (if (= (following-char) ?\") (forward-char))
3578 (forward-char)
3582 (goto-char (match-end 0))
3587 ((memq (setq op (following-char)) '(?& ?:)) ; Boolean and / or
3588 (forward-char)
3607 ; (following-char)
3623 (if (eq (following-char) ?\()
3626 (forward-char)
3629 (if (eq (following-char) ?\))
3630 (forward-char)
3664 ;; Delimiter can be special char escape \[xxx],
3665 ;; \(xx or single normal char (usually '):
3683 (goto-char (match-end 0))
3696 (goto-char (match-end 0)))
3705 ;; Delete all vertical space as it is encountered. Then insert
3714 (insert-and-inherit (symbol-function 'insert-and-inherit))
3723 (fset 'insert-and-inherit (symbol-function 'insert))
3751 (t (end-of-line) (insert ?\n))
3754 (and (not (memq (following-char) '(?. ?')))
3766 (fset 'insert-and-inherit insert-and-inherit)
3786 (goto-char (match-beginning 0))
3820 (insert ?\()
3822 (insert ?\))
3826 (delete-char 2)
3831 (insert " -- ")
3851 (delete-char 1) ; apply to next line
3871 (delete-char 1)) ; apply to next line.
3872 (insert " ")
3907 (insert ".sp ")
3916 (goto-char from)
3936 ;; (insert (substring overlap i (1+ i)))
3938 (insert (substring overlap i eol))
3942 (forward-char))
3944 (if (eq (following-char) ?\t)
3945 (forward-char) ; both tabs, just skip
3949 (insert ?\ ) ; extend line
3950 (forward-char)) ; skip
3954 (if (or (eq (following-char) ?\ ) ; overwrite OK
3961 (delete-char 1) (insert (substring overlap i (1+ i)))))
3983 (goto-char from)
3991 (insert-before-markers ?\n))
3992 (goto-char from)
3994 (goto-char from)
3996 (goto-char from)
4001 (let ((c (following-char)))
4003 (delete-char -1)
4005 (delete-char 1)
4006 (insert ?`))))
4010 (delete-char 1)
4011 (delete-char -1)
4012 (insert "\t"))
4019 (delete-char -1))
4021 (goto-char from)
4026 (goto-char from)))
4034 (goto-char from)
4038 (insert-before-markers (number-to-string N))))
4039 (goto-char from)))
4043 (delete-char -1)
4044 (delete-char 1)
4046 (forward-char 1)
4050 (c (if (< (point) to) (following-char) ?_)))
4052 (delete-char 1)
4053 (insert (make-string N c))
4090 ((eq (following-char) ?l) woman-adjust-left)
4091 ((eq (following-char) ?r) woman-adjust-right)
4092 ((eq (following-char) ?c) woman-adjust-center)
4093 ((memq (following-char) '(?b ?n)) woman-adjust-both)
4123 (forward-line)) ; forward-char ?
4133 (if (and leave (> leave 0)) (insert-before-markers ?\n))
4207 (backward-char)
4220 (goto-char from)
4333 (goto-char tag) (end-of-line)
4335 (delete-char 1)
4340 (while (> i 0) (insert ? ) (setq i (1- i)))))
4341 (goto-char to) ; necessary ???
4359 (or leave-eol (delete-char 1))
4361 (woman-delete-line) (or leave-eol (delete-char 1))
4409 (prog1 (following-char)
4410 (forward-char 1))))
4458 (let ((plus (cond ((eq (following-char) ?+) (forward-char 1) t)))
4461 (if (memq (following-char) '(?R ?C))
4462 (setq tab-stop (cons tab-stop (following-char))))
4481 (delete-backward-char 1)
4499 (insert ?\ )
4501 (insert ?\ ))))
4518 (let ((delim (following-char))
4520 (forward-char)
4522 (or (eolp) (setq pad (following-char)))
4533 (goto-char (match-beginning 0))
4534 (delete-char 1)
4535 (insert woman-unpadded-space-char)
4536 (goto-char (match-end 0))
4537 (delete-backward-char 1)
4538 (insert-before-markers woman-unpadded-space-char)
4539 (subst-char-in-region
4541 pad woman-unpadded-space-char t)
4566 (while (prog1 (search-forward "\t" to t) (goto-char start))
4570 (backward-char)
4574 (goto-char start)
4578 (delete-char -1)
4579 (insert-char ?\ (- col (current-column))))
4581 (goto-char start))))
4607 (goto-char (point-max))
4608 (insert "\n\^L\nFormatting "
4632 (/= (string-to-char tail) ?\ ))
4650 (goto-char (point-max))
4651 (or end (insert " ")) (insert string "\n")
4659 (goto-char WoMan-Log-header-point-max)