diff options
| author | Richard M. Stallman | 2007-01-02 20:55:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2007-01-02 20:55:54 +0000 |
| commit | 0b97da8f381b028fd49b2d056325e581c9d810e1 (patch) | |
| tree | b14b0e0211ec4ac5d23c24a8eff0299bbf349a50 | |
| parent | e6a24f43fd2e84b12f4c492e5b944e9fce2c21d1 (diff) | |
| download | emacs-0b97da8f381b028fd49b2d056325e581c9d810e1.tar.gz emacs-0b97da8f381b028fd49b2d056325e581c9d810e1.zip | |
(customize-unsaved): Renamed from customize-customized.
Change messages accordingly.
(customize-customized): Now alias.
| -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." | |||
| 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 () |