;ELC ;;; Compiled by rms@psilocin.gnu.org on Sun May 3 21:23:52 1998 ;;; from file /gd/gnu/emacs/lisp/paren.el ;;; in Emacs version 20.2.92.10 ;;; with bytecomp version 2.41 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (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 "\305\306\307\310\311 \312&\210\313\302!\204\307\302 B\313\304!\204\307\304 B\307\207" [:prefix :group show-paren-overlay current-load-list show-paren-overlay-1 custom-declare-group paren-showing nil "Showing (un)matching of parens and expressions." "show-paren-" paren-matching boundp] 8) #@221 Toggle Show Paren mode. When Show Paren mode is enabled, any matching parenthesis is highlighted after `show-paren-delay' seconds of Emacs idle time. You must modify via \[customize] for this variable to have an effect. (custom-declare-variable 'show-paren-mode 'nil '(#$ . 838) :set (lambda (symbol value) (show-paren-mode (or value 0))) :initialize 'custom-initialize-default :type 'boolean :group 'paren-showing :require 'paren) #@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 '(#$ . -1277) :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) '(#$ . -1721) :type '(number :tag "seconds") :group 'paren-showing) #@52 *If non-nil, beep if mismatched paren is detected. (custom-declare-variable 'show-paren-ring-bell-on-mismatch 'nil '(#$ . -1957) :type 'boolean :group 'paren-showing :version "20.3") (byte-code "\303\304\305\306\307\310&\210\303\311\312\313\307\310&\210\314\301!\204\315\301\nB\315\207" [:group show-paren-idle-timer current-load-list custom-declare-face show-paren-match-face ((((class color)) (:background "turquoise")) (t (:background "gray"))) "Show Paren mode face used for a matching paren." 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) #@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) "\205R \203\306 !\307V\202\n?\211? \203\310 !\210 \203,\311\312\313#\202N\203=\314!\203=\315!\210\203N\314!\203N\315!\210 \211)\207" [window-system arg show-paren-mode on-p blink-matching-paren-on-screen show-paren-idle-timer prefix-numeric-value 0 cancel-timer run-with-idle-timer t show-paren-function overlay-buffer delete-overlay show-paren-delay show-paren-overlay show-paren-overlay-1] 5 (#$ . 2671) "P"]) (defalias 'show-paren-function #[nil "\205j\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\204d\316!\317f!=?** \204\216\203{\320!\203{\321!\210 \205i\320 !\205i\321 !\202i \203\237!\203\232\322 \210\323\202\241\324\f\312U\203\300 \250\203\300 \203\320 !\203\321 !\210\202\f\312U\203\312`\202\315\325\310!\f\312U\203\331\325\312!\202\332`\"# \203\360\326 #\"p$\210\202\370\327#\"\" \330 \302\n#\210* \250\204\n\321!\210$\331=\204$\332=\203\"\333 !\204\"`\202# $\331=\2047$\332=\203;\333 !\204; \202D\212 b\210\325\f[!)#\"\203Z\326#\"p$\210\202b\327#\"\"*\330\302\n#-\207" [window-system 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 char-before matching-paren overlay-buffer delete-overlay beep show-paren-mismatch-face show-paren-match-face forward-point move-overlay make-overlay overlay-put 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-style] 6]) (byte-code "\301\302!\210\203\f\300\303!\210\301\207" [show-paren-mode provide paren t] 2)