;ELC ;;; compiled by earl@killian.com on Sat Mar 4 10:18:36 2000 ;;; from file /home/earl/tycho/new/public/elisp/eaksearch.el ;;; emacs version 20.4 "Emerald" XEmacs Lucid. ;;; bytecomp version 2.25 XEmacs; 22-Mar-96. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 19. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`eaksearch.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) #@66 For minibuffer previous/next commands during search string read. (defvar search-history nil (#$ . 561)) (defalias 'string-search #[(count c backward) "À`ÁÂÀ‰‰‰ \n «ñ ÌU«†À‰ ªr ÍU«Œ ?ÀÎ ‰ ª` ÏU«Œ?Î ‰ ªN ÐU«Œ ?ÀÎ ‰ ª< ÑU«Š ?Î ‰ ª, ÒU«Œ?Î ‰ ªÓ !CÀ‰ ¬«ƒÖª×\n«†Ø\nP\n «†Ù\nP\n¬†Ú\nP\n «†\nÛP\n «†\nÜP\n\nÝQ\nÞ\nß# ¬†á ! «‡â âQ ãŽ$ «ƒebˆ «ƒdbˆ«‹å À‰&$ˆª‰ç À‰&$ˆ`‰ .\n‡" [nil "" t from-end from-beginning regexp-search word-search case-fold initial-string p prompt c ?\^A ?\^B read-char ?\^C ?\^E ?\^P ?\^W character-to-event unread-command-events backward "Reverse Search" "Search" "Word " "Regexp " "Case-sensitive " " from beginning" " from end" ": " read-string search-history search-last-string regexp-quote "\\b" ((goto-char p)) case-fold-search re-search-backward count re-search-forward] 9]) (defalias 'forward-search-char #[(count) "À ‰ÂU«‰Ã ʼn$ªÈ ÇU¬™ ÈU¬” ÉU¬ ÊU¬Š ËU¬… ÌU«ˆÍ Å#ª¢ ÎU«ÏÐÀ !!à ʼn$ªÏÐ !!à ʼn$)‡" [read-char c ?\^S re-search-forward search-last-string nil count ?\^A ?\^B ?\^C ?\^E ?\^P ?\^W string-search ?\^Q regexp-quote char-to-string] 6 nil "_p"]) (defalias 'backward-search-char #[(count) "À ‰ÂU«‰Ã ʼn$ªÈ ÇU¬™ ÈU¬” ÉU¬ ÊU¬Š ËU¬… ÌU«ˆÍ Î#ª¢ ÏU«ÐÑÀ !!à ʼn$ªÐÑ !!à ʼn$)‡" [read-char c ?\^R re-search-backward search-last-string nil count ?\^A ?\^B ?\^C ?\^E ?\^P ?\^W string-search t ?\^Q regexp-quote char-to-string] 6 nil "_p"]) (provide 'eaksearch)