aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2012-09-29 11:15:57 -0700
committerGlenn Morris2012-09-29 11:15:57 -0700
commitde82e29b3fe963e92ed7f60bc52009e3ef923a29 (patch)
treebbf4b6e843173c3f15a553f4ca0adc6b67acacbb
parent8e5691a0ecd85ea07c423835085ecfffc0013736 (diff)
downloademacs-de82e29b3fe963e92ed7f60bc52009e3ef923a29.tar.gz
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.
-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 @@
12012-09-29 Glenn Morris <rgm@gnu.org>
2
3 * hippie-exp.el (hippie-expand-try-functions-list)
4 (hippie-expand-verbose, hippie-expand-dabbrev-skip-space)
5 (hippie-expand-dabbrev-as-symbol, hippie-expand-no-restriction)
6 (hippie-expand-max-buffers, hippie-expand-ignore-buffers)
7 (hippie-expand-only-buffers): Do not autoload defcustoms.
8 * progmodes/vhdl-mode.el (vhdl-line-expand):
9 Explicitly load hippie-exp, so it does not get autoloaded
10 while hippie-expand-try-functions-list is let-bound.
11
12012-09-28 Glenn Morris <rgm@gnu.org> 122012-09-28 Glenn Morris <rgm@gnu.org>
2 13
3 * emacs-lisp/cl.el (flet): Fix case of obsolescence message. 14 * 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 @@
199 199
200(defvar he-search-window ()) 200(defvar he-search-window ())
201 201
202;;;###autoload
203(defcustom hippie-expand-try-functions-list 202(defcustom hippie-expand-try-functions-list
204 '(try-complete-file-name-partially 203 '(try-complete-file-name-partially
205 try-complete-file-name 204 try-complete-file-name
@@ -217,31 +216,26 @@ or insert functions in this list."
217 :type '(repeat function) 216 :type '(repeat function)
218 :group 'hippie-expand) 217 :group 'hippie-expand)
219 218
220;;;###autoload
221(defcustom hippie-expand-verbose t 219(defcustom hippie-expand-verbose t
222 "Non-nil makes `hippie-expand' output which function it is trying." 220 "Non-nil makes `hippie-expand' output which function it is trying."
223 :type 'boolean 221 :type 'boolean
224 :group 'hippie-expand) 222 :group 'hippie-expand)
225 223
226;;;###autoload
227(defcustom hippie-expand-dabbrev-skip-space nil 224(defcustom hippie-expand-dabbrev-skip-space nil
228 "Non-nil means tolerate trailing spaces in the abbreviation to expand." 225 "Non-nil means tolerate trailing spaces in the abbreviation to expand."
229 :group 'hippie-expand 226 :group 'hippie-expand
230 :type 'boolean) 227 :type 'boolean)
231 228
232;;;###autoload
233(defcustom hippie-expand-dabbrev-as-symbol t 229(defcustom hippie-expand-dabbrev-as-symbol t
234 "Non-nil means expand as symbols, i.e. syntax `_' is considered a letter." 230 "Non-nil means expand as symbols, i.e. syntax `_' is considered a letter."
235 :group 'hippie-expand 231 :group 'hippie-expand
236 :type 'boolean) 232 :type 'boolean)
237 233
238;;;###autoload
239(defcustom hippie-expand-no-restriction t 234(defcustom hippie-expand-no-restriction t
240 "Non-nil means that narrowed buffers are widened during search." 235 "Non-nil means that narrowed buffers are widened during search."
241 :group 'hippie-expand 236 :group 'hippie-expand
242 :type 'boolean) 237 :type 'boolean)
243 238
244;;;###autoload
245(defcustom hippie-expand-max-buffers () 239(defcustom hippie-expand-max-buffers ()
246 "The maximum number of buffers (apart from the current) searched. 240 "The maximum number of buffers (apart from the current) searched.
247If nil, all buffers are searched." 241If nil, all buffers are searched."
@@ -249,7 +243,6 @@ If nil, all buffers are searched."
249 integer) 243 integer)
250 :group 'hippie-expand) 244 :group 'hippie-expand)
251 245
252;;;###autoload
253(defcustom hippie-expand-ignore-buffers (list (purecopy "^ \\*.*\\*$") 'dired-mode) 246(defcustom hippie-expand-ignore-buffers (list (purecopy "^ \\*.*\\*$") 'dired-mode)
254 "A list specifying which buffers not to search (if not current). 247 "A list specifying which buffers not to search (if not current).
255Can contain both regexps matching buffer names (as strings) and major modes 248Can 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
257 :type '(repeat (choice regexp (symbol :tag "Major Mode"))) 250 :type '(repeat (choice regexp (symbol :tag "Major Mode")))
258 :group 'hippie-expand) 251 :group 'hippie-expand)
259 252
260;;;###autoload
261(defcustom hippie-expand-only-buffers () 253(defcustom hippie-expand-only-buffers ()
262 "A list specifying the only buffers to search (in addition to current). 254 "A list specifying the only buffers to search (in addition to current).
263Can contain both regexps matching buffer names (as strings) and major modes 255Can 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}."
12522(defun vhdl-line-expand (&optional prefix-arg) 12522(defun vhdl-line-expand (&optional prefix-arg)
12523 "Hippie-expand current line." 12523 "Hippie-expand current line."
12524 (interactive "P") 12524 (interactive "P")
12525 (require 'hippie-exp)
12525 (let ((case-fold-search t) (case-replace nil) 12526 (let ((case-fold-search t) (case-replace nil)
12526 (hippie-expand-try-functions-list 12527 (hippie-expand-try-functions-list
12527 '(try-expand-line try-expand-line-all-buffers))) 12528 '(try-expand-line try-expand-line-all-buffers)))