aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/cus-edit.el10
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 59026942281..27ce163157b 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1320,9 +1320,11 @@ suggest to customize that face, if it's customizable."
1320 (format "*Customize Face: %s*" 1320 (format "*Customize Face: %s*"
1321 (custom-unlispify-tag-name face))))) 1321 (custom-unlispify-tag-name face)))))
1322 1322
1323(defalias 'customize-customized 'customize-unsaved)
1324
1323;;;###autoload 1325;;;###autoload
1324(defun customize-customized () 1326(defun customize-unsaved ()
1325 "Customize all user options set since the last save in this session." 1327 "Customize all user options set in this session but not saved."
1326 (interactive) 1328 (interactive)
1327 (let ((found nil)) 1329 (let ((found nil))
1328 (mapatoms (lambda (symbol) 1330 (mapatoms (lambda (symbol)
@@ -1335,9 +1337,9 @@ suggest to customize that face, if it's customizable."
1335 (boundp symbol) 1337 (boundp symbol)
1336 (push (list symbol 'custom-variable) found)))) 1338 (push (list symbol 'custom-variable) found))))
1337 (if (not found) 1339 (if (not found)
1338 (error "No customized user options") 1340 (error "No user options are set but unsaved")
1339 (custom-buffer-create (custom-sort-items found t nil) 1341 (custom-buffer-create (custom-sort-items found t nil)
1340 "*Customize Customized*")))) 1342 "*Customize Unsaved*"))))
1341 1343
1342;;;###autoload 1344;;;###autoload
1343(defun customize-rogue () 1345(defun customize-rogue ()