Lines Matching +defs:ps +defs:print +defs:page
519 (defcustom cperl-info-page "perl"
520 "*Name of the info page containing perl docs.
521 Older version of this page was called `perl5', newer `perl'."
629 (defcustom cperl-ps-print-face-properties
642 "List given as an argument to `ps-extend-face-list' in `cperl-ps-print'."
1115 (if (fboundp 'ps-extend-face-list)
1116 (defmacro cperl-ps-extend-face-list (arg)
1117 `(ps-extend-face-list ,arg))
1118 (defmacro cperl-ps-extend-face-list (arg)
1119 `(error "This version of Emacs has no `ps-extend-face-list'")))
1304 ["CPerl pretty print (exprmntl)" cperl-ps-print
1305 (fboundp 'ps-extend-face-list)]
1561 foreach (@lines) {print; print}
1736 (setq paragraph-start (concat "^$\\|" page-delimiter))
4054 ;;; XXX Need to support print {a} <<B ???
4066 ;; print $foo <<EOF
4257 "\\(while\\|if\\|unless\\|until\\|and\\|or\\|not\\|xor\\|split\\|grep\\|map\\|print\\)\\>")))))
4908 ;; sub {BLK}, print {BLK} $data, but NOT `bless', `return', `tr'
4922 ;;; ${something()}, print {FH} $data.
5728 (cond ((featurep 'ps-print)
5742 "ps-print"
5880 ;; "no" "our" "package" "pop" "pos" "print" "printf" "push"
6069 (if (fboundp 'ps-print-buffer) (cperl-ps-print-init))
6310 (defun cperl-ps-print-init ()
6311 "Initialization of `ps-print' components for faces used in CPerl."
6312 (eval-after-load "ps-print"
6313 '(setq ps-bold-faces
6317 ps-bold-faces)
6318 ps-italic-faces
6321 ps-italic-faces)
6322 ps-underlined-faces
6325 ps-underlined-faces))))
6327 (defvar ps-print-face-extension-alist)
6329 (defun cperl-ps-print (&optional file)
6330 "Pretty-print in CPerl style.
6334 Style of printout regulated by the variable `cperl-ps-print-face-properties'."
6339 (concat (buffer-file-name) ".ps")
6343 (require 'ps-print) ; To get ps-print-face-extension-alist
6344 (let ((ps-print-color-p t)
6345 (ps-print-face-extension-alist ps-print-face-extension-alist))
6346 (cperl-ps-extend-face-list cperl-ps-print-face-properties)
6347 (ps-print-buffer-with-faces file)))
6349 ;;; (defun cperl-ps-print-init ()
6350 ;;; "Initialization of `ps-print' components for faces used in CPerl."
6352 ;;; (defvar ps-underlined-faces nil)
6353 ;;; (defvar ps-bold-faces nil)
6354 ;;; (defvar ps-italic-faces nil)
6355 ;;; (setq ps-bold-faces
6364 ;;; ps-bold-faces))
6365 ;;; (setq ps-italic-faces
6371 ;;; ps-italic-faces))
6372 ;;; (setq ps-underlined-faces
6378 ;;; ps-underlined-faces))
6379 ;;; (cons 'font-lock-type-face ps-underlined-faces))
6639 (Info-find-node cperl-info-page (if type "perlvar" "perlfunc"))
7327 root-packages root-functions ms many_ms same_name ps
7681 $% The current page number of the currently selected output channel.
7702 $, The output field separator for the print operator.
7703 $- The number of lines left on the page.
7710 $= The page length of the current output channel. Default is 60 lines.
7716 $\\ The output record separator for the print operator.
7718 $^ The name of the current top-of-page format.
7733 $| Auto-flush after write/print on current output channel? Default 0.
7948 print [FILEHANDLE] [(LIST)]