diff options
| author | Glenn Morris | 2012-09-29 11:15:57 -0700 |
|---|---|---|
| committer | Glenn Morris | 2012-09-29 11:15:57 -0700 |
| commit | de82e29b3fe963e92ed7f60bc52009e3ef923a29 (patch) | |
| tree | bbf4b6e843173c3f15a553f4ca0adc6b67acacbb | |
| parent | 8e5691a0ecd85ea07c423835085ecfffc0013736 (diff) | |
| download | emacs-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/ChangeLog | 11 | ||||
| -rw-r--r-- | lisp/hippie-exp.el | 8 | ||||
| -rw-r--r-- | lisp/progmodes/vhdl-mode.el | 1 |
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 @@ | |||
| 1 | 2012-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 | |||
| 1 | 2012-09-28 Glenn Morris <rgm@gnu.org> | 12 | 2012-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. |
| 247 | If nil, all buffers are searched." | 241 | If 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). |
| 255 | Can contain both regexps matching buffer names (as strings) and major modes | 248 | 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 | |||
| 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). |
| 263 | Can contain both regexps matching buffer names (as strings) and major modes | 255 | 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}." | |||
| 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))) |