Mercurial > emacs

changeset 75046:b644db4759fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(customize-unsaved): Renamed from customize-customized. Change messages accordingly. (customize-customized): Now alias.
author Richard M. Stallman <rms@gnu.org>
date Tue, 02 Jan 2007 20:55:54 +0000
parents a1cc89e6be8b
children 0e3ea59d0acd
files lisp/cus-edit.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-edit.el	Tue Jan 02 20:54:10 2007 +0000
+++ b/lisp/cus-edit.el	Tue Jan 02 20:55:54 2007 +0000
@@ -1320,9 +1320,11 @@
      (format "*Customize Face: %s*"
 	     (custom-unlispify-tag-name face)))))
 
+(defalias 'customize-customized 'customize-unsaved)
+
 ;;;###autoload
-(defun customize-customized ()
-  "Customize all user options set since the last save in this session."
+(defun customize-unsaved ()
+  "Customize all user options set in this session but not saved."
   (interactive)
   (let ((found nil))
     (mapatoms (lambda (symbol)
@@ -1335,9 +1337,9 @@
 		     (boundp symbol)
 		     (push (list symbol 'custom-variable) found))))
     (if (not found)
-	(error "No customized user options")
+	(error "No user options are set but unsaved")
       (custom-buffer-create (custom-sort-items found t nil)
-			    "*Customize Customized*"))))
+			    "*Customize Unsaved*"))))
 
 ;;;###autoload
 (defun customize-rogue ()