Lines Matching +defs:ps +defs:next +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'")))
1155 (cperl-define-key "\C-c\C-v" 'cperl-next-interpolated-REx)
1156 (cperl-define-key "\C-c\C-x" 'cperl-next-interpolated-REx-0)
1157 (cperl-define-key "\C-c\C-y" 'cperl-next-interpolated-REx-1)
1247 ["Find next interpolated" cperl-next-interpolated-REx
1248 (next-single-property-change (point-min) 'REx-interpolated)]
1249 ["Find next interpolated (no //o)"
1250 cperl-next-interpolated-REx-0
1253 ["Find next interpolated (neither //o nor whole-REx)"
1254 cperl-next-interpolated-REx-1
1266 ["Next error" next-error (get-buffer "*compilation*")]
1283 (next-single-property-change (point-min) 'in-pod nil (point-max)))
1289 (next-single-property-change (point-min) 'here-doc-group nil (point-max)))
1304 ["CPerl pretty print (exprmntl)" cperl-ps-print
1305 (fboundp 'ps-extend-face-list)]
1558 return. It places you in the next line with proper indentation, or if
1736 (setq paragraph-start (concat "^$\\|" page-delimiter))
2695 (beginning-of-line 2))) ; Go to the next line.
2925 (or (next-single-property-change (point) 'in-pod)
3375 (setq e (next-single-property-change (point) 'syntax-type nil (point-max))))
3660 end (next-single-property-change end 'syntax-type nil (point-max)))
5728 (cond ((featurep 'ps-print)
5742 "ps-print"
5795 "foreach" "continue" "exit" "die" "last" "goto" "next"
5879 ;; "grep" "if" "keys" "last" "local" "map" "my" "next"
5947 '("\\<\\(continue\\|next\\|last\\|redo\\|goto\\)\\>[ \t]+\\([a-zA-Z0-9_:]+\\)" ; labels as targets
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)
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"))
7235 ;; Moves to beginning of the next line:
7327 root-packages root-functions ms many_ms same_name ps
7479 'cperl-next-bad-style
7500 (defun cperl-next-bad-style ()
7681 $% The current page number of the currently selected output channel.
7703 $- The number of lines left on the page.
7710 $= The page length of the current output channel. Default is 60 lines.
7718 $^ The name of the current top-of-page format.
7818 \\l Lowercase the next character. See also \\L and \\u, lcfirst.
7822 \\u Upcase the next character. See also \\U and \\l, ucfirst.
7852 continue of { block } continue { block }. Is executed after `next' or at end.
7939 next [LABEL]
8689 (defun cperl-next-interpolated-REx-1 ()
8690 "Move point to next REx which has interpolated parts without //o.
8695 (cperl-next-interpolated-REx 1))
8697 (defun cperl-next-interpolated-REx-0 ()
8698 "Move point to next REx which has interpolated parts without //o."
8700 (cperl-next-interpolated-REx 0))
8702 (defun cperl-next-interpolated-REx (&optional skip beg limit)
8703 "Move point to next REx which has interpolated parts.
8718 (setq beg (next-single-property-change beg 'syntax-type nil limit)))
8773 (setq posend (next-single-property-change pos prop nil end))
8789 (e (next-single-property-change pos 'syntax-type)))
8834 doing next incremental fontification, LIM is the maximal number of
8968 (setq end (next-single-property-change end 'syntax-type nil (point-max)))
9013 posend (next-single-property-change pos 'cperl-postpone nil end))
9027 (setq posend (next-single-property-change pos 'cperl-postpone))