Lines Matching +refs:ps +refs:prefix +refs:quote
126 (` (make-face (quote (, arg)))))
128 (` (defvar (, arg) (quote (, arg)) (, descr))))))
131 (or (cperl-is-face (quote (, arg)))
133 (or (boundp (quote (, arg))) ; We use unquoted variants too
134 (defvar (, arg) (quote (, arg)) (, descr))))))
175 :prefix "cperl-"
181 :prefix "cperl-"
186 :prefix "cperl-"
191 :prefix "cperl-"
197 :prefix "cperl-"
202 :prefix "cperl-"
207 :prefix "cperl-"
457 (defvar cperl-singly-quote-face cperl-xemacs-p)
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)]
1521 default.) You can always quote (with \\[quoted-insert]) the left
1739 (make-local-variable 'paragraph-ignore-fill-prefix)
1740 (setq paragraph-ignore-fill-prefix t)
2040 (up-list (- (prefix-numeric-value arg)))
2047 (self-insert-command (prefix-numeric-value arg))
2064 (self-insert-command (prefix-numeric-value arg))
2081 (self-insert-command (prefix-numeric-value arg)))
2082 (self-insert-command (prefix-numeric-value arg)))))))
2147 (self-insert-command (prefix-numeric-value arg))
2150 (prefix-numeric-value arg)
2155 (forward-char (- (prefix-numeric-value arg))))
2156 (self-insert-command (prefix-numeric-value arg)))))
2180 (self-insert-command (prefix-numeric-value arg))
2184 (prefix-numeric-value arg)
2190 (self-insert-command (prefix-numeric-value arg)))))
2485 (self-insert-command (prefix-numeric-value arg))
2520 (self-insert-command (prefix-numeric-value arg))
2536 (self-insert-command (prefix-numeric-value arg)))
2537 (self-insert-command (prefix-numeric-value arg)))))
4026 ;; but multiline quote on the same line as <<HERE confuses us...
4085 qtag (regexp-quote tag))
5432 ;; If has-comment, the appropriate fill-prefix for the comment.
5433 comment-fill-prefix
5445 comment-fill-prefix (buffer-substring (match-beginning 0)
5455 comment-fill-prefix
5499 (fill-prefix comment-fill-prefix))
5728 (cond ((featurep 'ps-print)
5742 "ps-print"
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))
6679 (cmd-desc (concat "^" (regexp-quote command) "[^a-zA-Z_0-9]")) ; "tr///"
6818 (regexp-quote
6824 (setq search (regexp-quote (char-to-string (following-char)))))
6972 (prev-pos 0) index index1 name package prefix)
6986 (setq prefix (buffer-substring (match-beginning 1) (match-end 1)))
6987 (setq prefix nil)))
6993 (if (and prefix (string-match (concat "^" prefix) name))
6994 (setq name (substring name (length prefix))))
7327 root-packages root-functions ms many_ms same_name ps
7651 (regexp-quote val)
8329 (setq deep (if deep (prefix-numeric-value deep) -1))
8399 (setq deep (if deep (prefix-numeric-value deep) -1))
8738 If invoked with prefix argument, will do HERE-DOCs instead.