Lines Matching +refs:ps +refs:default +refs:background
38 ;; correct to make whistles enabled by default.)
92 (defvar font-lock-background-mode) ; not in Emacs
629 (defcustom cperl-ps-print-face-properties
642 "List given as an argument to `ps-extend-face-list' in `cperl-ps-print'."
649 (defvar cperl-dark-background
655 `((((class grayscale) (background light))
656 (:background "Gray90" :slant italic :underline t))
657 (((class grayscale) (background dark))
659 (((class color) (background light))
661 (((class color) (background dark))
668 `((((class grayscale) (background light))
669 (:background "Gray90" :weight bold))
670 (((class grayscale) (background dark))
672 (((class color) (background light))
673 (:foreground "Blue" :background "lightyellow2" :weight bold))
674 (((class color) (background dark))
675 (:foreground "yellow" :background ,cperl-dark-background :weight bold))
681 `((((class grayscale) (background light))
682 (:background "Gray90" :weight bold :slant italic))
683 (((class grayscale) (background dark))
685 (((class color) (background light))
686 (:foreground "Red" :background "lightyellow2" :weight bold :slant italic))
687 (((class color) (background dark))
688 (:foreground "Red" :background ,cperl-dark-background :weight bold :slant italic))
719 If your Emacs does not default to `cperl-mode' on Perl files, and you
914 *By default* CPerl tries to enable the most comfortable settings.
916 comfortable than a non-correctly working one, thus by default CPerl
1075 (defsubst cperl-val (symbol &optional default hairy)
1077 ((eq (symbol-value symbol) 'null) default)
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
1536 and POD directives (Disabled by default, see `cperl-electric-keywords'.)
1831 'font-lock-default-unfontify-region))
1890 ;; Fix for perldb - make default reasonable
2584 If `cperl-tab-always-indent' is non-nil (the default), always indent current
5560 (index-unsorted-alist '()) (i-s-f (default-value 'imenu-sort-function))
5650 (if (default-value 'imenu-sort-function)
5651 (sort index-alist (default-value 'imenu-sort-function))
5697 (default-value 'imenu-sort-function))
5728 (cond ((featurep 'ps-print)
5742 "ps-print"
6053 ;; font-lock-function-name-face 'default) nil t))
6069 (if (fboundp 'ps-print-buffer) (cperl-ps-print-init))
6090 (cdr (assq 'background-color ; if mono
6147 (defvar cperl-guessed-background nil
6217 ;; Here we try to guess background
6218 (let ((background
6219 (if (boundp 'font-lock-background-mode)
6220 font-lock-background-mode
6230 (defvar cperl-guessed-background
6234 background)
6240 (copy-face 'default 'font-lock-type-face)
6242 ((eq background 'light)
6247 ((eq background 'dark)
6253 (set-face-background 'font-lock-type-face "gray90"))))
6258 ((eq background 'light)
6263 ((eq background 'dark)
6271 ;;; ((eq background 'light)
6272 ;;; (set-face-background 'font-lock-other-emphasized-face
6278 ;;; ((eq background 'dark)
6279 ;;; (set-face-background 'font-lock-other-emphasized-face
6285 ;;; (t (set-face-background 'font-lock-other-emphasized-face "gray90"))))
6289 ;;; ((eq background 'light)
6290 ;;; (set-face-background 'font-lock-emphasized-face
6294 ;;; ((eq background 'dark)
6295 ;;; (set-face-background 'font-lock-emphasized-face
6301 ;;; (t (set-face-background 'font-lock-emphasized-face "gray90"))))
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))
6657 (funcall (or (and (boundp 'find-tag-default-function)
6658 find-tag-default-function)
6659 (get major-mode 'find-tag-default-function)
6660 ;; XEmacs 19.12 has `find-tag-default-hook'; it is
6661 ;; automatically used within `find-tag-default':
6662 'find-tag-default))))))
6670 (let* ((default (cperl-word-at-point))
6672 (format "Find doc for Perl function (default %s): "
6673 default))))
6675 default
6773 'imenu-default-create-index-function
7123 (setq file (if dir default-directory (buffer-file-name)))
7126 (setq topdir default-directory))
7327 root-packages root-functions ms many_ms same_name ps
7367 (if (default-value 'imenu-sort-function)
7369 (sort (cdr to) (default-value 'imenu-sort-function))))
7373 (if (default-value 'imenu-sort-function)
7375 (sort root-functions (default-value 'imenu-sort-function)))
7382 (if (default-value 'imenu-sort-function)
7384 (sort root-packages (default-value 'imenu-sort-function)))
7705 $/ The input record separator, newline by default.
7732 $_ The default input and pattern-searching space.
7777 -t Tests if filehandle (STDIN by default) is opened to a tty.
8601 (list (let* ((default-entry (cperl-word-at-point))
8604 (if (string= default-entry "")
8606 (format " (default %s)" default-entry))))))
8608 (if (string= default-entry "")
8610 default-entry)
8627 (Man-getpage-in-background word)))))
8669 (Man-getpage-in-background buffer-file-name)))))
8672 "Builds the entire background manpage and cleaning command."
8705 point and the limit of search (default to point and end of buffer).
8762 PROP is the text-property to search for; default to `in-pod'. Stop when
8839 start with default arguments, then refine the slowdown regions."
8865 goes backwards; default is -50. This function is not CPerl-specific; it
8946 "Extends the region to safe positions, then calls the default function.
8971 (font-lock-default-fontify-region beg end loudly))