;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:48:04 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/paren.el ;;; emacs version 19.28.90.26. ;;; 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"))) (error "`/gd/gnu/emacs/19.0/lisp/paren.el' was compiled for Emacs 19")) (byte-code "! B! B!  B‡" [boundp show-paren-overlay nil current-load-list show-paren-overlay-1 show-paren-mismatch-face] 2) #@54 *Name of face to use for showing the matching paren. (defvar show-paren-face (quote region) (#$ . -630)) (defalias 'show-paren-command-hook #[nil "I ?I\"Iʼn` \n hz=-\n7gz=7\n\nQe`Z]d`\\^}ҏ  ^ ]fzU~Sff!=? *  !\"\"\"!* '\nU##`\n\\`p$ \nZ \"#####!#!)) \nZ p$ \nZ \"))#H)8)!8)!#H#!H#!-" [window-system executing-kbd-macro sit-for 0 100 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 matching-paren show-paren-mismatch-face x-display-color-p make-face 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 " \"\"!" [window-system nil blink-paren-function add-hook post-command-hook show-paren-command-hook window-setup-hook #[nil "\n\"" [window-system nil blink-paren-function add-hook post-command-hook show-paren-command-hook] 3] provide paren] 3)