;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:49:15 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/paren.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`paren.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\303\304\305\306\307\310\311\312&\210\301B\313\301!\204\305\302B\313\302!\204#\305\305\207" [current-load-list show-paren-overlay show-paren-overlay-1 custom-declare-group paren-showing nil "Showing (un)matching of parens and expressions." :prefix "show-paren-" :group paren-matching boundp] 8) #@276 *Style used when showing a matching paren. Valid styles are `parenthesis' (meaning show the matching paren), `expression' (meaning show the entire expression enclosed by the paren) and `mixed' (meaning show the matching paren if it is visible, and the expression otherwise). (custom-declare-variable 'show-paren-style ''parenthesis '(#$ . -930) :type '(choice (const parenthesis) (const expression) (const mixed)) :group 'paren-showing) #@60 *Time in seconds to delay before showing a matching paren. (custom-declare-variable 'show-paren-delay '(if (featurep 'lisp-float-type) (/ (float 1) (float 8)) 1) '(#$ . -1373) :type '(number :tag "seconds") :group 'paren-showing) #@43 *Priority of paren highlighting overlays. (custom-declare-variable 'show-paren-priority '1000 '(#$ . -1609) :type 'integer :group 'paren-showing :version "21.1") #@52 *If non-nil, beep if mismatched paren is detected. (custom-declare-variable 'show-paren-ring-bell-on-mismatch 'nil '(#$ . -1777) :type 'boolean :group 'paren-showing :version "20.3") (byte-code "\302\303\304\305\306\307\306\310&\210\302\311\312\313\306\307\306\310&\210\301B\314\301!\204\"\315\315\207" [current-load-list show-paren-idle-timer custom-declare-face show-paren-match-face ((((class color)) (:background "turquoise")) (t (:background "gray"))) "Show Paren mode face used for a matching paren." :group faces paren-showing show-paren-mismatch-face ((((class color)) (:foreground "white" :background "purple")) (t (:reverse-video t))) "Show Paren mode face used for a mismatching paren." boundp nil] 8) #@224 Non-nil if Show-Paren mode is enabled. See the command `show-paren-mode' for a description of this minor-mode. Setting this variable directly does not take effect; use either \[customize] or the function `show-paren-mode'. (custom-declare-variable 'show-paren-mode 'nil '(#$ . 2503) :set (lambda (symbol value) (funcall symbol (or value 0))) :initialize 'custom-initialize-default :group 'paren-showing :type 'boolean :require 'paren) #@309 Toggle Show Paren mode. With prefix ARG, turn Show Paren mode on if and only if ARG is positive. Returns the new status of Show Paren mode (non-nil means on). When Show Paren mode is enabled, any matching parenthesis is highlighted in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time. (defalias 'show-paren-mode #[(&optional arg) "\203\f\306!\307V\202 ?\310\301!\203\311\302!\210\202 \312\302!\210 ? \203+\313 !\210\314\315\316\317\320 \">\203=\321\f\315\322# \204d \203Q\323 !p=\203Q\324 !\210\203d\323!p=\203d\324!\210\325\326 \203n\327\202o\330\"\210t\203\202\331\332 \203\333\202\200\334\"\210\335 \210 \207" [arg show-paren-mode blink-matching-paren-on-screen show-paren-idle-timer show-paren-delay show-paren-overlay prefix-numeric-value 0 local-variable-p make-local-variable kill-local-variable cancel-timer nil t mapcar #[(buffer) "rq\210 )\207" [buffer show-paren-mode] 1] buffer-list run-with-idle-timer show-paren-function overlay-buffer delete-overlay run-hooks show-paren-mode-hook show-paren-mode-on-hook show-paren-mode-off-hook message "Show-Paren mode %sabled" "en" "dis" force-mode-line-update show-paren-overlay-1] 4 (#$ . 2945) nil]) #@52 Hook run at the end of function `show-paren-mode'. (custom-declare-variable 'show-paren-mode-hook 'nil '(#$ . 4161) :group 'paren-showing :type 'hook) (byte-code "\303\301\304\305\306!\205 \306J#\210\203 \203\n\204\307\310\"\210\304\207" [load-file-name show-paren-mode purify-flag add-minor-mode nil boundp show-paren-mode-map eval-after-load (show-paren-mode 1)] 5) (defalias 'show-paren-function #[nil "\203{\306\211\211\211`hz\307=\203\310\202#gz\311=\203#\312\f\203f\212\214\203<e`Z]d`\\^}\210\306\313\314\217\210 \250\203e ^ ]\211fz\315U\204dSf\316f!=?** \204\216\203{\317!\203{\320!\210 \205y\317 !\205y\320 !\202y \203\237!\203\232\321 \210\322\202\241\323\f\312U\203\300 \250\203\300 \203\317 !\203\320 !\210\202\f\312U\203\312`\202\315\324\310!\f\312U\203\331\324\312!\202\332`\"# \203\360\325 #\"p$\210\202\370\326#\"\" \327 \330$#\210\327 \302\n#\210* \250\204\320!\210%\331=\204&%\332=\203*\333 !\204*`\202+ %\331=\204?%\332=\203C\333 !\204C \202L\212 b\210\324\f[!)#\"\203b\325#\"p$\210\202j\326#\"\"*\327\330$#\210\327\302\n#-\207\203\205\320!\210 \205\216\320 !\207" [show-paren-mode oldpos face mismatch dir pos nil 41 -1 40 1 (byte-code "\302`\"\302\207" [dir pos scan-sexps] 3) ((error (byte-code "\302\302\302\207" [pos mismatch t] 1))) 36 matching-paren overlay-buffer delete-overlay beep show-paren-mismatch-face show-paren-match-face forward-point move-overlay make-overlay overlay-put priority expression mixed pos-visible-in-window-p blink-matching-paren-distance end beg show-paren-overlay show-paren-overlay-1 show-paren-ring-bell-on-mismatch to from show-paren-priority show-paren-style] 6]) (provide 'paren)