Do not autoload defcustoms in hippie-exp.el

* lisp/hippie-exp.el (hippie-expand-try-functions-list)
(hippie-expand-verbose, hippie-expand-dabbrev-skip-space)
(hippie-expand-dabbrev-as-symbol, hippie-expand-no-restriction)
(hippie-expand-max-buffers, hippie-expand-ignore-buffers)
(hippie-expand-only-buffers): Do not autoload defcustoms.
* lisp/progmodes/vhdl-mode.el (vhdl-line-expand):
Explicitly load hippie-exp, so it does not get autoloaded
while hippie-expand-try-functions-list is let-bound.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 455cf68475750254fdbb5541db592caee671994d..4e61d02da9e47692ca8dfd0ff7be89b55b62f296 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2012-09-29  Glenn Morris  <rgm@gnu.org>
+
+       * hippie-exp.el (hippie-expand-try-functions-list)
+       (hippie-expand-verbose, hippie-expand-dabbrev-skip-space)
+       (hippie-expand-dabbrev-as-symbol, hippie-expand-no-restriction)
+       (hippie-expand-max-buffers, hippie-expand-ignore-buffers)
+       (hippie-expand-only-buffers): Do not autoload defcustoms.
+       * progmodes/vhdl-mode.el (vhdl-line-expand):
+       Explicitly load hippie-exp, so it does not get autoloaded
+       while hippie-expand-try-functions-list is let-bound.
+
 2012-09-28  Glenn Morris  <rgm@gnu.org>
 
        * emacs-lisp/cl.el (flet): Fix case of obsolescence message.

diff --git a/lisp/hippie-exp.el b/lisp/hippie-exp.el
index f787319fb0cab7f2c26874f19b8d80086c8ef031..5639a4796a51b5955b3764c15aa057858a3e818b 100644 (file)
--- a/lisp/hippie-exp.el
+++ b/lisp/hippie-exp.el
@@ -199,7 +199,6 @@
 
 (defvar he-search-window ())
 
-;;;###autoload
 (defcustom hippie-expand-try-functions-list
   '(try-complete-file-name-partially
     try-complete-file-name
@@ -217,31 +216,26 @@ or insert functions in this list."
   :type '(repeat function)
   :group 'hippie-expand)
 
-;;;###autoload
 (defcustom hippie-expand-verbose t
   "Non-nil makes `hippie-expand' output which function it is trying."
   :type 'boolean
   :group 'hippie-expand)
 
-;;;###autoload
 (defcustom hippie-expand-dabbrev-skip-space nil
   "Non-nil means tolerate trailing spaces in the abbreviation to expand."
   :group 'hippie-expand
   :type 'boolean)
 
-;;;###autoload
 (defcustom hippie-expand-dabbrev-as-symbol t
   "Non-nil means expand as symbols, i.e. syntax `_' is considered a letter."
   :group 'hippie-expand
   :type 'boolean)
 
-;;;###autoload
 (defcustom hippie-expand-no-restriction t
   "Non-nil means that narrowed buffers are widened during search."
   :group 'hippie-expand
   :type 'boolean)
 
-;;;###autoload
 (defcustom hippie-expand-max-buffers ()
   "The maximum number of buffers (apart from the current) searched.
 If nil, all buffers are searched."
@@ -249,7 +243,6 @@ If nil, all buffers are searched."
                 integer)
   :group 'hippie-expand)
 
-;;;###autoload
 (defcustom hippie-expand-ignore-buffers (list (purecopy "^ \\*.*\\*$") 'dired-mode)
   "A list specifying which buffers not to search (if not current).
 Can contain both regexps matching buffer names (as strings) and major modes
@@ -257,7 +250,6 @@ Can contain both regexps matching buffer names (as strings) and major modes
   :type '(repeat (choice regexp (symbol :tag "Major Mode")))
   :group 'hippie-expand)
 
-;;;###autoload
 (defcustom hippie-expand-only-buffers ()
   "A list specifying the only buffers to search (in addition to current).
 Can contain both regexps matching buffer names (as strings) and major modes

diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el
index 0ca3439dd603e1b652bb3e6408cd0e0fcf3f1163..52757b9eede9d1df557a101b5bdc2a7cbe34bf15 100644 (file)
--- a/lisp/progmodes/vhdl-mode.el
+++ b/lisp/progmodes/vhdl-mode.el
@@ -12522,6 +12522,7 @@ options vhdl-upper-case-{keywords,types,attributes,enum-values}."
 (defun vhdl-line-expand (&optional prefix-arg)
   "Hippie-expand current line."
   (interactive "P")
+  (require 'hippie-exp)
   (let ((case-fold-search t) (case-replace nil)
        (hippie-expand-try-functions-list
         '(try-expand-line try-expand-line-all-buffers)))