Lines Matching +defs:insert +defs:char
49 ;; To use ebnf2ps, insert in your ~/.emacs:
195 ;; ;; insert here your ebnf2ps settings
319 ;; The line comment is controlled by `ebnf-lex-comment-char'. The default
322 ;; The end of production is controlled by `ebnf-lex-eop-char'. The default
331 ;; `ebnf-lex-comment-char' and `ebnf-lex-eop-char'.
705 ;; `ebnf-lex-comment-char' Specify the line comment character.
707 ;; `ebnf-lex-eop-char' Specify the end of production
740 ;; a) insert the code in your ~/.emacs, like:
790 ;; `ebnf-insert-style' Insert a new style NAME with inheritance INHERITS and
1758 `ebnf-lex-comment-char' and `ebnf-lex-eop-char'.
1792 (defcustom ebnf-lex-comment-char ?\;
1801 (defcustom ebnf-lex-eop-char ?.
2334 ebnf-lex-comment-char ?\\%03o
2335 ebnf-lex-eop-char ?\\%03o
2394 ebnf-lex-comment-char
2395 ebnf-lex-eop-char
2467 ebnf-lex-comment-char
2468 ebnf-lex-eop-char
2530 (ebnf-lex-comment-char . ?\;)
2531 (ebnf-lex-eop-char . ?.)
2552 (ebnf-lex-comment-char . ?\#)
2553 (ebnf-lex-eop-char . ?\;))
2601 Don't use this variable directly. Use functions `ebnf-insert-style',
2611 (defun ebnf-insert-style (name inherits &rest values)
2661 ;; insert new variables
4241 ;; insert EPS buffer in all buffer associated with production
4279 ;; insert EPS buffer in all buffer associated with production
4286 (goto-char (point-max))
4314 (insert-buffer-substring eps-buffer))
4659 (setq str (concat str (char-to-string from))
4666 (mapcar #'(lambda (char)
4667 (aset map char char))
4686 (insert (car args))
4725 (goto-char the-point)
4831 (ebnf-font-select font 'avg-char-width))
4923 (goto-char (point-min))
4931 (insert " & ebnf2ps v" ebnf-version)
4932 ;; insert ebnf settings & engine
4933 (goto-char (point-max))
4935 (ebnf-insert-ebnf-prologue)
4950 (goto-char (point-min))
4951 (insert
4973 (ebnf-insert-ebnf-prologue)
4974 (insert ebnf-eps-begin
4979 (goto-char (point-max))
4980 (insert ebnf-eps-end)
4989 (defun ebnf-insert-ebnf-prologue ()
4990 (insert
5492 ;; insert empty at end ==> left justify
5496 ;; insert empty at beginning ==> right justify
5553 (defun ebnf-string (chars eos-char kind)
5554 (forward-char)
5560 (if (or (eobp) (/= (following-char) eos-char))
5561 (error "Invalid %s: missing `%c'" kind eos-char)
5562 (forward-char)
5567 (forward-char)
5576 (goto-char (+ (point) n 1))))
5577 (if (= (preceding-char) ?\")