Gecko [ 122.154.134.11 ]

Name	Size	Permission
advice.elc	60.71 KB	-rw-r--r--
assoc.elc	4.37 KB	-rw-r--r--
authors.elc	27.41 KB	-rw-r--r--
autoload.elc	15.7 KB	-rw-r--r--
avl-tree.elc	15.92 KB	-rw-r--r--
backquote.elc	4.46 KB	-rw-r--r--
benchmark.elc	3.33 KB	-rw-r--r--
bindat.elc	10.84 KB	-rw-r--r--
byte-opt.elc	34.22 KB	-rw-r--r--
byte-run.elc	6.65 KB	-rw-r--r--
bytecomp.elc	124.99 KB	-rw-r--r--
check-declare.elc	8.77 KB	-rw-r--r--
checkdoc.elc	65.08 KB	-rw-r--r--
cl-compat.elc	4.28 KB	-rw-r--r--
cl-extra.elc	21.48 KB	-rw-r--r--
cl-indent.elc	13.98 KB	-rw-r--r--
cl-loaddefs.el	39.57 KB	-rw-r--r--
cl-macs.elc	99.36 KB	-rw-r--r--
cl-seq.elc	43.98 KB	-rw-r--r--
cl-specs.el	13.87 KB	-rw-r--r--
cl.elc	20.74 KB	-rw-r--r--
copyright.elc	8.64 KB	-rw-r--r--
crm.elc	7.94 KB	-rw-r--r--
cust-print.elc	12.77 KB	-rw-r--r--
debug.elc	24.86 KB	-rw-r--r--
derived.elc	10.72 KB	-rw-r--r--
disass.elc	5.09 KB	-rw-r--r--
easy-mmode.elc	14.85 KB	-rw-r--r--
easymenu.elc	20.15 KB	-rw-r--r--
edebug.elc	100.82 KB	-rw-r--r--
eldoc.elc	15.31 KB	-rw-r--r--
elint.elc	19.76 KB	-rw-r--r--
elp.elc	12.78 KB	-rw-r--r--
ewoc.elc	28.62 KB	-rw-r--r--
find-func.elc	17.26 KB	-rw-r--r--
find-gc.elc	3.74 KB	-rw-r--r--
float-sup.elc	1.39 KB	-rw-r--r--
generic.elc	6.55 KB	-rw-r--r--
gulp.elc	4.82 KB	-rw-r--r--
helper.elc	3.84 KB	-rw-r--r--
levents.elc	10.29 KB	-rw-r--r--
lisp-mnt.elc	21.87 KB	-rw-r--r--
lisp-mode.elc	37.14 KB	-rw-r--r--
lisp.elc	21.61 KB	-rw-r--r--
lmenu.elc	11.67 KB	-rw-r--r--
lucid.elc	6.22 KB	-rw-r--r--
macroexp.elc	4.45 KB	-rw-r--r--
map-ynp.elc	6.3 KB	-rw-r--r--
pp.elc	5.09 KB	-rw-r--r--
re-builder.elc	22.36 KB	-rw-r--r--
regexp-opt.elc	4.43 KB	-rw-r--r--
regi.elc	6.15 KB	-rw-r--r--
ring.elc	6.41 KB	-rw-r--r--
rx.elc	26.61 KB	-rw-r--r--
shadow.elc	5.63 KB	-rw-r--r--
sregex.elc	12.45 KB	-rw-r--r--
syntax.elc	5.18 KB	-rw-r--r--
tcover-ses.elc	14.68 KB	-rw-r--r--
tcover-unsafep.elc	4.09 KB	-rw-r--r--
testcover.elc	13.41 KB	-rw-r--r--
timer.elc	22.73 KB	-rw-r--r--
tq.elc	3.94 KB	-rw-r--r--
trace.elc	5.28 KB	-rw-r--r--
unsafep.elc	5.01 KB	-rw-r--r--
warnings.elc	9.61 KB	-rw-r--r--

Code Editor : re-builder.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:56 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emacs-lisp/re-builder.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(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 "`re-builder.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\204\n�\302\303!\210\304\305\306\307\310\311\312\313&\207" [fboundp make-overlay require overlay custom-declare-group re-builder nil "Options for the RE Builder." :group lisp :prefix "reb-"] 8)
#@64 Seconds to blink cursor for next/previous match in RE Builder.
(custom-declare-variable 'reb-blink-delay '0.5 '(#$ . 838) :group 're-builder :type 'number)
#@43 Hooks to run on entering RE Builder mode.
(custom-declare-variable 'reb-mode-hook 'nil '(#$ . 1000) :group 're-builder :type 'hook)
#@98 Syntax for the REs in the RE Builder.
Can either be `read', `string', `sregex', `lisp-re', `rx'.
(custom-declare-variable 'reb-re-syntax ''read '(#$ . 1138) :group 're-builder :type '(choice (const :tag "Read syntax" read) (const :tag "String syntax" string) (const :tag "`sregex' syntax" sregex) (const :tag "`lisp-re' syntax" lisp-re) (const :tag "`rx' syntax" rx)))
#@113 Positive integer limiting the matches for RE Builder auto updates.
Set it to nil if you don't want limits here.
(custom-declare-variable 'reb-auto-match-limit '200 '(#$ . 1514) :group 're-builder :type '(restricted-sexp :match-alternatives (integerp 'nil)))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\207" [custom-declare-face reb-match-0 ((((class color) (background light)) :background "lightblue") (((class color) (background dark)) :background "steelblue4") (t :inverse-video t)) "Used for displaying the whole match." :group re-builder reb-match-1 ((((class color) (background light)) :background "aquamarine") (((class color) (background dark)) :background "blue3") (t :inverse-video t)) "Used for displaying the first matching subexpression." reb-match-2 ((((class color) (background light)) :background "springgreen") (((class color) (background dark)) :background "chartreuse4") (t :inverse-video t)) "Used for displaying the second matching subexpression." reb-match-3 ((((min-colors 88) (class color) (background light)) :background "yellow1") (((class color) (background light)) :background "yellow") (((class color) (background dark)) :background "sienna4") (t :inverse-video t)) "Used for displaying the third matching subexpression."] 6)
#@36 Enables the RE Builder minor mode.
(defvar reb-mode nil (#$ . 2855))
#@39 Buffer to which the RE is applied to.
(defvar reb-target-buffer nil (#$ . 2930))
#@39 Window to which the RE is applied to.
(defvar reb-target-window nil (#$ . 3017))
#@33 Last regexp used by RE Builder.
(defvar reb-regexp nil (#$ . 3104))
#@111 Last regexp used by RE Builder before processing it.
Except for Lisp syntax this is the same as `reb-regexp'.
(defvar reb-regexp-src nil (#$ . 3179))
#@37 List of overlays of the RE Builder.
(defvar reb-overlays nil (#$ . 3335))
#@27 Old window configuration.
(defvar reb-window-config nil (#$ . 3415))
#@43 Indicates whether sub-exp mode is active.
(defvar reb-subexp-mode nil (#$ . 3490))
#@36 Indicates which sub-exp is active.
(defvar reb-subexp-displayed nil (#$ . 3579))
#@42 String in mode line for additional info.
(defvar reb-mode-string "" (#$ . 3666))
#@45 String in mode line showing validity of RE.
(defvar reb-valid-string "" (#$ . 3753))
(byte-code "\300\301!\210\300\302!\210\300\303!\207" [make-variable-buffer-local reb-overlays reb-regexp reb-regexp-src] 2)
#@35 Buffer to use for the RE Builder.
(defconst reb-buffer "*RE-Builder*" (#$ . 3968))
#@32 Keymap used by the RE Builder.
(defvar reb-mode-map (byte-code "\302 \302 \303	\304\305#\210\303	\306\307#\210\303	\310\311#\210\303	\312\313#\210\303	\314\315#\210\303	\316\317#\210\303	\320\321#\210\303	\322\323#\210\303	\324\325#\210\303	\326\327B#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\347#\210\303\350\351#\210	*\207" [menu-map map make-sparse-keymap define-key "" reb-toggle-case "" reb-quit "" reb-copy "" reb-next-match "" reb-prev-match "	" reb-change-syntax "" reb-enter-subexp-mode "" reb-change-target-buffer "" reb-force-update [menu-bar reb-mode] "Re-Builder" [rq] (menu-item "Quit" reb-quit :help "Quit the RE Builder mode") [rt] (menu-item "Case sensitive" reb-toggle-case :button (:toggle . case-fold-search) :help "Toggle case sensitivity of searches for RE Builder target buffer") [rb] (menu-item "Change target buffer..." reb-change-target-buffer :help "Change the target buffer and display it in the target window") [rs] (menu-item "Change syntax..." reb-change-syntax :help "Change the syntax used by the RE Builder") [re] (menu-item "Enter subexpression mode" reb-enter-subexp-mode :help "Enter the subexpression mode in the RE Builder") [ru] (menu-item "Force update" reb-force-update :help "Force an update in the RE Builder target window without a match limit") [rn] (menu-item "Go to next match" reb-next-match :help "Go to next match in the RE Builder target window") [rp] (menu-item "Go to previous match" reb-prev-match :help "Go to previous match in the RE Builder target window") [rc] (menu-item "Copy current RE" reb-copy :help "Copy current RE into the kill ring for later insertion")] 5) (#$ . 4057))
(byte-code "\302\303N\204\f�\304\302\303\305#\210\306\307!\204�\304\307\310\311#\210\307B\312\307!\204(�\313\307\314 \"\210\306\315!\2044�\304\315\310\311#\210\315B\312\315!\204D�\313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^�\313\301\317\301\320\"\210	\"\210\304\311\321\320#\207" [current-load-list reb-mode-abbrev-table reb-mode-hook variable-documentation put "Hook run when entering RE Builder mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp reb-mode-map definition-name reb-mode default-boundp set-default make-sparse-keymap reb-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 5)
#@160 Major mode for interactively building Regular Expressions.

This mode runs the hook `reb-mode-hook', as the final step
during initialization.

\{reb-mode-map}
(defalias 'reb-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\306\315!\210\316
\317 \210)\320\321!\207" [delay-mode-hooks major-mode mode-name reb-mode-map reb-mode-syntax-table reb-mode-abbrev-table make-local-variable t kill-all-local-variables reb-mode "RE Builder" use-local-map set-syntax-table blink-matching-paren nil reb-mode-common run-mode-hooks reb-mode-hook local-abbrev-table] 2 (#$ . 6554) nil])
(byte-code "\302\303N\204\f�\304\302\303\305#\210\306\307!\204�\304\307\310\311#\210\307B\312\307!\204(�\313\307\314 \"\210\306\315!\2044�\304\315\310\311#\210\315B\312\315!\204D�\313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^�\313\301\317\301\320\"\210	\"\210\304\311\321\322#\207" [current-load-list reb-lisp-mode-abbrev-table reb-lisp-mode-hook variable-documentation put "Hook run when entering RE Builder Lisp mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp reb-lisp-mode-map definition-name reb-lisp-mode default-boundp set-default make-sparse-keymap reb-lisp-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent emacs-lisp-mode] 5)
#@254 Major mode for interactively building symbolic Regular Expressions.

In addition to any hooks its parent mode `emacs-lisp-mode' might have run,
this mode runs the hook `reb-lisp-mode-hook', as the final step
during initialization.

\{reb-lisp-mode-map}
(defalias 'reb-lisp-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203�\314\311\313\310\313N#\210\315!\204'�\316\317 \"\210\320\f!\211\2036�
\321 =\203<�\322\f\323 \"\210)\324!\210\325\f!\210\326=\203W�\327\326!\210\202p�\330=\203e�\327\330!\210\202p�\331=\203p�\327\331!\210\332 \210)\333\334!\207" [delay-mode-hooks major-mode mode-name reb-lisp-mode-map reb-lisp-mode-syntax-table parent make-local-variable t emacs-lisp-mode reb-lisp-mode "RE Builder Lisp" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table lisp-re require sregex rx reb-mode-common run-mode-hooks reb-lisp-mode-hook reb-lisp-mode-abbrev-table local-abbrev-table reb-re-syntax] 6 (#$ . 7936) nil])
(byte-code "\302\303\304	\303\"#\207" [reb-lisp-mode-map reb-mode-map define-key "" lookup-key] 6)
#@59 Keymap used by the RE Builder for the subexpression mode.
(defvar reb-subexp-mode-map (byte-code "\304 \305!\210\306\307\310	\307\"#\210\306\311\312#\210\313\314\nW\203/�\306\315\n!\316#\210\nT\211\202�*)\207" [m reb-mode-map digit --dotimes-limit-- make-keymap suppress-keymap define-key "" lookup-key "q" reb-quit-subexp-mode 10 0 int-to-string reb-display-subexp] 7) (#$ . 9112))
#@69 Setup functions common to functions `reb-mode' and `reb-mode-lisp'.
(defalias 'reb-mode-common #[nil "\303\211\304\305 \210\306\307\310\311\312$\210\306\313\314\311\312$\210\310\311\211\211#\207" [reb-mode-string reb-valid-string mode-line-buffer-identification "" (25 "%b" reb-mode-string reb-valid-string) reb-update-modestring add-hook after-change-functions reb-auto-update nil t kill-buffer-hook reb-kill-buffer] 6 (#$ . 9513)])
#@54 Return t if display is capable of displaying colors.
(defalias 'reb-color-display-p #[nil "\300\301!\203�\301\302 \303\"\202�\300\304!\205�\304\302 \303\"\305=\207" [fboundp frame-parameter selected-frame display-type frame-property color] 3 (#$ . 9956)])
#@50 Return non-nil if RE Builder uses a Lisp syntax.
(defalias 'reb-lisp-syntax-p #[nil "\301>\207" [reb-re-syntax (lisp-re sregex rx)] 2 (#$ . 10221)])
(put 'reb-lisp-syntax-p 'byte-optimizer 'byte-compile-inline-expand)
#@60 Return binding for SYMBOL in the RE Builder target buffer.
(defalias 'reb-target-binding '(macro . #[(symbol) "\301\302E\207" [symbol with-current-buffer reb-target-buffer] 3 (#$ . 10446)]))
#@55 Initialize the current buffer as a RE Builder buffer.
(defalias 'reb-initialize-buffer #[nil "\301 \210\302 \210\303e\\b\210\304>\203�\305 \210\202�\306 \210\307 \207" [reb-re-syntax erase-buffer reb-insert-regexp 2 (lisp-re sregex rx) reb-lisp-mode reb-mode reb-do-update] 2 (#$ . 10644)])
#@62 Return non-nil if the current buffer is a RE Builder buffer.
(defalias 'reb-mode-buffer-p #[nil "\301>\207" [major-mode (reb-mode reb-lisp-mode)] 2 (#$ . 10944)])
(defalias 'regexp-builder 're-builder)
#@35 Construct a regexp interactively.
(defalias 're-builder #[nil "\304 \230\203�\305 \203�\306\307!\207	\203�\310 \210p\311 \312\313!\206.�\314 \315\311 \316 \317Z\"!\210\320\321!!\210\322 \207" [reb-buffer reb-target-buffer reb-target-window reb-window-config buffer-name reb-mode-buffer-p message "Already in the RE Builder" reb-delete-overlays selected-window select-window get-buffer-window current-window-configuration split-window window-height 4 switch-to-buffer get-buffer-create reb-initialize-buffer] 5 (#$ . 11153) nil])
#@63 Change the target buffer and display it in the target window.
(defalias 'reb-change-target-buffer #[(buf) "\305!\211\204�\306\307!\202�\310 \210	\311\205�\f!\210\312 )\207" [buf buffer reb-target-buffer reb-subexp-mode reb-subexp-displayed get-buffer error "No such buffer" reb-delete-overlays reb-do-update reb-update-modestring] 3 (#$ . 11697) "bSet target buffer to: "])
#@72 Force an update in the RE Builder target window without a match limit.
(defalias 'reb-force-update #[nil "\303\304	\205�\n!)\207" [reb-auto-match-limit reb-subexp-mode reb-subexp-displayed nil reb-update-overlays] 2 (#$ . 12084) nil])
#@27 Quit the RE Builder mode.
(defalias 'reb-quit #[nil "\303\211\304 \210\305 \210\306\n!\207" [reb-subexp-mode reb-subexp-displayed reb-window-config nil reb-delete-overlays bury-buffer set-window-configuration] 3 (#$ . 12327) nil])
#@51 Go to next match in the RE Builder target window.
(defalias 'reb-next-match #[nil "\306 \210\307 \310\311\312 \"r\313\216\314\n\315\"\210\316d\317#\204\"�\320\321!\202.�\322\f\203+�
\206,�\323\317\",\207" [save-selected-window-alist save-selected-window-window reb-target-window reb-regexp reb-subexp-mode reb-subexp-displayed reb-assert-buffer-in-window selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030�\n@\306	@!\203)�\307	\211A@)!\203)�\310	@	\211A@)\311#\210\nA\211\204�*\307\f!\203<�\312\f\311\"\210\305\207" [save-selected-window-alist elt --dolist-tail-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window norecord re-search-forward t message "No more matches" reb-show-subexp 0] 4 (#$ . 12566) nil])
#@55 Go to previous match in the RE Builder target window.
(defalias 'reb-prev-match #[nil "\306 \210\307 \310\311\312 \"r\313\216\314\n\315\"\210`\211Sb\210\316\fe\317#\2032�\320
\203,�\206-�\321\317\"\2028�b\210\322\323!-\207" [save-selected-window-alist save-selected-window-window reb-target-window p reb-regexp reb-subexp-mode reb-assert-buffer-in-window selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030�\n@\306	@!\203)�\307	\211A@)!\203)�\310	@	\211A@)\311#\210\nA\211\204�*\307\f!\203<�\312\f\311\"\210\305\207" [save-selected-window-alist elt --dolist-tail-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window norecord re-search-backward t reb-show-subexp 0 message "No more matches" reb-subexp-displayed] 5 (#$ . 13439) nil])
#@67 Toggle case sensitivity of searches for RE Builder target buffer.
(defalias 'reb-toggle-case #[nil "rq\210	?)\302 \210\303\304\211\211\305$\207" [reb-target-buffer case-fold-search reb-update-modestring reb-auto-update nil t] 5 (#$ . 14337) nil])
#@57 Copy current RE into the kill ring for later insertion.
(defalias 'reb-copy #[nil "\304 \210\305\306\307!!\310\216\311r	q\210\n)!\210)rq\210\312 +\313\314GSO!\210\315\316!)\207" [standard-output reb-target-buffer reb-regexp re reb-update-regexp get-buffer-create generate-new-buffer-name " *string-output*" ((kill-buffer standard-output)) print buffer-string kill-new 1 message "Regexp copied to kill-ring"] 4 (#$ . 14592) nil])
#@49 Enter the subexpression mode in the RE Builder.
(defalias 'reb-enter-subexp-mode #[nil "\302\303 \210\304	!\210\305\306!\207" [reb-subexp-mode reb-subexp-mode-map t reb-update-modestring use-local-map message "`0'-`9' to display subexpressions  `q' to quit subexp mode"] 2 (#$ . 15034) nil])
#@311 Visually show limit of subexpression SUBEXP of recent search.
On color displays this just puts point to the end of the expression as
the match should already be marked by an overlay.
On other displays jump to the beginning and the end of it.
If the optional PAUSE is non-nil then pause at the end in any case.
(defalias 'reb-show-subexp #[(subexp &optional pause) "\306 \307\310\311 \"r\312\216\313\n\314\"\210\315 \204�\224b\210\316\f!\210\225b\210\315 \203+�
\205.�\316\f!,\207" [save-selected-window-alist save-selected-window-window reb-target-window subexp reb-blink-delay pause selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030�\n@\306	@!\203)�\307	\211A@)!\203)�\310	@	\211A@)\311#\210\nA\211\204�*\307\f!\203<�\312\f\311\"\210\305\207" [save-selected-window-alist elt --dolist-tail-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window norecord reb-color-display-p sit-for] 4 (#$ . 15334)])
#@48 Quit the subexpression mode in the RE Builder.
(defalias 'reb-quit-subexp-mode #[nil "\303\211\304 \210\305\n!\210\306 \207" [reb-subexp-mode reb-subexp-displayed reb-mode-map nil reb-update-modestring use-local-map reb-do-update] 3 (#$ . 16398) nil])
#@115 Change the syntax used by the RE Builder.
Optional argument SYNTAX must be specified if called non-interactively.
(defalias 'reb-change-syntax #[(&optional syntax) "\304>\203�\305	!\n\205�r\nq\210\306 ))\207\307\310\"\207" [syntax reb-buffer buffer reb-re-syntax (read string lisp-re sregex rx) get-buffer reb-initialize-buffer error "Invalid syntax: %s"] 3 (#$ . 16659) (list (intern (completing-read "Select syntax: " (mapcar (lambda (el) (cons (symbol-name el) 1)) '(read string lisp-re sregex rx)) nil t (symbol-name reb-re-syntax))))])
#@115 Update matches in the RE Builder target window.
If SUBEXP is non-nil mark only the corresponding sub-expressions.
(defalias 'reb-do-update #[(&optional subexp) "\301 \210\302 \210\303!\207" [subexp reb-assert-buffer-in-window reb-update-regexp reb-update-overlays] 2 (#$ . 17214)])
#@219 Called from `after-update-functions' to update the display.
BEG, END and LENOLD are passed in from the hook.
An actual update is only done if the regexp has changed or if the
optional fourth argument FORCE is non-nil.
(defalias 'reb-auto-update #[(beg end lenold &optional force) "\304\305\306\217	\307 \210\310>\205!�\n	\230?\205!�\n\311\230\205!�\312 *\207" [reb-valid-string new-valid prev-valid reb-re-syntax nil (byte-code "\301 \204	�\203\f�\302 \210\303\207" [force reb-update-regexp reb-do-update #1=""] 1) ((error " *invalid*")) force-mode-line-update (lisp-re sregex rx) #1# reb-delete-overlays] 4 (#$ . 17504)])
#@67 Delete all RE Builder overlays in the `reb-target-buffer' buffer.
(defalias 'reb-delete-overlays #[nil "\302!\205�rq\210\303\304	\"\210\305\211)\207" [reb-target-buffer reb-overlays buffer-live-p mapc delete-overlay nil] 3 (#$ . 18139)])
#@70 Assert that `reb-target-buffer' is displayed in `reb-target-window'.
(defalias 'reb-assert-buffer-in-window #[nil "\302	!=?\205
�\303	\"\207" [reb-target-buffer reb-target-window window-buffer set-window-buffer] 3 (#$ . 18387)])
#@67 Update the variable `reb-mode-string' displayed in the mode line.
(defalias 'reb-update-modestring #[nil "\203�\305\306	\206�\307\"\202�\310r\nq\210)\204�\311\202�\310P\312 \207" [reb-subexp-mode reb-subexp-displayed reb-target-buffer case-fold-search reb-mode-string format " (subexp %s)" "-" "" " Case" force-mode-line-update] 3 (#$ . 18624)])
#@56 Highlight only subexpression SUBEXP in the RE Builder.
(defalias 'reb-display-subexp #[(&optional subexp) "\206\n�\303\304\305	\"!\306 \210\307\n!\207" [subexp last-command-event reb-subexp-displayed string-to-number format "%c" reb-update-modestring reb-do-update] 4 (#$ . 18984) nil])
#@73 When the RE Builder buffer is killed make sure no overlays stay around.
(defalias 'reb-kill-buffer #[nil "\300 \205�\301 \207" [reb-mode-buffer-p reb-delete-overlays] 1 (#$ . 19279)])
#@18 Read current RE.
(defalias 'reb-read-regexp #[nil "\212\302=\203�eb\210\302p!\2026�\303=\203.�eb\210\304\305!\210`db\210\306\305!\210\307	`\")\2026�\310>\2056�\311 )\207" [reb-re-syntax beg read string re-search-forward "\"" re-search-backward buffer-substring-no-properties (lisp-re sregex rx) buffer-string] 3 (#$ . 19470)])
#@37 Return empty RE for current syntax.
(defalias 'reb-empty-regexp #[nil "\301>\203�\302\207\303\207" [reb-re-syntax (lisp-re sregex rx) "'()" ""] 2 (#$ . 19808)])
#@20 Insert current RE.
(defalias 'reb-insert-regexp #[nil "rq\210	)\206�\305 \306=\203�\307\np\"\2029�\310=\203'�\311\n\312\261\2029�\313>\2059�rq\210\f)\2068�\305 c)\207" [reb-target-buffer reb-regexp re reb-re-syntax reb-regexp-src reb-empty-regexp read print string "\n\"" "\"" (lisp-re sregex rx)] 3 (#$ . 19977)])
#@61 Return RE after processing it according to `reb-re-syntax'.
(defalias 'reb-cook-regexp #[(re) "\302=\203�\303\304!\2055�\304\305\306	!@!!\207\307=\203%�\310\307\305\306	!@!\"\207\311=\2034�\312\305\306	!@!!\207	\207" [reb-re-syntax re lisp-re fboundp lre-compile-string eval read-from-string sregex apply rx rx-to-string] 5 (#$ . 20307)])
#@87 Update the regexp for the target buffer.
Return t if the (cooked) expression changed.
(defalias 'reb-update-regexp #[nil "\306 \307!r\nq\210\211	\230?	
\310>\203�	,\207" [re-src re reb-target-buffer reb-regexp oldre reb-re-syntax reb-read-regexp reb-cook-regexp (lisp-re sregex rx) reb-regexp-src] 4 (#$ . 20656)])
#@52 Return number of sub-expressions in the regexp RE.
(defalias 'reb-count-subexps #[(re) "\303\211\304\305\n#\203�	T\303\225\202�	*\207" [beg i re 0 string-match "\\\\("] 4 (#$ . 20986)])
#@135 Switch to `reb-target-buffer' and mark all matches of `reb-regexp'.
If SUBEXP is non-nil mark only the corresponding sub-expressions.
(defalias 'reb-update-overlays #[(&optional subexp) "rq\210	)\306\n!\307\211\310!\212q\210\311 \210eb\210m\204\340�\312\nd\313#\203\340�\"\2034�\f\"W\203\340�\314\307!G\307U\203D�m\204D�\315u\210\307\310\211#$%\fT%X\203\334�&\203d�&%U\203\323�%\224\203\323�\316%\224%\225\"#\203\224�$#U\203\205�\315$\202\212�$T$\317\320\321$\"!\202\253�\317\320\321%\"!\206\253�%S\211#\205\253�\315$\322'!\204\270�\323 !'(B(
T\324'\325#\210\324'\326%#\210*%T\211%\202R�+\202�)&\203\352�
\202\353�\f)\327\330)\307U\203\372�\331\202\376�\332)!&\203\333\202\334)\315U\203\334\202\335\"\203%\")U\203%\336\202&\334%\210)!\205;\337!!\210\340&\206:\307!-\207" [reb-target-buffer reb-regexp re subexps matches submatches reb-count-subexps 0 nil reb-delete-overlays re-search-forward t match-string 1 make-overlay intern-soft format "reb-match-%d" reb-match-1 match-data overlay-put face priority message "%s %smatch%s%s" "No" int-to-string "subexpression " "" "es" " (limit reached)" store-match-data reb-show-subexp firstmatch reb-auto-match-limit max-suffix suffix i subexp overlay reb-overlays count] 8 (#$ . 21186)])
#@32 Unload the RE Builder library.
(defalias 're-builder-unload-function #[nil "\302\303!!\203$�rq\210\304\305\306\307#\210\304\310\311\307#\210\312 \203#�\313 \210	 \210)\314\207" [reb-buffer default-major-mode buffer-live-p get-buffer remove-hook after-change-functions reb-auto-update t kill-buffer-hook reb-kill-buffer reb-mode-buffer-p reb-delete-overlays nil] 4 (#$ . 22497)])
(provide 're-builder)

${this.title}

Code Editor : re-builder.elc