;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Wed Aug 17 18:34:34 1994 ;;; from file /home/fsf/rms/e19/lisp/paren.el ;;; emacs version 19.25.93.1. ;;; 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 "`/home/fsf/rms/e19/lisp/paren.el' was compiled for Emacs 19")) (byte-code "!!!‡" [boundp show-paren-overlay nil show-paren-overlay-1 show-paren-mismatch-face] 2) (defvar show-paren-face (quote region) "\ *Name of face to use for showing the matching paren.") (byte-code "\" \"\"!" [defalias show-paren-command-hook #[nil "J ?J\"Jʼn` \n hz=-\n7gz=7\n\nQe`Z]d`\\^}ҏ  ^ ]fzU~Sff!=? *  !!\"\"!* (\nU\"\"`\n\\`p$ \nZ \"\"\"#\"\"!\"!(( \nZ p$ \nZ \"((#I(9(!9(!\"I\"!I\"!-" [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 internal-find-face paren-mismatch make-face 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] window-system nil blink-paren-function add-hook post-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)