From ddb6e2e2058910551e412b634d582511e901c912 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 25 Nov 1999 19:18:59 +0000 Subject: [PATCH] Require comint when compiling. (hippie-expand): Add :links. (hippie-expand-try-functions-list): Customize. --- lisp/ChangeLog | 6 ++++++ lisp/hippie-exp.el | 29 ++++++++++++++++++----------- 2 files changed, 24 insertions(+), 11 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a22ce4b2dbe..00df3372709 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +1999-11-25 Dave Love + + * hippie-exp.el: Require comint when compiling. + (hippie-expand): Add :links. + (hippie-expand-try-functions-list): Customize. + 1999-11-24 Michael Kifer * viper*el: replaced old-style backquotes. diff --git a/lisp/hippie-exp.el b/lisp/hippie-exp.el index df2d88f5978..747b5d6a61d 100644 --- a/lisp/hippie-exp.el +++ b/lisp/hippie-exp.el @@ -168,8 +168,12 @@ ;;; Code: +(eval-when-compile (require 'comint)) + (defgroup hippie-expand nil "Expand text trying various ways to find its expansion." + :link '(custom-manual "(autotype)Hippie Expand") + :link '(emacs-commentary-link "hippie-exp") :group 'abbrev :group 'convenience) @@ -198,19 +202,22 @@ (defvar he-search-window ()) ;;;###autoload -(defvar hippie-expand-try-functions-list '(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) +(defcustom hippie-expand-try-functions-list + '(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) "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.") +or insert functions in this list." + :type '(repeat function) + :group 'hippie-expand) ;;;###autoload (defcustom hippie-expand-verbose t -- 2.39.5