;ELC ;;; compiled by erik@naggum.no on Tue Jun 25 14:40:51 1996 ;;; from file /home/gd/gnu/emacs/19.0/lisp/hippie-exp.el ;;; emacs version 19.31.4. ;;; bytecomp version FSF 2.10 ;;; 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.29"))) (error "`hippie-exp.el' was compiled for Emacs 19.29 or later")) (byte-code "! B!  B!#  B!0 B!= B!J\n B!X  B!e\f B!r B! B! B! Bȇ" [boundp he-num -1 current-load-list he-string-beg make-marker he-string-end he-search-string nil he-expand-list he-tried-table he-search-loc he-search-loc2 he-search-bw he-search-bufs he-searched-n-bufs he-search-window] 2) #@174 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-try-functions-list (quote (try-complete-file-name-partially try-complete-file-name try-expand-all-abbrevs try-expand-list try-expand-line try-expand-dabbrev try-expand-dabbrev-all-buffers try-expand-dabbrev-from-kill try-complete-lisp-symbol-partially try-complete-lisp-symbol)) (#$ . 872)) #@68 *Non-nil makes `hippie-expand' output which function it is trying. (defvar hippie-expand-verbose t (#$ . -1364)) #@101 *The maximum number of buffers (apart from the current) searched. If nil, all buffers are searched. (defvar hippie-expand-max-buffers nil (#$ . -1484)) #@153 *A list specifying which buffers not to search (if not current). Can contain both regexps matching buffer names (as strings) and major modes (as atoms) (defvar hippie-expand-ignore-buffers (quote ("^ \\*.*\\*$" dired-mode)) (#$ . -1643)) #@430 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. (defalias 'hippie-expand #[(arg) "V\nU\f ?$35 5\n\\]\n GY\\\n 8\n\nUC\"\\\nT\n=\n)\n GYv!z!  !?\n 8!\")\nY!p=  !?!" [arg 0 he-num -1 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 window-minibuffer-p selected-window "Using %s" prin1-to-string marker-buffer he-string-beg "Undoing expansions"] 6 (#$ . 1888) "P"]) (defalias 'he-init-string #[(beg end) " “ \f“ \f{" [he-string-beg beg nil he-string-end end he-search-string] 3]) (defalias 'he-reset-string #[nil " \nb c`\f| b)" [point-marker newpos he-string-beg he-search-string he-string-end] 2]) (defalias 'he-substitute-string #[(str &optional trans-case) " \n b! \n\"#\n B c`\f|b+" [trans-case case-replace case-fold-search point-marker nil subst newpos he-string-beg he-transfer-case he-search-string str he-tried-table he-string-end] 4]) (defalias 'he-capitalize-first #[(str) " Ž \"$ Ɣ HI*% *" [match-data match-data ((store-match-data match-data)) string-match "\\Sw*\\(\\sw\\).*" str 1 no res] 5]) (defalias 'he-ordinary-case-p #[(str) "!!" [str capitalize he-capitalize-first] 3]) (defalias 'he-transfer-case #[(from-str to-str) " G G^O ! ! + !7 !!C ! " [from-str to-str 0 he-ordinary-case-p he-capitalize-first capitalize] 5]) (defalias 'he-string-member #[(str lst &optional trans-case) " \n  \"" [str trans-case case-replace case-fold-search he-transfer-case he-search-string lst] 3]) (defalias 'he-regexp-member #[(str lst) "@;@\n\"A" [lst string-match str] 4]) #@172 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 'make-hippie-expand-function '(macro . #[(try-list &optional verbose) "!#PD DDBBD" [function 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))] 9 (#$ . 4214)])) #@243 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 #[(old) "I `\"\f!\f!!   \"*  B \fǚE!E \"\"H*a@ \"aANom ч\f!@\"!@ AB A)և" [old he-init-string he-file-name-beg he-file-name-nondirectory he-search-string expand-file-name he-file-name-directory "" dir-part name-part he-string-member he-tried-table he-file-directory-p sort file-name-all-completions string-lessp he-expand-list nil he-reset-string he-concat-directory-file-name filename he-substitute-string t] 5 (#$ . 4768)]) #@214 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. (defalias 'try-complete-file-name-partially #[(old) "\nK `\"!!!\n ɚ3\n!3 \n\" =H  H \"J* Z\nV q! \"! AB))" [nil expansion old he-init-string he-file-name-beg he-file-name-nondirectory he-search-string expand-file-name he-file-name-directory "" dir-part name-part he-file-directory-p file-name-completion t he-string-member he-tried-table he-reset-string he-concat-directory-file-name filename he-substitute-string] 4 (#$ . 5567)]) #@65 Characters that are considered part of the file name to expand. (defvar he-file-name-chars (byte-code ">‡>ćŇ" [system-type (vax-vms axp-vms) "-a-zA-Z0-9_/.,~^#$+=:\\[\\]" (ms-dos windows-nt) "-a-zA-Z0-9_/.,~^#$+=:\\\\" "-a-zA-Z0-9_/.,~^#$+="] 2) (#$ . 6289)) (defalias 'he-file-name-beg #[nil "x`)" [he-file-name-chars nil] 2]) #@72 Fix to make `file-name-nondirectory' work for hippie-expand under VMS. (defalias 'he-file-name-nondirectory #[(file) "> !\f\"\fȔȕOP\f) !" [system-type (axp-vms vax-vms) file-name-nondirectory file n string-match "^\\(\\[.*\\)\\.\\([^\\.]*\\)$" "[." 2] 4 (#$ . 6641)]) #@69 Fix to make `file-name-directory' work for hippie-expand under VMS. (defalias 'he-file-name-directory #[(file) ">' ! !\"$ ɔɕOQ% * !" [system-type (axp-vms vax-vms) file-name-nondirectory file file-name-directory d n string-match "^\\(\\[.*\\)\\.\\([^\\.]*\\)$" 1 "]"] 4 (#$ . 6936)]) #@66 Fix to make `file-directory-p' work for hippie-expand under VMS. (defalias 'he-file-directory-p #[(file) "> ! P! !" [system-type (vax-vms axp-vms) file-directory-p file "[000000]"] 3 (#$ . 7251)]) #@77 Try to slam together two parts of a file specification, system dependently. (defalias 'he-concat-directory-file-name #[(dir-part name-part) " \n>,OƘ( Oɘ(O OP P\n>U\"Q\"Q GSHUQ GSI P P" [dir-part name-part system-type (axp-vms vax-vms) -1 nil "]" 0 2 "[." 1 (ms-dos ms-windows) string-match "\\\\" "/" 47 92] 4 (#$ . 7468)]) #@252 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 #[(old) "' `\"\f \"\f B\fƚ?%\f #\"\f\f>\f@ \">\fA\f,\fLJ ·\f@!\fA\fЇ" [old he-init-string he-lisp-symbol-beg he-string-member he-search-string he-tried-table "" 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 (#$ . 7850)]) #@218 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. (defalias 'try-complete-lisp-symbol-partially #[(old) "\n/ `\" Ƙ # =- - \f\"/ >\n: C !)" [nil expansion old he-init-string he-lisp-symbol-beg he-search-string "" try-completion obarray #[(sym) " ! ! !" [boundp sym fboundp symbol-plist] 2] t he-string-member he-tried-table he-reset-string he-substitute-string] 4 (#$ . 8533)]) (defalias 'he-lisp-symbol-beg #[nil " x`*" ["-a-zA-Z0-9_." skips nil] 2]) #@272 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 #[(old) "p!\n  !`\"  \f͚a Kb\f #`\fK \f`b\f #`)\fp l v\f\"*" [nil get-buffer-process comint-prompt-regexp strip-prompt expansion old he-init-string he-line-beg he-search-loc he-string-beg t he-search-bw he-search-string "" he-line-search he-string-end he-reset-string he-substitute-string] 4 (#$ . 9216)]) #@269 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. (defalias 'try-expand-line-all-buffers #[(old) "p!\np ,!`\" \f\f@Қ\fJW\f@qp => \"bp!r\n\f#)`\fA\fT\f@)3\fA\f\f@3 q \"," [nil get-buffer-process comint-prompt-regexp case-fold-search orig-case-fold-search buf strip-prompt expansion old he-init-string he-line-beg buffer-list he-search-bufs 0 he-searched-n-bufs he-search-loc 1 he-search-string "" hippie-expand-max-buffers major-mode hippie-expand-ignore-buffers he-regexp-member buffer-name he-line-search he-reset-string he-substitute-string t] 4 (#$ . 9907)]) (defalias 'he-line-search #[(str strip-prompt reverse) " 7\n \"# \"#7ɔɕ{  # )" [nil result reverse re-search-backward he-line-search-regexp str strip-prompt t re-search-forward 2 he-string-member he-tried-table] 5]) (defalias 'he-line-beg #[(strip-prompt) " \"y`)#Ɣ`)" [re-search-backward he-line-search-regexp "" strip-prompt 0 t 2] 4]) (defalias 'he-line-search-regexp #[(pat strip-prompt) "\n !ư !Q" [strip-prompt "\\(" comint-prompt-regexp "\\|^\\s-*\\)\\(" regexp-quote pat "[^\n]*[^ \n]\\)" "^\\(\\s-*\\)\\("] 5]) #@255 Try to complete the current beginning of a list. 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-list #[(old) "\n `\"  ʚP= b \" ` = \f O b \" `) _\n[ e \")" [nil expansion old he-init-string he-list-beg he-search-loc he-string-beg t he-search-bw he-search-string "" he-list-search he-string-end he-reset-string he-substitute-string] 3 (#$ . 11437)]) #@269 Try to complete the current list, 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. (defalias 'try-expand-list-all-buffers #[(old) "p   `\"   \f @Ϛ \f< W @qp => \"\fb\n\")\f`\f A  T \f @)& A \f @& q\f \f\"+" [nil case-fold-search orig-case-fold-search buf expansion old he-init-string he-list-beg buffer-list he-search-bufs 0 he-searched-n-bufs he-search-loc 1 he-search-string "" hippie-expand-max-buffers major-mode hippie-expand-ignore-buffers he-regexp-member buffer-name he-list-search he-reset-string he-substitute-string t] 3 (#$ . 12039)]) (defalias 'he-list-search #[(str reverse) "\fW ##W`ʔb̏ >` V> Q `{\f#Q\nb\f," [nil err pos beg result reverse search-backward str t search-forward 0 (forward-list 1) ((error (byte-code "" [t err] 1))) he-string-beg he-string-member he-tried-table] 5]) (defalias 'he-list-beg #[nil "`)" [nil (backward-up-list 1) ((error))] 3]) #@268 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-all-abbrevs #[(old) " `\" Ě? \"\"\n\n:\n@1\n@\f#:\nA\n \nHF χ\n@\"\nA\n͇" [old he-init-string he-dabbrev-beg he-search-string "" mapcar #[(sym) " ! !! !\"" [boundp sym vectorp eval abbrev-expansion he-search-string] 4] append (local-abbrev-table global-abbrev-table) abbrev-table-name-list he-expand-list he-string-member he-tried-table t he-reset-string nil he-substitute-string] 6 (#$ . 13293)]) #@268 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 #[(old) "\n `\"  ʚP= b \" ` = \f O b \" `) _\n[ e \")" [nil expansion old he-init-string he-dabbrev-beg he-search-loc he-string-beg t he-search-bw he-search-string "" he-dabbrev-search he-string-end he-reset-string he-substitute-string] 3 (#$ . 14051)]) #@269 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. (defalias 'try-expand-dabbrev-all-buffers #[(old) "p   `\"   \f @Ϛ \f< W @qp => \"\fb\n\")\f`\f A  T \f @)& A \f @& q\f \f\"+" [nil case-fold-search orig-case-fold-search buf expansion old he-init-string he-dabbrev-beg buffer-list he-search-bufs 0 he-searched-n-bufs he-search-loc 1 he-search-string "" hippie-expand-max-buffers major-mode hippie-expand-ignore-buffers he-regexp-member buffer-name he-dabbrev-search he-reset-string he-substitute-string t] 3 (#$ . 14675)]) #@270 Try to expand word "dynamically", searching visible window parts. 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-visible #[(old) "p !!Ă 1 `\" \f \f!\f!њ ! !q b\f!#|!p=|!ה=|\f!# `p)1\f#\f = 1 \f!\f!1q \"+" [nil frame-visible-p window-frame selected-window visible t flag buf expansion old he-init-string he-dabbrev-beg he-search-window he-search-loc window-start window-buffer he-search-string "" marker-position marker-buffer he-dabbrev-search window-end he-string-beg 0 next-window he-reset-string he-substitute-string] 6 (#$ . 15539)]) (defalias 'he-dabbrev-search #[(pattern &optional reverse limit) " Hz= !P !Qc 0 #7 #c”•{”eVR”Sfz>\\#!*" [nil pattern 0 95 regexp-quote "\\(\\sw\\|\\s_\\)+" "\\<" regpat result reverse re-search-backward limit t re-search-forward (95 119) he-string-member he-tried-table] 5]) #@71 Non-NIL means tolerate trailing spaces in the abbreviation to expand. (defvar he-dabbrev-skip-space nil (#$ . 16756)) (defalias 'he-dabbrev-beg #[nil "` !!U`*" [op he-dabbrev-skip-space skip-syntax-backward ". " "w_" 0] 2]) #@265 Try to expand word "dynamically", searching the kill ring. 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-dabbrev-from-kill #[(old) "\n `\" ƚ?\n ƚ$ ! 3\n/ 9 \")" [nil expansion old he-init-string he-dabbrev-beg he-search-string "" kill-ring he-expand-list 0 he-search-loc2 he-dabbrev-kill-search he-reset-string he-substitute-string t] 3 (#$ . 17006)]) (defalias 'he-dabbrev-kill-search #[(pattern) " Hz= !P !Q@ \n\n\nm \f#m”•O\n”T\f”V\\”SHz>f\n#+\n0\n!!A@\f!\n+" [nil pattern 0 95 regexp-quote "\\(\\sw\\|\\s_\\)+" "\\<" he-expand-list killstr regpat result string-match he-search-loc2 (95 119) he-string-member he-tried-table t] 5]) #@262 Try to complete text with something from the kill ring. 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-whole-kill #[(old) "\n+ `\"\"BȚ?& \n Ț7! F\nB K !)" [nil expansion old he-init-string he-kill-beg he-string-member he-search-string he-tried-table "" kill-ring he-expand-list he-search-loc2 he-whole-kill-search he-reset-string he-substitute-string t] 3 (#$ . 17953)]) (defalias 'he-whole-kill-search #[(str) "\n! @  3\n T#3  B   @ A  b` ZeYt` ZfH=t O` Z#t O)3\"38  A@-" [nil regexp-quote str he-expand-list -1 pos killstr result case-fold-search he-search-loc2 string-match he-string-beg 0 search-backward t he-string-member he-tried-table] 6]) (defalias 'he-kill-beg #[nil "`!!U`*" [op skip-syntax-backward "^w_" "w_" 0] 2]) (provide (quote hippie-exp))