summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2012-09-29 11:15:57 -0700
committerGlenn Morris <rgm@gnu.org>2012-09-29 11:15:57 -0700
commitde82e29b3fe963e92ed7f60bc52009e3ef923a29 (patch)
treebbf4b6e843173c3f15a553f4ca0adc6b67acacbb /lisp
parent8e5691a0ecd85ea07c423835085ecfffc0013736 (diff)
downloademacs-de82e29b3fe963e92ed7f60bc52009e3ef923a29.tar.gz
emacs-de82e29b3fe963e92ed7f60bc52009e3ef923a29.tar.bz2
emacs-de82e29b3fe963e92ed7f60bc52009e3ef923a29.zip
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.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog11
-rw-r--r--lisp/hippie-exp.el8
-rw-r--r--lisp/progmodes/vhdl-mode.el1
3 files changed, 12 insertions, 8 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 455cf684757..4e61d02da9e 100644
--- 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 f787319fb0c..5639a4796a5 100644
--- 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 0ca3439dd60..52757b9eede 100644
--- 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)))