| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/paren.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:26 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/paren.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'paren-showing nil "Showing (un)matching of parens and expressions." :prefix "show-paren-" :group 'paren-matching) (defvar show-paren-overlay nil) (defvar show-paren-overlay-1 nil) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\314\315\316\317\306\307& \210\300\320\321\322\304\323\306\307\324\325& \210\300\326\327\330\304\331\306\307\324\332& \210\333\334\327\335\306\307\306\336\324\337& \210\340\341\342\343\306\334%\210\344\345\346\341#\210\344\345\347\350\337!\206Y \351#\210\340\352\353\354\306\334%\210\344\355\346\352#\210\344\355\347\350\337!\206s \351#\207" [custom-declare-variable show-paren-style 'parenthesis "Style used when showing a matching paren.\nValid styles are `parenthesis' (meaning show the matching paren),\n`expression' (meaning show the entire expression enclosed by the paren) and\n`mixed' (meaning show the matching paren if it is visible, and the expression\notherwise)." :type (choice (const parenthesis) (const expression) (const mixed)) :group paren-showing show-paren-delay 0.125 "Time in seconds to delay before showing a matching paren.\nIf you change this without using customize while `show-paren-mode' is\nactive, you must toggle the mode off and on again for this to take effect." (number :tag "seconds") :initialize custom-initialize-default :set #[(sym val) "\204 \nL\207\300\303!\210 \nL\210\300\304!\207" [show-paren-mode sym val -1 1] 2] show-paren-priority 1000 "Priority of paren highlighting overlays." integer :version "21.1" show-paren-ring-bell-on-mismatch nil "If non-nil, beep if mismatched paren is detected." boolean "20.3" custom-declare-group paren-showing-faces "Group for faces of Show Paren mode." faces "22.1" custom-declare-face show-paren-match ((((class color) (background light)) :background "turquoise") (((class color) (background dark)) :background "steelblue3") (((background dark)) :background "grey50") (t :background "gray")) "Show Paren mode face used for a matching paren." put show-paren-match-face face-alias obsolete-face purecopy t show-paren-mismatch ((((class color)) (:foreground "white" :background "purple")) (t (:inverse-video t))) "Show Paren mode face used for a mismatching paren." show-paren-mismatch-face] 12) #@64 Non-nil turns on openparen highlighting when matching forward. (defvar show-paren-highlight-openparen t (#$ . 2802)) (defvar show-paren-idle-timer nil) #@266 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; either customize it (see the info node `Easy Customization') or call the function `show-paren-mode'. (custom-declare-variable 'show-paren-mode nil '(#$ . 2961) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'paren-showing :type 'boolean) #@392 Toggle visualization of matching parens (Show Paren mode). With a prefix argument ARG, enable Show Paren mode if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. Show Paren mode is a global minor mode. When 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) "\306 \307=\203 \n?\202 \310 !\311V \203 \312 !\210\313\314\315\316\317 \">\203. \320\f\314\321#\n\204U \203B \322 !p=\203B \323 !\210 \203U \322 !p=\203U \323 !\210\324\325\n\203_ \326\202` \327\"\210\330\331!\203\205 \332\302!\210\306 \203x \306 \232\203\205 \333\334\n\203\202 \335\202\203 \336\"\210)\337 \210\n\207" [#1=#:last-message arg show-paren-mode show-paren-idle-timer show-paren-delay show-paren-overlay current-message toggle prefix-numeric-value 0 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 called-interactively-p any customize-mark-as-set message "Show-Paren mode %sabled" "en" "dis" force-mode-line-update show-paren-overlay-1] 4 (#$ . 3397) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\207" [show-paren-mode-map add-minor-mode show-paren-mode nil boundp] 6) (defalias 'show-paren-function #[nil "\203\336`\306\307`S!!\310=\203 \311\202 \306\307`!!\312=\205 \313\211\205F \n\311U\203/ \313\2020 \314\315`\212\n\311U\203< \311u\210\316\317!\210`)Z\313\"U\320\211 \320 \203\276 \212\214$\203g e`$Z]d`$\\^}\210\320\321\322\217\210\f\250\203z \320\323\324\217\204z \320\f\250\203\275 \f ^\f ] % &\306\307&!!\325=\204\274 %Sf\307&!A=\206\272 &f\307%S!A=\206\272 \307%S!A\307&!A=?**\f\204\346 '\203\323 \326'!\203\323 \327'!\210(\205\333\326(!\205\333\327(!\202\333 \203\370 )\203\362 \330 \210\331 \202\373 \332 *\204 \n\313U\203 \f\250\203 (\203h\326(!\203h\327(!\210\202h\n\313U\203)`\202+`S\n\313U\2036`T\2027` + ,(\203M\333(,+p$\210\202W\334,+\320\335$(\336(\337-#\210\336(\340 #\210*\f\250\204r\327'!\210.\341=\204\206.\342=\203\212\343\f!\204\212`\202\213\f.\341=\204\237.\342=\203\243\343\f!\204\243\f\202\253\212\fb\210`\nZ) , +'\203\301\333',+p$\210\202\313\334,+\320\335$'*\336'\337-#\210\336'\340 #.\207'\203\350\327'!\210(\205\361\327(!\207" [show-paren-mode oldpos dir unescaped pos mismatch syntax-class syntax-after 5 -1 4 1 0 logand skip-syntax-backward "/\\" nil (byte-code "\302`\"\302\207" [dir pos scan-sexps] 3) ((error (byte-code "\302\211\302\207" [pos mismatch t] 2))) (byte-code "`\302 [\"=\207" [pos dir scan-sexps] 4) ((error)) 8 overlay-buffer delete-overlay beep show-paren-mismatch show-paren-match move-overlay make-overlay t overlay-put priority face 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 show-paren-highlight-openparen to from show-paren-priority show-paren-style] 6]) (provide 'paren)