;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:46:40 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/paren.el ;;; emacs version 19.34. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (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 "! B! B!  B!- B!: B‡" [boundp show-paren-overlay nil current-load-list show-paren-overlay-1 show-paren-mode show-paren-idle-timer show-paren-mismatch-face] 2) #@62 *Time in seconds to delay before showing the matching paren. (defvar show-paren-delay (byte-code "!‡Ç" [featurep lisp-float-type 0.125 1] 2) (#$ . -700)) #@58 *Name of the face to use for showing the matching paren. (defvar show-paren-face (quote region) (#$ . -867)) #@135 Perform point arithmatic. Return position of AMOUNT char away from point. If optional argumetn POINT is non-nil, relative to POINT. (defalias 'paren-point+ #[(amount &optional point) "b u`)" [point amount] 1 (#$ . 983)]) #@287 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 after `show-paren-delay' seconds of Emacs idle time. (defalias 'show-paren-mode #[(&optional arg) "![\n\n!V ??$!4 #VE!E!V!V!)" [fboundp make-face arg prefix-numeric-value 0 show-paren-mode on-p blink-matching-paren-on-screen show-paren-idle-timer cancel-timer run-with-idle-timer show-paren-delay t show-paren-function show-paren-overlay overlay-buffer delete-overlay show-paren-overlay-1] 5 (#$ . 1222) "P"]) (defalias 'show-paren-function #[nil "!@‰` hz= *gz=* De` Z]d` \\^}Ϗr ^ ]fzUq\"ff!=?* \"!\"\"\"!*U\"\"!`p$!`\"\"\"\f#\"\"!\"!(([\"p$[\"\"((\f#?(/(!/(!\"?\"!?\"!-" [fboundp make-face nil show-paren-face face oldpos mismatch dir pos 41 -1 40 1 blink-matching-paren-distance (byte-code "` \"" [scan-sexps dir pos] 3) ((error)) end beg 36 paren-point+ matching-paren show-paren-mismatch-face x-display-color-p add-to-list facemenu-unlisted-faces paren-mismatch face-nontrivial-p t set-face-background "purple" set-face-foreground "white" message "Paren mismatch" show-paren-overlay-1 move-overlay make-overlay overlay-put overlay-buffer delete-overlay show-paren-overlay] 6]) (byte-code "\"!!" [add-hook window-setup-hook (lambda nil (show-paren-mode t)) show-paren-mode t provide paren] 3)