Mercurial > emacs
comparison lisp/hippie-exp.el @ 26599:e10a1d0deb4b
Require comint when compiling.
(hippie-expand): Add :links.
(hippie-expand-try-functions-list): Customize.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 25 Nov 1999 19:18:15 +0000 |
| parents | 725d46ec6403 |
| children | 4706d5e24141 |
comparison
equal
deleted
inserted
replaced
| 26598:7c28a5765af4 | 26599:e10a1d0deb4b |
|---|---|
| 166 ;; how to improve it, and all those who helped to find and remove bugs. | 166 ;; how to improve it, and all those who helped to find and remove bugs. |
| 167 ;; | 167 ;; |
| 168 | 168 |
| 169 ;;; Code: | 169 ;;; Code: |
| 170 | 170 |
| 171 (eval-when-compile (require 'comint)) | |
| 172 | |
| 171 (defgroup hippie-expand nil | 173 (defgroup hippie-expand nil |
| 172 "Expand text trying various ways to find its expansion." | 174 "Expand text trying various ways to find its expansion." |
| 175 :link '(custom-manual "(autotype)Hippie Expand") | |
| 176 :link '(emacs-commentary-link "hippie-exp") | |
| 173 :group 'abbrev | 177 :group 'abbrev |
| 174 :group 'convenience) | 178 :group 'convenience) |
| 175 | 179 |
| 176 (defvar he-num -1) | 180 (defvar he-num -1) |
| 177 | 181 |
| 196 (defvar he-searched-n-bufs ()) | 200 (defvar he-searched-n-bufs ()) |
| 197 | 201 |
| 198 (defvar he-search-window ()) | 202 (defvar he-search-window ()) |
| 199 | 203 |
| 200 ;;;###autoload | 204 ;;;###autoload |
| 201 (defvar hippie-expand-try-functions-list '(try-complete-file-name-partially | 205 (defcustom hippie-expand-try-functions-list |
| 202 try-complete-file-name | 206 '(try-complete-file-name-partially |
| 203 try-expand-all-abbrevs | 207 try-complete-file-name |
| 204 try-expand-list | 208 try-expand-all-abbrevs |
| 205 try-expand-line | 209 try-expand-list |
| 206 try-expand-dabbrev | 210 try-expand-line |
| 207 try-expand-dabbrev-all-buffers | 211 try-expand-dabbrev |
| 208 try-expand-dabbrev-from-kill | 212 try-expand-dabbrev-all-buffers |
| 209 try-complete-lisp-symbol-partially | 213 try-expand-dabbrev-from-kill |
| 210 try-complete-lisp-symbol) | 214 try-complete-lisp-symbol-partially |
| 215 try-complete-lisp-symbol) | |
| 211 "The list of expansion functions tried in order by `hippie-expand'. | 216 "The list of expansion functions tried in order by `hippie-expand'. |
| 212 To change the behavior of `hippie-expand', remove, change the order of, | 217 To change the behavior of `hippie-expand', remove, change the order of, |
| 213 or insert functions in this list.") | 218 or insert functions in this list." |
| 219 :type '(repeat function) | |
| 220 :group 'hippie-expand) | |
| 214 | 221 |
| 215 ;;;###autoload | 222 ;;;###autoload |
| 216 (defcustom hippie-expand-verbose t | 223 (defcustom hippie-expand-verbose t |
| 217 "*Non-nil makes `hippie-expand' output which function it is trying." | 224 "*Non-nil makes `hippie-expand' output which function it is trying." |
| 218 :type 'boolean | 225 :type 'boolean |