;ELC ;;; compiled by jwz@thalidomide on Wed Mar 23 19:19:33 1994 ;;; from file /th/jwz/emacs19/lisp/vm/vm-search18.el ;;; emacs version 19.10 Lucid (beta8). ;;; bytecomp version 2.22; 22-dec-93. ;;; 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 "This file was compiled for Emacs 19.")) (byte-code "MMMMMMM" [vm-isearch #[(forward &optional regexp) "` X _V` \n      \n  !\" 䋈\"GV&\"'\"(!b #." ["" nil t baud-rate search-slow-speed window-height search-slow-window-lines 4 vm-ml-message-new vm-ml-message-unread vm-ml-message-read vm-ml-message-edited vm-ml-message-replied vm-ml-message-forwarded vm-ml-message-filed vm-ml-message-written vm-ml-message-marked vm-ml-message-deleted vm-ml-message-number vm-message-pointer inhibit-quit opoint found-start found-point small-window other-end slow-terminal-mode invalid-regexp adjusted barrier wrapped success cmds search-message search-string vm-isearch-push-state ((byte-code " !`" [search-done (byte-code "Y `! W[T TZ\")WZ! `\" \" \"!bت Y\" =!GU#$\"\"U '(b \"' v-=.=#-==!$01!!#4'#edb5#?#`6'! 9U:A  ;=<=#==b`<=v`){)>!>P!4>#P4)?U@UAWBUCU\"?UD!!CUE!F!P!4!P4'$$':G>#HI:A@8J6J#J6]J6^b)K=6b$#́LM(6^X'N==#=(6=T^^b )" [unread-command-char 0 input-pending-p vm-isearch-message slow-terminal-mode small-window pos-visible-in-window-p t found-point move-to-window-line 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 quit-flag 7 read-char char adjusted 128 search-exit-option throw search-done search-exit-char search-string vm-nonincremental-search forward regexp ding discard-input success opoint vm-update-search-position signal quit vm-isearch-pop search-repeat-char search-reverse-char "" search-last-regexp search-last-string mapconcat text-char-description search-message wrapped barrier vm-isearch-search vm-isearch-push-state search-delete-char cmds search-yank-word-char search-yank-line-char other-end word search-quote-char 127 32 9 13 read-quoted-char 10 char-to-string (42 63) 5 2 cs 124 (looking-at search-string) ((error)) invalid-regexp] 6) window-start selected-window found-start found-point] 2)) 0 regexp search-last-regexp search-last-string message set-window-start selected-window] 27] vm-isearch-message #[(&optional c-q-hack ellipsis) " ď  ƪ\n˪ ΪҪQưHI \"*" [invalid-regexp ellipsis nil (byte-code " `#Ç" [re-search-forward search-string t nil invalid-regexp] 4) ((error)) success "" "failing " wrapped "wrapped " regexp "regexp " "VM I-search" forward ": " " backward: " search-message c-q-hack "^Q" " [" "]" m 0 cursor-in-echo-area message "%s"] 11] vm-isearch-pop #[nil "A@@ A@ 8 8 8 8 8 8 8 8q 8) AA@b@!)" [cmds cmd search-string search-message 3 success 4 forward 5 other-end 6 invalid-regexp 7 wrapped 8 barrier 10 vm-ml-message-number 11 vm-message-pointer vm-summary-buffer vm-set-summary-pointer] 3] vm-isearch-push-state #[nil " `\n  \n  B " [search-string search-message success forward other-end invalid-regexp wrapped barrier nil vm-ml-message-number vm-message-pointer cmds] 12] vm-isearch-search #[nil "\"ŏ  @8  @8b" [vm-isearch-message nil t lossage (byte-code "\n\n Ūƪ Ǫ # ̔̕ )" [nil inhibit-quit regexp invalid-regexp forward re-search-forward re-search-backward search-forward search-backward search-string t success 0 other-end] 5) ((quit (byte-code "‡" [7 unread-command-char nil success] 1)) (invalid-regexp (byte-code "A@ \"‡" [lossage invalid-regexp string-match "\\`Premature \\|\\`Unmatched \\|\\`Invalid " "incomplete input"] 3))) success vm-update-search-position 3 cmds ding 2] 3] vm-nonincremental-search #[(forward regexp) " ʪ˪ ̪\" = Ѫ= Ԫժ ֪ת ت!GU  DB !." [nil t cursor-in-echo-area inhibit-quit string function char message regexp forward "VM Regexp search: " "VM Regexp search backward: " "VM Search: " "VM Search backward: " "%s" read-char search-yank-word-char "VM Word search: " "VM Word search backward: " unread-command-char word-search-forward word-search-backward re-search-forward re-search-backward search-forward search-backward read-string 0 search-last-string command-history] 7] vm-update-search-position #[(&optional record-change) "`@HHY`@HHX? ` @HHY @HHX \"ȉ\\ ȉU AQ\n *" [vm-message-pointer 0 5 vm-message-list point mp record-change vm-record-and-change-message-pointer nil t vm-need-summary-pointer-update vm-update-summary-and-mode-line] 4]] 2) (fset 'vm-isearch-forward #[nil " !! q =\n\"p$ed ӎp!!~\"!`@!W@HH@!d} ed," [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty major-mode vm-virtual-mode "%s cannot be applied to virtual folders." this-command vm-display t (vm-isearch-forward) (vm-isearch-forward) selected-window old-w clip-tail clip-head ((byte-code " } !" [clip-head clip-tail select-window old-w] 2)) select-window get-buffer-window vm-isearch vm-search-using-regexps vm-update-search-position vm-vheaders-of vm-message-pointer 0 vm-show-current-message reading vm-system-state] 5 "\ Incrementally search forward through the current folder's messages. Usage is identical to the standard Emacs incremental search. When the search terminates the message containing point will be selected. If the variable vm-search-using-regexps is non-nil, regular expressions are understood; nil means the search will be for the input string taken literally." nil]) (fset 'vm-isearch-backward #[nil " !! q =\n\"pD$ed Ԏp!!~\"!`@!W@HH@!d}  ed," [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty major-mode vm-virtual-mode "%s cannot be applied to virtual folders." this-command vm-display t (vm-isearch-backward) vm-isearch-backward searching-message selected-window old-w clip-tail clip-head ((byte-code " } !" [clip-head clip-tail select-window old-w] 2)) select-window get-buffer-window vm-isearch nil vm-search-using-regexps vm-update-search-position vm-vheaders-of vm-message-pointer 0 vm-show-current-message reading vm-system-state] 6 "\ Incrementally search backward through the current folder's messages. Usage is identical to the standard Emacs incremental search. When the search terminates the message containing point will be selected. If the variable vm-search-using-regexps is non-nil, regular expressions are understood; nil means the search will be for the input string taken literally." nil])