diff options
| author | Karoly Lorentey <lorentey@elte.hu> | 2007-01-06 15:25:16 +0000 |
|---|---|---|
| committer | Karoly Lorentey <lorentey@elte.hu> | 2007-01-06 15:25:16 +0000 |
| commit | 191ae1cf7cd2571277635b3b8e488e773ca5c9b9 (patch) | |
| tree | e0b26e3040767dae38fb39a03b757da05088c58f /lisp/cus-edit.el | |
| parent | 382707ecfb50f8c7794a7ba3d8cd9db9b6cd29d0 (diff) | |
| parent | f85c5e3b72855951b071eacb7b6e2d002c5fc4be (diff) | |
| download | emacs-191ae1cf7cd2571277635b3b8e488e773ca5c9b9.tar.gz emacs-191ae1cf7cd2571277635b3b8e488e773ca5c9b9.tar.bz2 emacs-191ae1cf7cd2571277635b3b8e488e773ca5c9b9.zip | |
Merged from emacs@sv.gnu.org
Patches applied:
* emacs@sv.gnu.org/emacs--devo--0--patch-585
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-586
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-587
Update from erc--emacs--22
* emacs@sv.gnu.org/emacs--devo--0--patch-588
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-589
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-590
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-591
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-592
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 10 |
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." (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 @@ suggest to customize that face, if it's customizable." (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 () |