Lines Matching +defs:next +defs:line +defs:internal
407 ;; The variable `ps-header-line-pad' determines the portion of a header title
408 ;; line height to insert between the header frame and the text it contains,
409 ;; both in the vertical and horizontal directions: .5 means half a line.
466 ;; `ps-footer-font-size', `ps-footer-line-pad', `ps-footer-lines',
712 ;; The variable `ps-line-number' specifies whether to number each line;
713 ;; non-nil means do so. The default is nil (don't number each line).
715 ;; The variable `ps-line-number-color' specifies the color for line number.
719 ;; The variable `ps-line-number-font' specifies the font for line number.
722 ;; The variable `ps-line-number-font-size' specifies the font size in points
723 ;; for line number. See `ps-font-size' for documentation. The default is 6.
725 ;; The variable `ps-line-number-step' specifies the interval that line number
726 ;; is printed. For example, if `ps-line-number-step' is set to 2, the printing
729 ;; 1 one line
730 ;; one line
731 ;; 3 one line
732 ;; one line
733 ;; 5 one line
734 ;; one line
739 ;; integer an integer that specifies the interval that line number is
743 ;; `zebra' specifies that only the line number of the first line in a
747 ;; The default value is 1, so each line number is printed.
749 ;; The variable `ps-line-number-start' specifies the starting point in the
750 ;; interval given by `ps-line-number-step'. For example, if
751 ;; `ps-line-number-step' is set to 3 and `ps-line-number-start' is set to 3,
754 ;; one line
755 ;; one line
756 ;; 3 one line
757 ;; one line
758 ;; one line
759 ;; 6 one line
760 ;; one line
761 ;; one line
762 ;; 9 one line
763 ;; one line
766 ;; The values for `ps-line-number-start':
768 ;; * If `ps-line-number-step' is an integer, must be between 1 and the value
769 ;; of `ps-line-number-step' inclusive.
771 ;; * If `ps-line-number-step' is set to `zebra', must be between 1 and the
774 ;; The default value is 1, so the line number of the first line of each
811 ;; on next page. Visually, valid values are (the character `+' at right of
812 ;; each column indicates that a line is printed):
880 ;; size (usually 10) and the corresponding line height, width of a space and
901 ;; points, for the top line of text in the header (similar to `ps-font-size').
903 ;; The variable `ps-line-spacing' determines the line spacing, in points, for
905 ;; default value is 0 (zero = no line spacing).
911 ;; To get all lines with some spacing set both `ps-line-spacing' and
916 ;; empty line or a line containing only spaces and tabs.
938 ;; correctly place line and page breaks.
945 ;; - open this file and find the line:
948 ;; - replace in this line `Courier' by the new font (say `Helvetica') to get
949 ;; the line:
954 ;; For Helvetica 10 point, the line height is 11.56, the space width is 2.78
966 ;; (line-height . 11.56)
992 ;; (line-height . 10.55)
1016 ;; (line-height . 10.55))
1022 ;; by uncommenting the line:
1056 ;; ps-print keeps internal lists of which fonts are bold and which are italic;
1064 ;; the lists will be rebuilt the next time ps-print is invoked. If you need
1100 ;; strikeout - like underline, but the line is in middle of text.
1101 ;; overline - like underline, but the line is over the text.
1169 ;; 8. Print buffer text (with faces, if specified) and line number
1183 ;; Then, the command `ps-line-lengths' will give you the correspondence between
1184 ;; a line length (number of characters) and the maximum font size which doesn't
1185 ;; wrap such a line with the current ps-print setup.
1192 ;; NOTE: line folding is not taken into account in this process and could
1225 ;; `ps-line-number-color', `ps-print-footer', `ps-footer-offset',
1227 ;; `ps-footer-font-size', `ps-footer-line-pad', `ps-footer-lines',
1232 ;; `ps-line-spacing', `ps-paragraph-spacing', `ps-paragraph-regexp',
1236 ;; `ps-line-number-font', `ps-line-number-font-size' and
1246 ;; `ps-line-number-step', `ps-line-number-start',
1336 ;; Fixed-pitch fonts work better for line folding, but are not required.
1361 ;; Thanks to Toni Ronkko <tronkko@hytti.uku.fi> for line and paragraph spacing,
1366 ;; Thanks to Corinne Ilvedson <cilvedson@draper.com> for line number font size
1379 ;; - upside-down, line number step, line number start and zebra stripe
1390 ;; Thanks to Matthew O Persico <Matthew.Persico@lazard.com> for line number on
1403 ;; header per page over the columns and correct line numbers when printing a
1464 (or (fboundp 'line-beginning-position)
1465 (defun line-beginning-position (&optional n)
1467 (and n (/= n 1) (forward-line (1- n)))
1468 (beginning-of-line)
1494 (defalias 'ps-e-next-overlay-change 'next-overlay-change)
2132 "*Specify how zebra stripes continue on next page.
2135 that a line is printed):
2175 (defcustom ps-line-number nil
2176 "*Non-nil means print line number."
2181 (defcustom ps-line-number-step 1
2182 "*Specify the interval that line number is printed.
2184 For example, `ps-line-number-step' is set to 2, the printing will look like:
2186 1 one line
2187 one line
2188 3 one line
2189 one line
2190 5 one line
2191 one line
2196 integer an integer that specifies the interval that line number is
2200 `zebra' specifies that only the line number of the first line in a
2211 (defcustom ps-line-number-start 1
2212 "*Specify the starting point in the interval given by `ps-line-number-step'.
2214 For example, if `ps-line-number-step' is set to 3 and `ps-line-number-start' is
2217 one line
2218 one line
2219 3 one line
2220 one line
2221 one line
2222 6 one line
2223 one line
2224 one line
2225 9 one line
2226 one line
2229 The values for `ps-line-number-start':
2231 * If `ps-line-number-step' is an integer, must be between 1 and the value of
2232 `ps-line-number-step' inclusive.
2234 * If `ps-line-number-step' is set to `zebra', must be between 1 and the
2236 wish that line number be relative to zebra stripes."
2398 (defcustom ps-header-line-pad 0.15
2399 "*Portion of a header title line height to insert.
2412 (defcustom ps-footer-line-pad 0.15
2413 "*Portion of a footer title line height to insert.
2685 blank pages as needed between print jobs so that the next buffer printed will
2715 (line-height . 10.55)
2724 (line-height . 11.56)
2733 (line-height . 11.0)
2742 (line-height . 12.1)
2751 (line-height . 11.56)
2760 (line-height . 12.15)
2763 ;; got no bold for the next ones
2768 (line-height . 11.77)
2775 (line-height . 12.72)
2782 (line-height . 11.77)
2789 (line-height . 11.79)
2792 ;; got no bold and no italic for the next ones
2796 (line-height . 13.03)
2802 (line-height . 9.63)
2808 (line-height . 11.45)
2816 (line-height . 11.45)
2822 reference size, line height, space width, average character width.
2827 character) from the line
2829 to get the line
2854 (const :format "" line-height)
2900 "*Font size, in points, for the top line of text in header, in PostScript."
2927 (defcustom ps-line-number-color "black"
2928 "*Specify color for line-number, when generating PostScript."
2941 (defcustom ps-line-number-font "Times-Italic"
2942 "*Font for line-number, when generating PostScript."
2948 (defcustom ps-line-number-font-size 6
2949 "*Font size, in points, for line number, when generating PostScript."
3185 "*The items to display (each on a line) on the left part of the page header.
3210 "*The items to display (each on a line) on the right part of the page header.
3240 "*The items to display (each on a line) on the left part of the page footer.
3265 "*The items to display (each on a line) on the right part of the page footer.
3300 "*Contains the header line identifying the output as PostScript.
3302 require slightly different versions of this line."
3310 ps-print sets this value to nil after it builds its internal reference lists of
3312 to rebuild the lists the next time you invoke one of the ...-with-faces
3325 If this variable is non-nil, ps-print will rebuild its internal reference lists
3355 (defcustom ps-line-spacing 0
3356 "*Specify line spacing, in points, for ordinary text.
3360 To get all lines with some spacing set both `ps-line-spacing' and
3374 See also `ps-line-spacing' and `ps-paragraph-regexp'.
3376 To get all lines with some spacing set both `ps-line-spacing' and
3558 (defun ps-line-lengths ()
3559 "Display the correspondence between a line length and a font size.
3563 (ps-line-lengths-internal))
3591 ";; internal vars"
3615 '(23 . ps-line-number)
3616 '(23 . ps-line-number-step)
3617 '(23 . ps-line-number-start)
3647 '(30 . ps-header-line-pad)
3653 '(30 . ps-footer-line-pad)
3679 '(26 . ps-line-number-color)
3680 '(26 . ps-line-number-font)
3681 '(26 . ps-line-number-font-size)
3682 '(26 . ps-line-spacing)
3993 (defvar ps-showline-count 1) ; line number counter
4053 (defvar ps-font-size-internal nil)
4054 (defvar ps-header-font-size-internal nil)
4055 (defvar ps-header-title-font-size-internal nil)
4056 (defvar ps-footer-font-size-internal nil)
4057 (defvar ps-line-spacing-internal nil)
4058 (defvar ps-paragraph-spacing-internal nil)
4163 underline - put a line under text.
4164 strikeout - like underline, but the line is in middle of text.
4165 overline - like underline, but the line is over the text.
4305 It is a cons, the car of which is the line number where the region begins, and
4307 use this information to print the original line number (and not the number of
4348 (defsubst ps-line-height (font-sym)
4349 "The height of a line, for generating PostScript.
4353 The line-height is *not* the same as the point size of the font."
4354 (get font-sym 'line-height))
4356 (defsubst ps-title-line-height (font-sym)
4357 "The height of a `title' line, for generating PostScript.
4361 The title-line-height is *not* the same as the point size of the font."
4362 (get font-sym 'title-line-height))
4376 (defun ps-line-lengths-internal ()
4377 "Display the correspondence between a line length and a font size.
4380 (let* ((ps-font-size-internal
4381 (or ps-font-size-internal
4383 (ps-header-font-size-internal
4384 (or ps-header-font-size-internal
4386 (ps-header-title-font-size-internal
4387 (or ps-header-title-font-size-internal
4390 (ifs ps-font-size-internal) ; initial font size
4397 nb-cpl-max ; maximum nb of characters per line
4400 nb-cpl-min ; minimum nb of characters per line
4403 nb-cpl ; current nb of characters per line
4414 "\nnb char per line / font size\n")
4427 (let* ((ps-font-size-internal
4428 (or ps-font-size-internal
4430 (ps-header-font-size-internal
4431 (or ps-header-font-size-internal
4433 (ps-header-title-font-size-internal
4434 (or ps-header-title-font-size-internal
4436 (ps-line-spacing-internal
4437 (or ps-line-spacing-internal
4438 (ps-get-size ps-line-spacing "line spacing")))
4440 (ils ps-line-spacing-internal) ; initial line spacing
4441 (ifs ps-font-size-internal) ; initial font size
4442 (ilh (ps-line-height 'ps-font-for-text)) ; initial line height
4447 lh-min ; minimum line height
4451 lh-max ; maximum line height
4455 lh ; current line height
4495 (put sym 'line-height (ps-size-scale 'line-height))
4496 (put sym 'title-line-height
4497 (/ (* (ps-lookup 'line-height) title-font-size) size)))))
4511 ps-font-size-internal ps-font-size-internal)
4513 ps-header-font-size-internal
4514 ps-header-title-font-size-internal)
4516 ps-footer-font-size-internal ps-footer-font-size-internal)
4567 (setq ps-header-pad (* ps-header-line-pad
4568 (ps-title-line-height 'ps-font-for-header))
4572 (ps-title-line-height 'ps-font-for-header)
4573 (* (ps-line-height 'ps-font-for-header)
4590 (ps-title-line-height 'ps-font-for-header)
4591 (* (ps-line-height 'ps-font-for-header)
4598 (setq ps-footer-pad (* ps-footer-line-pad
4599 (ps-title-line-height 'ps-font-for-footer))
4603 (* (ps-line-height 'ps-font-for-footer)
4620 (* (ps-line-height 'ps-font-for-footer)
4626 (let* ((line-height (ps-line-height 'ps-font-for-text))
4627 (zebra (* (+ line-height ps-line-spacing-internal)
4630 line-height))
4636 line-spacing == %s
4641 (ps-line-height 'ps-font-for-text)
4642 ps-line-spacing-internal
4856 (defun ps-generate-header-line (fonttag &optional content)
4885 (ps-generate-header-line fonttag0 (car contents))
4888 (ps-generate-header-line fonttag1 (car contents))
5466 XCOL YCOL are the relative position for the next column.
5467 XLIN YLIN are the relative position for the beginning of next line.
5469 END is the number of repetions for internal loop and also the number of pages in
5599 (let ((line-height (ps-line-height 'ps-font-for-text)))
5600 (ps-output (format "/LineSpacing %s def\n" ps-line-spacing-internal)
5602 ps-paragraph-spacing-internal)
5603 (format "/LineHeight %s def\n" line-height)
5605 (let ((height (+ line-height
5606 ps-line-spacing-internal)))
5613 (ps-output-boolean "PrintLineNumber " ps-line-number)
5614 (ps-output-boolean "SyncLineZebra " (not (integerp ps-line-number-step)))
5620 (if (integerp ps-line-number-step)
5621 ps-line-number-step
5623 (format "/PrintLineStart %d def\n" ps-line-number-start)
5625 (ps-format-color ps-line-number-color 0.0)
5682 ;; Header/line number fonts
5684 ps-header-title-font-size-internal
5687 ps-header-font-size-internal
5690 (ps-get-font-size 'ps-line-number-font-size)
5691 ps-line-number-font)
5693 ps-footer-font-size-internal
5716 ps-font-size-internal
5875 ;; line number
5876 (and (integerp ps-line-number-step)
5877 (<= ps-line-number-step 0)
5878 (setq ps-line-number-step 1))
5880 ps-line-number-start (max 1 (min ps-line-number-start
5881 (if (integerp ps-line-number-step)
5882 ps-line-number-step
5900 ps-line-spacing-internal (ps-get-size ps-line-spacing
5901 "line spacing")
5902 ps-paragraph-spacing-internal (ps-get-size ps-paragraph-spacing
5904 ps-font-size-internal (ps-get-font-size 'ps-font-size)
5905 ps-header-font-size-internal (ps-get-font-size 'ps-header-font-size)
5906 ps-header-title-font-size-internal
5908 ps-footer-font-size-internal (ps-get-font-size 'ps-footer-font-size)
5971 (defsubst ps-next-page ()
6000 ;; set total line and page number when printing has finished
6063 (defsubst ps-next-line ()
6068 (lh (+ (ps-line-height 'ps-font-for-text)
6070 ps-paragraph-spacing-internal
6071 ps-line-spacing-internal))))
6073 (ps-next-page)
6078 (defun ps-continue-line ()
6080 (let ((lh (+ (ps-line-height 'ps-font-for-text) ps-line-spacing-internal)))
6082 (ps-next-page)
6129 (ps-continue-line))))
6241 (let ((linestart (line-beginning-position)))
6252 ;; \n\ftext\n ==>> next page, but keep line counting!!
6255 (ps-next-page))
6257 ;; \ntext\n ==>> next line
6258 (ps-next-line)))
6265 ;; \f\n ==>> skip \n, but keep line counting!!
6268 (ps-next-page)))
6323 (ps-continue-line))
6582 (setq property-change (next-property-change from nil to)))
6585 (setq overlay-change (min (ps-e-next-overlay-change from)
6879 ;; Look in an article or mail message for the Subject: line. To be
6888 ;; Look in an article or mail message for the From: line. Sorta-kinda
6957 ;; Look in an article or mail message for the Subject: line. To be
6966 ;; Look in an article or mail message for the Subject: line. To be
7022 ps-header-line-pad .15