diff options
| author | Glenn Morris | 2012-09-29 11:20:12 -0700 |
|---|---|---|
| committer | Glenn Morris | 2012-09-29 11:20:12 -0700 |
| commit | 0e3e4156242bfe3104b8f507a07c38d966d110eb (patch) | |
| tree | ecf1822046bce3ca3b8c1fc04147a8fc7e7911c6 | |
| parent | de82e29b3fe963e92ed7f60bc52009e3ef923a29 (diff) | |
| download | emacs-0e3e4156242bfe3104b8f507a07c38d966d110eb.tar.gz emacs-0e3e4156242bfe3104b8f507a07c38d966d110eb.zip | |
Do not autoload defcustoms in inf-lisp.el
* lisp/progmodes/inf-lisp.el (inferior-lisp-filter-regexp)
(inferior-lisp-program, inferior-lisp-load-command)
(inferior-lisp-prompt, inferior-lisp-mode-hook):
Do not autoload defcustoms.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/progmodes/inf-lisp.el | 5 |
2 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4e61d02da9e..d6e7b498f4e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,10 @@ | |||
| 1 | 2012-09-29 Glenn Morris <rgm@gnu.org> | 1 | 2012-09-29 Glenn Morris <rgm@gnu.org> |
| 2 | 2 | ||
| 3 | * progmodes/inf-lisp.el (inferior-lisp-filter-regexp) | ||
| 4 | (inferior-lisp-program, inferior-lisp-load-command) | ||
| 5 | (inferior-lisp-prompt, inferior-lisp-mode-hook): | ||
| 6 | Do not autoload defcustoms. | ||
| 7 | |||
| 3 | * hippie-exp.el (hippie-expand-try-functions-list) | 8 | * hippie-exp.el (hippie-expand-try-functions-list) |
| 4 | (hippie-expand-verbose, hippie-expand-dabbrev-skip-space) | 9 | (hippie-expand-verbose, hippie-expand-dabbrev-skip-space) |
| 5 | (hippie-expand-dabbrev-as-symbol, hippie-expand-no-restriction) | 10 | (hippie-expand-dabbrev-as-symbol, hippie-expand-no-restriction) |
diff --git a/lisp/progmodes/inf-lisp.el b/lisp/progmodes/inf-lisp.el index 401970b2ce8..cccda962082 100644 --- a/lisp/progmodes/inf-lisp.el +++ b/lisp/progmodes/inf-lisp.el | |||
| @@ -69,7 +69,6 @@ | |||
| 69 | :group 'lisp | 69 | :group 'lisp |
| 70 | :version "22.1") | 70 | :version "22.1") |
| 71 | 71 | ||
| 72 | ;;;###autoload | ||
| 73 | (defcustom inferior-lisp-filter-regexp | 72 | (defcustom inferior-lisp-filter-regexp |
| 74 | (purecopy "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'") | 73 | (purecopy "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'") |
| 75 | "What not to save on inferior Lisp's input history. | 74 | "What not to save on inferior Lisp's input history. |
| @@ -137,13 +136,11 @@ mode. Default is whitespace followed by 0 or 1 single-letter colon-keyword | |||
| 137 | (define-key inferior-lisp-mode-map "\C-cv" | 136 | (define-key inferior-lisp-mode-map "\C-cv" |
| 138 | 'lisp-show-variable-documentation)) | 137 | 'lisp-show-variable-documentation)) |
| 139 | 138 | ||
| 140 | ;;;###autoload | ||
| 141 | (defcustom inferior-lisp-program (purecopy "lisp") | 139 | (defcustom inferior-lisp-program (purecopy "lisp") |
| 142 | "Program name for invoking an inferior Lisp in Inferior Lisp mode." | 140 | "Program name for invoking an inferior Lisp in Inferior Lisp mode." |
| 143 | :type 'string | 141 | :type 'string |
| 144 | :group 'inferior-lisp) | 142 | :group 'inferior-lisp) |
| 145 | 143 | ||
| 146 | ;;;###autoload | ||
| 147 | (defcustom inferior-lisp-load-command (purecopy "(load \"%s\")\n") | 144 | (defcustom inferior-lisp-load-command (purecopy "(load \"%s\")\n") |
| 148 | "Format-string for building a Lisp expression to load a file. | 145 | "Format-string for building a Lisp expression to load a file. |
| 149 | This format string should use `%s' to substitute a file name | 146 | This format string should use `%s' to substitute a file name |
| @@ -155,7 +152,6 @@ but it works only in Common Lisp." | |||
| 155 | :type 'string | 152 | :type 'string |
| 156 | :group 'inferior-lisp) | 153 | :group 'inferior-lisp) |
| 157 | 154 | ||
| 158 | ;;;###autoload | ||
| 159 | (defcustom inferior-lisp-prompt (purecopy "^[^> \n]*>+:? *") | 155 | (defcustom inferior-lisp-prompt (purecopy "^[^> \n]*>+:? *") |
| 160 | "Regexp to recognize prompts in the Inferior Lisp mode. | 156 | "Regexp to recognize prompts in the Inferior Lisp mode. |
| 161 | Defaults to \"^[^> \\n]*>+:? *\", which works pretty good for Lucid, kcl, | 157 | Defaults to \"^[^> \\n]*>+:? *\", which works pretty good for Lucid, kcl, |
| @@ -207,7 +203,6 @@ one process, this does the right thing. If you run multiple | |||
| 207 | processes, you can change `inferior-lisp-buffer' to another process | 203 | processes, you can change `inferior-lisp-buffer' to another process |
| 208 | buffer with \\[set-variable].") | 204 | buffer with \\[set-variable].") |
| 209 | 205 | ||
| 210 | ;;;###autoload | ||
| 211 | (defvar inferior-lisp-mode-hook '() | 206 | (defvar inferior-lisp-mode-hook '() |
| 212 | "Hook for customizing Inferior Lisp mode.") | 207 | "Hook for customizing Inferior Lisp mode.") |
| 213 | 208 | ||