;;; compiled by jimb@geech.gnu.ai.mit.edu on Sat May 15 21:56:07 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/hippie.el ;;; emacs version 19.5.19. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (byte-code "ÀÁ!„ÂÀÃ!„ÄÀÅ!„ÄÀÆ!„!ÄÀÇ!„*ÄÀÈ!„3ÄÀÉ!„<Ä ÀÊ!„EÄ\nÀË!„NÄ ć" [boundp he-num -1 he-string-beg nil he-string-end he-search-string he-expand-list he-tried-table he-search-loc he-search-bw he-search-bufs] 2) (defvar hippie-expand-try-functions-list (quote (try-complete-file-name try-expand-all-abbrevs try-expand-line try-expand-dabbrev try-expand-dabbrev-all-buffers try-complete-lisp-symbol)) "\ The list of expansion functions tried in order by `hippie-expand'. To change the behavior of `hippie-expand', remove, change the order of, or insert functions in this list.") (defvar hippie-expand-verbose t "\ *Non-nil makes `hippie-expand' output which function it is trying.") (defalias 'hippie-expand #[(arg) "ƒÁ!ƒ”ÂVƒ” ÄU†Å\"?‰ƒ(ÄÉ\nƒ7„9Ë ˆ‚9 \\Â]‰  GY„`Î  8  UC\"„` T‰ ‚A )  GYƒƒÄƒzÏÐ!ˆ‚~ÏÑ!ˆÒ ‚’…’ÏÔÕ  8!P!)‡ ÂY…§ÄË ˆ…§ÏÖ!‡" [arg integerp 0 he-num -1 equal this-command last-command first nil he-tried-table he-reset-string i hippie-expand-try-functions-list apply message "No expansion found" "No further expansions found" ding hippie-expand-verbose "Using " prin1-to-string "Undoing expansions"] 6 "\ Try to expand text before point, using multiple methods. The expansion functions in `hippie-expand-try-functions-list' are tried in order, until a possible expansion is found. Repeated application of `hippie-expand' inserts successively possible expansions. With a positive numeric argument, jumps directly to the ARG next function in this list. With a negative argument or just \\[universal-argument], undoes the expansion." "P"]) (byte-code "ÀÁMˆÂÃMˆÄÅMˆÆÇMˆÈÉMˆÊËM‡" [he-init-string #[(beg end) "\nÄ\n\"‰‡" [beg he-string-beg end he-string-end buffer-substring he-search-string] 3] he-reset-string #[nil "À \n\"ˆ cˆ`‰‡" [delete-region he-string-beg he-string-end he-search-string] 3] he-substitute-string #[(str &optional trans-case) "… …\n…à \"Æ ˆbˆÈ !ˆÉƒ'Ê !‚( ?Ë#ˆ`‰ )‡" [trans-case case-replace case-fold-search he-transfer-case-ok str he-search-string he-reset-string he-string-beg search-forward replace-match downcase literal he-string-end] 4] he-ordinary-case-p #[(str) "À  !\"†À à !\"†À Ä !\"‡" [string= str downcase upcase capitalize] 4] he-transfer-case-ok #[(to-str from-str) "À \nà GO\"?…Ä\n!…Ä !‡" [string= from-str to-str 0 he-ordinary-case-p] 5] he-string-member #[(str lst) "ƒ' ƒ\nƒÃÄ@!Ä !\"‚Ã@ \"„'A‰„‡" [lst case-fold-search case-replace string= downcase str] 5]] 2) (defalias 'make-hippie-expand-function '(macro . #[(try-list &optional verbose) "ÀÁÂÃÄÅÆÇ!É#PÊËÌDÍDDÏE%D‡" [quote list lambda (arg) "Try to expand text before point, using the following functions: \n" mapconcat prin1-to-string eval try-list ", " (interactive "P") let hippie-expand-try-functions-list hippie-expand-verbose verbose (hippie-expand arg)] 10 "\ Construct a function similar to `hippie-expand'. Make it use the expansion functions in TRY-LIST. An optional second argument VERBOSE non-nil makes the function verbose."])) (defalias 'try-complete-file-name #[(old) "„JÁ `\"ˆÃ !ÅÆ !†Ç! Ê  \"„*  B Ì Ç\"„FÍ!ƒFÎÏ \"Ð\"‚IÒ*ƒbÊ@ \"ƒbA‰„O„lÓ ˆÒ‡Æ !@PÕ!ˆ@ B A)Ö‡" [old he-init-string he-file-name-beg file-name-nondirectory he-search-string expand-file-name file-name-directory "" dir-part name-part he-string-member he-tried-table equal file-directory-p sort file-name-all-completions string-lessp he-expand-list nil he-reset-string filename he-substitute-string t] 5 "\ Try to complete text as a file name. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible completions of the same string). It returns t if a new completion is found, nil otherwise."]) (defalias 'try-complete-file-name-partially #[(old) "À\n„EÃÄ `\"ˆÅ!ÇÈ!†É!\n ÌÉ\"„4Í\n!ƒ4Î \n\" Ï=„BÐ  \"ƒDÀ* „PÑ ˆÀ‚eÈ! PÓ!ˆ B)Ï)‡" [nil expansion old he-init-string he-file-name-beg file-name-nondirectory he-search-string expand-file-name file-name-directory "" dir-part name-part equal file-directory-p file-name-completion t string= he-reset-string filename he-substitute-string he-tried-table] 4 "\ Try to complete text as a file name, as many characters as unique. The argument OLD has to be nil the first call of this function. It returns t if a unique, possibly partial, completion is found, nil otherwise."]) (fset (quote he-file-name-beg) #[nil "ÀŠÂ !ˆ`*‡" ["-a-zA-Z0-9_./~^#$" skips skip-chars-backward] 2]) (defalias 'try-complete-lisp-symbol #[(old) "„(Á `\"ˆÃ \"„ BÆ Ç\"?…&ÈÉ \nË#Ì\"  ƒ?à @ \"ƒ? A‰ „- „IÎ ˆÏ‡Ð @!ˆ @ B A ч" [old he-init-string he-lisp-symbol-beg he-string-member he-search-string he-tried-table equal "" sort all-completions obarray #[(sym) "À !† !†à !‡" [boundp sym fboundp symbol-plist] 2] string-lessp he-expand-list he-reset-string nil he-substitute-string t] 6 "\ Try to complete word as an Emacs Lisp symbol. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible completions of the same string). It returns t if a new completion is found, nil otherwise."]) (defalias 'try-complete-lisp-symbol-partially #[(old) "À\n„,ÃÄ `\"ˆÅÇ\"„È Ê# Ë=„*Å \"ƒ,À „7Ì ˆÀ‚BÍ !ˆ BË)‡" [nil expansion old he-init-string he-lisp-symbol-beg string= he-search-string "" try-completion obarray #[(sym) "À !† !†à !‡" [boundp sym fboundp symbol-plist] 2] t he-reset-string he-substitute-string he-tried-table] 4 "\ Try to complete as an Emacs Lisp symbol, as many characters as unique. The argument OLD has to be nil the first call of this function. It returns t if a unique, possibly partial, completion is found, nil otherwise."]) (fset (quote he-lisp-symbol-beg) #[nil "ÀŠÂ !ˆ`*‡" ["-a-zA-Z0-9_." skips skip-chars-backward] 2]) (defalias 'try-expand-line #[(old) "ÀÁp!…\n „ÆÇ !`\"ˆ Ê Ì Î\"„XŠ ƒD bˆÏ Ê#Ð  „D À „W bˆÏ À#Ð  ) „cÒ ˆÀ‚oÓ Ê\"ˆ BÊ*‡" [nil get-buffer-process shell-prompt-pattern strip-prompt expansion old he-init-string he-line-beg he-string-beg he-search-loc t he-search-bw equal he-search-string "" he-line-search point-marker he-string-end he-reset-string he-substitute-string he-tried-table] 4 "\ Try to complete the current line to an entire line in the buffer. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible completions of the same string). It returns t if a new completion is found, nil otherwise."]) (defalias 'try-expand-line-all-buffers #[(old) "ÀÁp!…\np„ÇÈ !`\"ˆÉ\nË  ÍÏ\"„l ƒl „l @qˆp =„SÑ=„SŠ\nbˆÒ À#Ó \n) ƒ` B‚'É\n A‰ „, qˆ „zÕ ˆÀ‚€Ö ×\"ˆ×+‡" [nil get-buffer-process shell-prompt-pattern buf strip-prompt expansion old he-init-string he-line-beg 0 he-search-loc buffer-list he-search-bufs equal he-search-string "" major-mode dired-mode he-line-search point-marker he-tried-table he-reset-string he-substitute-string t] 5 "\ Try to complete the current line, searching all other buffers. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible completions of the same string). It returns t if a new completion is found, nil otherwise."]) (byte-code "ÀÁMˆÂÃMˆÄÅM‡" [he-line-search #[(str strip-prompt reverse) "À „9\nƒÃÄ \"ÀÇ#‚ÈÄ \"ÀÇ#ƒ9ÉÊË!ÌË!\"Í \"ƒÀ‰ƒ )‡" [nil result reverse re-search-backward he-line-search-regexp str strip-prompt t re-search-forward buffer-substring match-beginning 2 match-end he-string-member he-tried-table] 5] he-line-beg #[(strip-prompt) "ŠÀ ˆÁÂà \"ŠÅÆ!ˆ`)Ç#ƒÈÉ!‚ ÅÆ!ˆ`)‡" [end-of-line re-search-backward he-line-search-regexp "" strip-prompt forward-line 0 t match-beginning 2] 4] he-line-search-regexp #[(pat strip-prompt) "ƒÁ ÄÅ!Ç%‡ÈÅ!ÇQ‡" [strip-prompt concat "\\(" shell-prompt-pattern "\\|^\\s-*\\)\\(" regexp-quote pat "[^\n]*[^ \n]\\)" "^\\(\\s-*\\)\\("] 6]] 2) (defalias 'try-expand-all-abbrevs #[(old) "„Á `\"ˆÃ Å\"?…ÆÇÈÉ\n\"\"  ƒ: @ƒ1Ì @ \"ƒ: A‰ „! „DÎ ˆÏ‡Ð @!ˆ @ B  A ч" [old he-init-string he-dabbrev-beg equal he-search-string "" mapcar #[(sym) "À  !\"‡" [abbrev-expansion he-search-string eval sym] 4] append (local-abbrev-table global-abbrev-table) abbrev-table-name-list he-expand-list he-string-member he-tried-table he-reset-string nil he-substitute-string t] 6 "\ Try to expand word before point according to all abbrev tables. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible expansions of the same string). It returns t if a new expansion is found, nil otherwise."]) (defalias 'try-expand-dabbrev #[(old) "À\n„ÃÄ `\"ˆ ÇÉ\nË\"„LŠƒ9bˆÌ\nÇ\"Í  „9À „KbˆÌ\nÀ\"Í ) „WÏ ˆÀ‚cÐ Ç\"ˆ BÇ)‡" [nil expansion old he-init-string he-dabbrev-beg he-string-beg he-search-loc t he-search-bw equal he-search-string "" he-dab-search point-marker he-string-end he-reset-string he-substitute-string he-tried-table] 3 "\ Try to expand word \"dynamically\", searching the current buffer. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible expansions of the same string). It returns t if a new expansion is found, nil otherwise."]) (defalias 'try-expand-dabbrev-all-buffers #[(old) "Àp „ÄÅ `\"ˆÆÈ  Ê Ì\"„a ƒa\n„a @qˆp =„H Î=„HŠbˆÏ À\"Ð )\nƒU\nB‚Æ A‰ „\" qˆ\n„oÒ ˆÀ‚uÓ\nÔ\"ˆÔ*‡" [nil buf expansion old he-init-string he-dabbrev-beg 0 he-search-loc buffer-list he-search-bufs equal he-search-string "" major-mode dired-mode he-dab-search point-marker he-tried-table he-reset-string he-substitute-string t] 4 "\ Tries to expand word \"dynamically\", searching all other buffers. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible expansions of the same string). It returns t if a new expansion is found, nil otherwise."]) (byte-code "ÀÁMˆÂÃMˆÄÅM‡" [he-dab-search-regexp #[(pat) "ÀÁ\n!ÃQ‡" ["\\b" regexp-quote pat "\\(\\sw\\|\\s_\\)+"] 3] he-dab-search #[(pattern reverse) "À „5\nƒÃÄ !ÀÆ#‚ÇÄ !ÀÆ#ƒ5ÈÉÊ!ËÊ!\"Ì  \"ƒÀ‰ƒ )‡" [nil result reverse re-search-backward he-dab-search-regexp pattern t re-search-forward buffer-substring match-beginning 0 match-end he-string-member he-tried-table] 5] he-dabbrev-beg #[nil "ÀŠÂ !ˆÃÄ!ˆ`*‡" ["-a-zA-Z0-9_." skips skip-chars-backward skip-chars-forward "-_."] 2]] 2)