home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / prim / isearch-.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  23.3 KB  |  194 lines
  1. ;;; compiled by @win386 on Thu Apr 29 20:43:20 1993
  2. ;;; from file c:/src/winemacs/lisp/prim/isearch-.el
  3. ;;; emacs version 19.4 (Win-Emacs 1.00.04 beta).
  4. ;;; bytecomp version 2.09; 16-jan-93.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴Mê┬├Mç" [isearch-char-to-string #[(c) "¿½à┴┬\"ç┴┬├!\"ç" [c make-string 1 event-to-character] 4] isearch-text-char-description #[(c) "└    !ç" [isearch-char-to-string c] 2]] 2)
  14. (defvar search-last-string "" "\
  15. Last string search for by a search command.
  16. This does not include direct calls to the primitive search functions,
  17. and does not include searches that are aborted.")
  18. (defvar search-last-regexp "" "\
  19. Last string searched for by a regexp search command.
  20. This does not include direct calls to the primitive search functions,
  21. and does not include searches that are aborted.")
  22. (defconst search-exit-option t "\
  23. Non-nil means random control characters terminate incremental search.")
  24. (defvar search-slow-window-lines 1 "\
  25. *Number of lines in slow search display windows.
  26. These are the short windows used during incremental search on slow terminals.
  27. Negative means put the slow search window at the top (normally it's at bottom)
  28. and the value is minus the number of lines.")
  29. (defconst search-slow-speed 1200 "\
  30. *Highest terminal speed at which to use \"slow\" style incremental search.
  31. This is the style where a one-line window is created to show the line
  32. that the search has reached.")
  33. (defvar search-caps-disable-folding t "\
  34. *If non-nil, upper case chars disable case fold searching.
  35. This does not apply to \"yanked\" strings.")
  36. (defvar search-nonincremental-instead t "\
  37. *If non-nil, do a nonincremental search instead if exiting immediately.")
  38. (defconst search-whitespace-regexp "\\(\\s \\|[\n]\\)+" "\
  39. *If non-nil, regular expression to match a sequence of whitespace chars.")
  40. (defvar search-ring nil "\
  41. List of search string sequences.")
  42. (defvar regexp-search-ring nil "\
  43. List of regular expression search string sequences.")
  44. (defconst search-ring-max 16 "\
  45. *Maximum length of search ring before oldest elements are thrown away.")
  46. (defconst regexp-search-ring-max 16 "\
  47. *Maximum length of regexp search ring before oldest elements are thrown away.")
  48. (defvar search-ring-yank-pointer nil "\
  49. The tail of the search ring whose car is the last thing searched for.")
  50. (defvar regexp-search-ring-yank-pointer nil "\
  51. The tail of the regular expression search ring whose car is the last
  52. thing searched for.")
  53. (defvar isearch-mode-map nil "\
  54. Keymap for isearch-mode.")
  55. (byte-code "¼²┴┬├┴\"╞ ╟╚╔#ê╟╩╦#ê╟╠═#ê╟╬╧#ê╟╨╤#ê╟╥╙#ê╟╘╒#ê╟╓╒#ê╟╫╪#ê╟┘┌#ê╟█▄#ê╟▌▄#ê╟▐▀#ê╟α═#ê╟ßΓ#ê╟πΣ#ê╟σµ#ê╟τΦ#ê╟ΘΩ#ê*┴ç" [isearch-mode-map 0 make-string 1 str i make-keymap define-key "" isearch-repeat-forward "" isearch-repeat-backward "" isearch-delete-char "" isearch-abort "" isearch-quote-char "" isearch-exit "\n" isearch-printing-char "    " "" isearch-yank-word "" isearch-yank-line "*" isearch-*-char "?" "|" isearch-|-char backspace (control h) isearch-mode-help "ε" isearch-ring-advance "≡" isearch-ring-retreat "á" isearch-whitespace-chars "ë" isearch-complete] 4)
  56. (defvar minibuffer-local-isearch-map nil "\
  57. Keymap for editing isearch strings in the minibuffer.")
  58. (byte-code "¼¿┴\n!├─┼#ê├╞╟#ê├╚╔#ê├╩╦#ê├╠═#ê├╬╧#ê╨╤!¼â╥╨╙!¼â╥╨╘!¼â╥╨╒!¼â╥╨╓!¼â╫╨╪!¼â╫╨┘!¼â┌╨█!¼â╥╨▄!¼â╥╨▌!¼â╥╨▐!¼â▀╨α!¼â╥ ╨ß!¼â╥!╨Γ!¼â╥\"╨π!¼â╥#╨Σ!¼â╥$╨σ!¼â▀%╨µ!¼â╥&╨τ!¼â╥'╨Φ!¼â╥(╨Θ!¼â╥)╨Ω!¼â╥*╨δ!¼â╥+╨∞!¼â╥,╥ç" [minibuffer-local-isearch-map copy-keymap minibuffer-local-map define-key "" isearch-nonincremental-exit-minibuffer "ε" isearch-ring-advance-edit "≡" isearch-ring-retreat-edit "ë" isearch-complete-edit "" isearch-forward-exit-minibuffer "" isearch-reverse-exit-minibuffer boundp isearch-forward nil isearch-regexp isearch-word isearch-cmds isearch-string "" isearch-message isearch-success t isearch-invalid-regexp isearch-other-end isearch-wrapped isearch-barrier 0 isearch-buffer isearch-case-fold-search isearch-adjusted isearch-slow-terminal-mode isearch-small-window isearch-opoint isearch-window-configuration isearch-old-local-map isearch-yank-flag isearch-op-fun isearch-recursive-edit isearch-nonincremental isearch-new-forward] 4)
  59. (defvar isearch-mode-hook nil "\
  60. Function(s) to call after starting up an incremental search.")
  61. (defvar isearch-mode-end-hook nil "\
  62. Function(s) to call after terminating an incremental search.")
  63. (byte-code "└    ₧¼à    ┬Cñê├└!¼é─┼└!ç" [isearch-mode minor-mode-alist (isearch-mode isearch-mode) boundp nil make-variable-buffer-local] 2)
  64. (fset 'isearch-forward #[(&optional regexp-p) "└┴\n??├t?$ç" [isearch-mode t regexp-p nil] 5 "\
  65. Do incremental search forward.
  66. With a prefix argument, do an incremental regular expression search instead.
  67. \\<isearch-mode-map>
  68. As you type characters, they add to the search string and are found.
  69. The following non-printing keys are bound in `isearch-mode-map'.  
  70.  
  71. Type \\[isearch-delete-char] to cancel characters from end of search string.
  72. Type \\[isearch-exit] to exit, leaving point at location found.
  73. Type LFD (C-j) to match end of line.
  74. Type \\[isearch-repeat-forward] to search again forward, \\[isearch-repeat-backward] to search again backward.
  75. Type \\[isearch-yank-word] to yank word from buffer onto end of search string and search for it.
  76. Type \\[isearch-yank-line] to yank rest of line onto end of search string and search for it.
  77. Type \\[isearch-quote-char] to quote control character to search for it.
  78. Type \\[isearch-whitespace-chars] to match all whitespace chars in regexp.
  79. \\[isearch-abort] while searching or when search has failed cancels input back to what has
  80.  been found successfully.
  81. \\[isearch-abort] when search is successful aborts and moves point to starting point.
  82.  
  83. Also supported is a search ring of the previous 16 search strings.
  84. Type \\[isearch-ring-advance] to search for the next item in the search ring.
  85. Type \\[isearch-ring-retreat] to search for the previous item in the search ring.
  86. Type \\[isearch-complete] to complete the search string using the search ring.
  87.  
  88. The above keys are bound in the isearch-mode-map.  To change the keys which
  89.  are special to isearch-mode, simply change the bindings in that map.
  90.  
  91. Other control and meta characters terminate the search
  92.  and are then executed normally (depending on `search-exit-option').
  93.  
  94. If this function is called non-interactively, it does not return to
  95. the calling function until the search is done.
  96.  
  97. The bindings, more precisely:
  98. \\{isearch-mode-map}" "P"])
  99. (fset 'isearch-forward-regexp #[nil "└┴ë┬t?$ç" [isearch-mode t nil] 5 "\
  100. Do incremental search forward for regular expression.
  101. Like ordinary incremental search except that your input
  102. is treated as a regexp.  See \\[isearch-forward] for more info." nil])
  103. (fset 'isearch-backward #[(&optional regexp-p) "└┴\n??┴t?$ç" [isearch-mode nil regexp-p] 5 "\
  104. Do incremental search backward.
  105. With a prefix argument, do an incremental regular expression search instead.
  106. See \\[isearch-forward] for more information." "P"])
  107. (fset 'isearch-backward-regexp #[nil "└┴┬┴t?$ç" [isearch-mode nil t] 5 "\
  108. Do incremental search backward for regular expression.
  109. Like ordinary incremental search except that your input
  110. is treated as a regexp.  See \\[isearch-forward] for more info." nil])
  111. (fset 'isearch-mode-help #[nil "└┴!ê┬ ç" [describe-function isearch-forward isearch-update] 2 nil nil])
  112. (fset 'isearch-mode #[(forward &optional regexp op-fun recursive-edit word-p) "½é┴├p    \n  ╨╨┴├┴`┴┴┴X¡ç▄ ▐_V┴ ┴!`\"π $σ &'(Θ*δτ∞\"êφε !ê∩ ê≡1!ê)≥ ê≤⌠!ê\n¡å├5┬ )ç" [executing-macro nil recursive-edit t inhibit-quit isearch-buffer forward isearch-forward regexp isearch-regexp word-p isearch-word op-fun isearch-op-fun case-fold-search isearch-case-fold-search "" isearch-string isearch-message isearch-cmds isearch-success isearch-wrapped isearch-barrier isearch-adjusted isearch-yank-flag isearch-invalid-regexp baud-rate search-slow-speed window-height search-slow-window-lines 4 isearch-slow-terminal-mode isearch-other-end isearch-small-window isearch-opoint current-window-configuration isearch-window-configuration current-local-map isearch-old-local-map pre-command-hook isearch-old-pre-command-hook " Isearch" isearch-mode add-hook isearch-pre-command-hook set-buffer-modified-p buffer-modified-p isearch-push-state use-local-map isearch-mode-map isearch-update run-hooks isearch-mode-hook isearch-recursive-edit] 3 "\
  113. Start isearch minor mode.  Called by isearch-forward, etc."])
  114. (byte-code "└┴Mê┬├Mç" [isearch-update #[nil "¼≈┴ ¼â┬ ê ½╒ ¼╥┼ ¼╬`╟╚╔!ê╩ ╠═╔W½å[T¬å╧ TZ\"ê)╔W½£╨╩Z!ê╤╥ `\"ê╙╥ ╘ \"ê╙╒ ╔\"ê¬ä╓╩!êbê)½ö`W½ê╪`\"ê¬å╪`\"ê══ëç" [unread-command-event input-pending-p isearch-message isearch-slow-terminal-mode isearch-small-window pos-visible-in-window-p found-point t move-to-window-line 0 1 window-min-height split-window nil search-slow-window-lines window-height vertical-motion set-window-start next-window set-window-hscroll window-hscroll selected-window other-window isearch-other-end isearch-highlight isearch-adjusted isearch-yank-flag] 4] isearch-done #[nil "└\n½Üè\nqê├ !ê╟╟╔╩ !ê╦└!ê)╠═ !`╨!ê`U¼ç╙!ê¬ä╘╒!ê½åbê¬ê╫═ └#ê+G┘V½╨½º¥ë¼┬BëGV½░S¢╟íê¬Ñ¥ë ¼¢Bë GV½ëS¢╟íêßΓ!ê#¡éΣ ç" [t inhibit-quit isearch-buffer use-local-map isearch-old-local-map isearch-old-pre-command-hook pre-command-hook nil isearch-mode set-buffer-modified-p buffer-modified-p isearch-dehighlight window-start selected-window found-point found-start set-window-configuration isearch-window-configuration isearch-opoint push-mark message "" isearch-small-window set-window-start isearch-string 0 isearch-regexp regexp-search-ring regexp-search-ring-yank-pointer regexp-search-ring-max search-ring-max search-ring search-ring-yank-pointer run-hooks isearch-mode-end-hook isearch-recursive-edit exit-recursive-edit] 5]] 2)
  115. (fset 'isearch-exit #[nil "½î    G┬U½å├┼ ê)╞ ç" [search-nonincremental-instead isearch-string 0 t isearch-nonincremental isearch-edit-string isearch-done] 2 "\
  116. Exit search normally.
  117. However, if this is the first command after starting incremental
  118. search and `search-nonincremental-instead' is non-nil, do a
  119. nonincremental search instead." nil])
  120. (fset 'isearch-edit-string #[nil "└┴┬Åç" [err (byte-code "┴ëë\n \në    \n  ╘   \n    █▄▌Åê▐Ä▀ α!\"πΣ┴α\"!êσ&τΦΘ\"!!«üΩ!\"δ=½àα¬ä\",φε!½ë∩Σ┴α\" \"¬ç≡Σ┴α\" \"±≥≤#+ GΩU½î½ä4¬é5¬î4½à 4¬â 5÷ ê≈ ê° ê¡é∙ .ç" [minibuffer-local-isearch-map nil isearch-forward isearch-string isearch-message isearch-regexp isearch-word isearch-op-fun isearch-cmds isearch-success isearch-wrapped isearch-barrier isearch-adjusted isearch-yank-flag isearch-invalid-regexp isearch-other-end isearch-opoint isearch-slow-terminal-mode isearch-small-window isearch-recursive-edit current-window-configuration isearch-window-configuration isearch-new-forward isearch-new-message isearch-new-string isearch-nonincremental minibuffer-local-map err (isearch-done) ((exit)) ((isearch-mode isearch-forward isearch-regexp isearch-op-fun isearch-recursive-edit isearch-word)) allocate-event t cursor-in-echo-area e message isearch-message-prefix lookup-key isearch-mode-map char-to-string event-to-character next-command-event 0 isearch-yank-word unread-command-event featurep gmhist gmhist-old-read-from-minibuffer read-string mapconcat isearch-text-char-description "" search-last-regexp search-last-string isearch-push-state isearch-search isearch-update isearch-done] 25) ((quit (isearch-abort)))] 3 "\
  121. Edit the search string in the minibuffer.
  122. The following additional command keys are active while editing.
  123. \\<minibuffer-local-isearch-map>
  124. \\[exit-minibuffer] to exit editing and resume incremental searching.
  125. \\[isearch-forward-exit-minibuffer] to resume isearching forward.
  126. \\[isearch-backward-exit-minibuffer] to resume isearching backward.
  127. \\[isearch-ring-advance-edit] to replace the search string with the next item in the search ring.
  128. \\[isearch-ring-retreat-edit] to replace the search string with the next item in the search ring.
  129. \\[isearch-complete-edit] to complete the search string from the search ring." nil])
  130. (byte-code "└┴Mê┬├Mê─┼Mç" [isearch-nonincremental-exit-minibuffer #[nil "└┬ ç" [t isearch-nonincremental exit-minibuffer] 1 nil nil] isearch-forward-exit-minibuffer #[nil "└┬ ç" [t isearch-new-forward exit-minibuffer] 1 nil nil] isearch-reverse-exit-minibuffer #[nil "└┬ ç" [nil isearch-new-forward exit-minibuffer] 1 nil nil]] 2)
  131. (fset 'isearch-abort #[nil "└ ê    ½ï\nbê├ ê─┼╞\"ç    ¼à╟ ê¬x╚ ç" [discard-input isearch-success isearch-opoint isearch-done signal quit (isearch) isearch-pop-state isearch-update] 3 "\
  132. Quit incremental search mode if searching is successful, signalling quit.
  133. Otherwise, revert to previous successful search and continue searching.
  134. Use `isearch-exit' to quit without signalling." nil])
  135. (fset 'isearch-repeat #[(direction) "    ┬==½┴ ─ܽ¬½Ä½à@¬æ@¬î½à@¬â    @«ü─╩╦ ─# ¬ò¼æ½âe¬üdbê╬¬â?`╬ ─ܼô╤ò╤öܽë½â╥¬ü╙uê╘ ê╒ ê╓ ç" [isearch-forward direction forward isearch-string "" isearch-regexp regexp-search-ring-yank-pointer regexp-search-ring search-ring-yank-pointer search-ring mapconcat isearch-text-char-description isearch-message isearch-success t isearch-wrapped isearch-barrier 0 1 -1 isearch-search isearch-push-state isearch-update] 4])
  136. (fset 'isearch-repeat-forward #[nil "└┴!ç" [isearch-repeat forward] 2 "\
  137. Repeat incremental search forwards." nil])
  138. (fset 'isearch-repeat-backward #[nil "└┴!ç" [isearch-repeat backward] 2 "\
  139. Repeat incremental search backwards." nil])
  140. (fset 'isearch-toggle-regexp #[nil "?ë½é┴├ ç" [isearch-regexp nil isearch-word isearch-update] 2 "\
  141. Toggle regexp searching on or off." nil])
  142. (fset 'isearch-delete-char #[nil "A¼ç┴┬├\"ê¬â─ ê┼ ç" [isearch-cmds ding nil isearch-quit isearch-pop-state isearch-update] 3 "\
  143. Discard last input item and move point back.  
  144. If no previous match was done, just beep." nil])
  145. (fset 'isearch-yank #[(chunk) "è¼å    ½â    bê`è\n├=½à─vê¬ê\n┼=½â╞ê`){)½ç½â ù    ½ä╩ ! P  ═╬ ╧#P ╨)╥ ç" [isearch-forward isearch-other-end chunk word 1 line nil search-caps-disable-folding isearch-case-fold-search isearch-regexp regexp-quote isearch-string isearch-message mapconcat isearch-text-char-description "" t isearch-yank-flag isearch-search-and-update] 5])
  146. (fset 'isearch-yank-word #[nil "└┴!ç" [isearch-yank word] 2 "\
  147. Pull next word from buffer into search string." nil])
  148. (fset 'isearch-yank-line #[nil "└┴!ç" [isearch-yank line] 2 "\
  149. Pull rest of line from buffer into search string." nil])
  150. (fset 'isearch-search-and-update #[nil "¼â    ½┴\n¼ó ¼ƒ─┼╞ŽÖ¼è╚ò    \n^X½ï╦─ ╚ò¬£½ò ¼Æ\n½ä¬ë    \nT^^bê╬ ê╧ ê½ä ê╤ ç" [isearch-success isearch-regexp isearch-forward isearch-adjusted nil (byte-code "└    ½â\n¬â├\n!!ç" [looking-at isearch-regexp isearch-string regexp-quote] 3) ((error)) isearch-yank-flag 0 isearch-opoint isearch-barrier t isearch-invalid-regexp isearch-other-end isearch-search isearch-push-state isearch-op-fun isearch-update] 3])
  151. (fset 'isearch-*-char #[nil "½⌐┴ ½â─¬ü┼A@8ë«é ½ç]¬à^bê)╔\n!ç" [isearch-regexp t isearch-adjusted isearch-forward 5 2 isearch-cmds cs isearch-barrier isearch-process-search-char last-command-event] 3 "\
  152. Handle * and ? specially in regexps." nil])
  153. (fset 'isearch-|-char #[nil "½à┴ bê─!ç" [isearch-regexp t isearch-adjusted isearch-barrier isearch-process-search-char last-command-event] 2 "\
  154. If in regexp search, jump to the barrier." nil])
  155. (fset 'isearch-quote-char #[nil "└┴┬├!!!ç" [isearch-process-search-char read-quoted-char isearch-message t] 4 "\
  156. Quote special characters for incremental search." nil])
  157. (fset 'isearch-return-char #[nil "└┴!ç" [isearch-process-search-char 10] 2 "\
  158. Convert return into newline for incremental search.
  159. Obsolete." nil])
  160. (fset 'isearch-printing-char #[nil "└    !ç" [isearch-process-search-char last-command-event] 2 "\
  161. Any other printing character => add it to the search string and search." nil])
  162. (fset 'isearch-whitespace-chars #[nil "½ê    ½à┬    ├\"ç─ ê┼╞!ç" [isearch-regexp search-whitespace-regexp isearch-process-search-string " " beep isearch-process-search-char 32] 3 "\
  163. Match all whitespace chars, if in regexp mode." nil])
  164. (byte-code "└┴Mê┬├Mç" [isearch-process-search-char #[(char) "└┴\n!├\n!\"ç" [isearch-process-search-string isearch-char-to-string char isearch-text-char-description] 4] isearch-process-search-string #[(string message) "    P\n P─ ç" [isearch-string string isearch-message message isearch-search-and-update] 2]] 2)
  165. (defvar search-ring-update nil "\
  166. *Non-nil if advancing or retreating in the search ring should cause search.
  167. Default nil means edit the string from the search ring first.")
  168. (byte-code "└┴Mê┬├Mç" [isearch-ring-adjust1 #[(advance) "½â    ¬ü\nëG½â┼¬ü╞╚!     ╩U?¡¿     GZ ½ä S¬ü╠\\ ª ¢ë    Lê    @╬╧╨#ë,ç" [isearch-regexp regexp-search-ring search-ring ring length regexp-search-ring-yank-pointer search-ring-yank-pointer yank-pointer-name eval yank-pointer 0 advance 1 isearch-string mapconcat isearch-text-char-description "" isearch-message] 5] isearch-ring-adjust #[(advance) "A½â┴ ê┬ !ê─ ê½å╞ ê╟ ç╚ ç" [isearch-cmds isearch-pop-state isearch-ring-adjust1 advance isearch-push-state search-ring-update isearch-search isearch-update isearch-edit-string] 2]] 2)
  169. (fset 'isearch-ring-advance #[nil "└┴!ç" [isearch-ring-adjust advance] 2 "\
  170. Advance to the next search string in the ring." nil])
  171. (fset 'isearch-ring-retreat #[nil "└┴!ç" [isearch-ring-adjust nil] 2 "\
  172. Retreat to the previous search string in the ring." nil])
  173. (fset 'isearch-ring-adjust-edit #[(advance) "└    !ê┬ ê cç" [isearch-ring-adjust1 advance erase-buffer isearch-string] 2 "\
  174. Use the next or previous search string in the ring while in minibuffer."])
  175. (fset 'isearch-ring-advance-edit #[nil "└┴!ç" [isearch-ring-adjust-edit advance] 2 nil nil])
  176. (fset 'isearch-ring-retreat-edit #[nil "└┴!ç" [isearch-ring-adjust-edit nil] 2 "\
  177. Retreat to the previous search string in the ring while in the minibuffer." nil])
  178. (fset 'isearch-complete1 #[nil "½â    ¬ü\n─┼ \"╔\n\"ë ╠=½â╠¬░ ¼ç\nG═U½á \nܽƽÆ╧É╨╤\n\"!æê¬ä \n╠¬à╥╙!ê╘,ç" [isearch-regexp regexp-search-ring search-ring ring mapcar #[(string) "Cç" [string] 1] alist case-fold-search completion-ignore-case try-completion isearch-string completion t 0 completion-auto-help "*Isearch completions*" display-completion-list all-completions message "No completion" nil] 6])
  179. (fset 'isearch-complete #[nil "└ ½â┴ ç┬├!ê─ ç" [isearch-complete1 isearch-edit-string sit-for 1 isearch-update] 2 "\
  180. Complete the search string from the strings on the search ring.
  181. The completed string is then editable in the minibuffer.
  182. If there is no completion possible, say so and continue searching." nil])
  183. (fset 'isearch-complete-edit #[nil "└ ┬ ¡à├ ê    cç" [buffer-string isearch-string isearch-complete1 erase-buffer] 1 "\
  184. Same as `isearch-complete' except in the minibuffer." nil])
  185. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═╬╧#ê╠╨╬╧#ê╠╤╬╧#ê╠╥╬╧#ê╠╙╬╧#ê╠╘╬╧#ê╠╒╬╧#ê╠╓╬╧#ê╠═╬╧#ê╠═╬╧#ê╠╫╬╧#ê╠╪╬╧#ê╠┘╬╧#ê╠┘╬╧#ê╠┌╬╧#ê╠█╬╧#ê╠▄╬╧#ê╠▌╬╧#ê╠▐╬╧#ê╠▀╬╧#ê╠α╬╧#ê╠ß╬╧#ê╠Γ╬╧#ê╠π╬╧#ê╠Σ╬╧#ê╠▄╬╧#ê╠█╬╧#ê╠σ╬╧#ê╠µ╬╧#ê╠τ╬╧#êΦΘMêΩδMç" [isearch-top-state #[nil "@ë@    A@─    8╞    8╚    8    ╩    8 ╠    8╬    8    AA@b)ç" [isearch-cmds cmd isearch-string isearch-message 3 isearch-success 4 isearch-forward 5 isearch-other-end 6 isearch-invalid-regexp 7 isearch-wrapped 8 isearch-barrier] 3] isearch-pop-state #[nil "A┴ ç" [isearch-cmds isearch-top-state] 1] isearch-push-state #[nil "    `\n »    Bëç" [isearch-string isearch-message isearch-success isearch-forward isearch-other-end isearch-invalid-regexp isearch-wrapped isearch-barrier isearch-cmds] 9] isearch-message #[(&optional c-q-hack ellipsis) "┴\n! ─\n!Q\n½â¬ä╟╚\"*ç" [ellipsis isearch-message-prefix c-q-hack isearch-message isearch-message-suffix m cursor-in-echo-area message "%s"] 5] isearch-message-prefix #[(&optional c-q-hack nonincremental) "½à┴┬├Åê ½â┼¬ü╞¡ü╚    ½â╩¬ü┼ ½â╠¬ü┼½â╬¬ü╧½â╤¬ü╥░ë╘╘HûIê)ç" [isearch-invalid-regexp nil (byte-code "└    `┬#ê├├ç" [re-search-forward isearch-string t nil isearch-invalid-regexp] 4) ((error)) isearch-success "" "failing " isearch-wrapped "wrapped " isearch-word "word " isearch-regexp "regexp " nonincremental "search" "I-search" isearch-forward ": " " backward: " m 0] 7] isearch-message-suffix #[(&optional c-q-hack) "½â┴¬ü┬ ½å─ ┼Q¬ü┬Pç" [c-q-hack "^Q" "" isearch-invalid-regexp " [" "]"] 4] put isearch-printing-char isearch-command t isearch-return-char isearch-repeat-forward isearch-repeat-backward isearch-delete-char isearch-abort isearch-quote-char isearch-exit isearch-yank-word isearch-yank-line isearch-*-char isearch-|-char isearch-toggle-regexp isearch-edit-string isearch-mode-help isearch-ring-advance isearch-ring-retreat isearch-ring-advance-edit isearch-ring-retreat-edit isearch-whitespace-chars isearch-complete isearch-complete-edit isearch-forward-exit-minibuffer isearch-reverse-exit-minibuffer isearch-nonincremental-exit-minibuffer isearch-pre-command-hook #[nil "└ ê    9¡å    «ü┬├N?¡é─ ç" [isearch-maybe-frob-keyboard-macros this-command undefined isearch-command isearch-done] 2] isearch-maybe-frob-keyboard-macros #[nil "┴=½ä┬ëç;½ö├!┴=½ì─H╞!┬ëç╚!¡┼├!┴=¡╛─Hë    ¿½ä    ¬á    9½ç    \nN¬ö    :½Ä    A?¡ë    @\nN¬ü╦ë ¡ï ╞!┬ë*ç" [this-command self-insert-command isearch-printing-char key-binding 0 last-command-char character-to-event last-command-event vectorp desc character-set-property nil code] 3]] 4)
  186. (defvar isearch-highlight t "\
  187. *Whether isearch and query-replace should highlight the text which 
  188. currently matches the search-string.")
  189. (byte-code "└┴!¼é┬├─!¼ä┼─!ê╞╟Mê╚╔Mê╩╦Mç" [boundp isearch-extent nil find-face isearch make-face isearch-highlight #[(begin end) "??¡╛┴\n!½É├\n!p=½ë─\n#ê¬₧┴\n!½Æ╟├\n!!½ï╚├\n!!½ä╔\n!ê╩p#╦\n T\"ê═\n╬\"ç" [isearch-highlight extentp isearch-extent extent-buffer set-extent-endpoints begin end bufferp buffer-name delete-extent make-extent set-extent-priority mouse-highlight-priority set-extent-face isearch] 4] isearch-dehighlight #[(totally) "¡┐    ¡╝\n½₧├┼    !½Æ╞╟    !!½ï╚╟    !!½ä╔    !ê╩ë)ç┼    !½ô╞╟    !!½î╚╟    !!½à╦    ╠\"ç═├!ç" [isearch-highlight isearch-extent totally t inhibit-quit extentp bufferp extent-buffer buffer-name delete-extent nil set-extent-face default isearch-dehighlight] 3] isearch-search #[nil "└┴┬\"ê ½ë ½å┼!╚╔╩Åê ?¡ó ½î¼ê╬ ê╧┴╨\"ê╤@8½à╧┴╨\"ê╙@8bç" [isearch-message nil t case-fold-search search-caps-disable-folding isearch-no-upper-case-p isearch-string isearch-case-fold-search lossage (byte-code "└     ½é└½è½â╚¬ÿ╔¬ò ½è½â╩¬ï╦¬ê½â╠¬ü═└╧#ë½î½ä╤ö¬é╤ò*└ç" [nil isearch-case-fold-search case-fold-search inhibit-quit isearch-regexp isearch-invalid-regexp isearch-word isearch-forward word-search-forward word-search-backward re-search-forward re-search-backward search-forward search-backward isearch-string t isearch-success 0 isearch-other-end] 5) ((quit (byte-code "└    !├├ç" [character-to-event interrupt-char unread-command-event nil isearch-success] 2)) (invalid-regexp (byte-code "A@┬├    \"½é─┬ç" [lossage isearch-invalid-regexp string-match "\\`Premature \\|\\`Unmatched \\|\\`Invalid " "incomplete input"] 3))) isearch-success executing-macro defining-kbd-macro isearch-done ding isearch-failed 3 isearch-cmds 2] 3]] 2)
  190. (fset 'isearch-no-upper-case-p #[(string) "└┬├ \")?ç" [nil case-fold-search string-match "\\(^\\|[^\\]\\)[A-Z]" string] 3 "\
  191. Return t if there are no upper case chars in string.
  192. But upper case chars preceeded by \\ do not count since they
  193. have special meaning in a regexp."])
  194.