diff options
| author | Richard M. Stallman | 2006-06-19 21:46:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-06-19 21:46:54 +0000 |
| commit | 161c71277e2a6d894989fd72e6381c76f46d9760 (patch) | |
| tree | 73e567da5125347b10e42bae83e00a9af5193cae | |
| parent | 2aa8102725544afa6ddd17e8d288f300db08b956 (diff) | |
| download | emacs-161c71277e2a6d894989fd72e6381c76f46d9760.tar.gz emacs-161c71277e2a6d894989fd72e6381c76f46d9760.zip | |
(customize-option, customize-option-other-window): Error if SYMBOL is nil.
| -rw-r--r-- | lisp/cus-edit.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index e700cd47d16..53f92f2243b 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -1055,6 +1055,8 @@ then prompt for the MODE to customize." | |||
| 1055 | (defun customize-option (symbol) | 1055 | (defun customize-option (symbol) |
| 1056 | "Customize SYMBOL, which must be a user option variable." | 1056 | "Customize SYMBOL, which must be a user option variable." |
| 1057 | (interactive (custom-variable-prompt)) | 1057 | (interactive (custom-variable-prompt)) |
| 1058 | (unless symbol | ||
| 1059 | (error "No variable specified")) | ||
| 1058 | (let ((basevar (indirect-variable symbol))) | 1060 | (let ((basevar (indirect-variable symbol))) |
| 1059 | (custom-buffer-create (list (list basevar 'custom-variable)) | 1061 | (custom-buffer-create (list (list basevar 'custom-variable)) |
| 1060 | (format "*Customize Option: %s*" | 1062 | (format "*Customize Option: %s*" |
| @@ -1070,6 +1072,8 @@ then prompt for the MODE to customize." | |||
| 1070 | "Customize SYMBOL, which must be a user option variable. | 1072 | "Customize SYMBOL, which must be a user option variable. |
| 1071 | Show the buffer in another window, but don't select it." | 1073 | Show the buffer in another window, but don't select it." |
| 1072 | (interactive (custom-variable-prompt)) | 1074 | (interactive (custom-variable-prompt)) |
| 1075 | (unless symbol | ||
| 1076 | (error "No variable specified")) | ||
| 1073 | (let ((basevar (indirect-variable symbol))) | 1077 | (let ((basevar (indirect-variable symbol))) |
| 1074 | (custom-buffer-create-other-window | 1078 | (custom-buffer-create-other-window |
| 1075 | (list (list basevar 'custom-variable)) | 1079 | (list (list basevar 'custom-variable)) |