aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2006-06-19 21:46:54 +0000
committerRichard M. Stallman2006-06-19 21:46:54 +0000
commit161c71277e2a6d894989fd72e6381c76f46d9760 (patch)
tree73e567da5125347b10e42bae83e00a9af5193cae
parent2aa8102725544afa6ddd17e8d288f300db08b956 (diff)
downloademacs-161c71277e2a6d894989fd72e6381c76f46d9760.tar.gz
emacs-161c71277e2a6d894989fd72e6381c76f46d9760.zip
(customize-option, customize-option-other-window): Error if SYMBOL is nil.
-rw-r--r--lisp/cus-edit.el4
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.
1071Show the buffer in another window, but don't select it." 1073Show 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))