diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2006-01-19 23:26:04 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2006-01-19 23:26:04 +0000 |
| commit | 633bb8a9b141d6dcbc8d3a07cfa1dce7aae43a6f (patch) | |
| tree | 1f2733cf1f91de978cdbfcfa05ad0029effc95e5 /lisp/cus-edit.el | |
| parent | 4151840f6bb57c7b76601d0f352a78500c22a0ec (diff) | |
| download | emacs-633bb8a9b141d6dcbc8d3a07cfa1dce7aae43a6f.tar.gz | |
(custom-buffer-create-internal): State in the text above
the whole buffer buttons that they do not operate on hidden items.
(custom-face-menu): Use `custom-face-save' instead of
`custom-face-save-command'.
(custom-face-save-command): Make it an alias for `custom-face-save'
and declare it obsolete.
(custom-face-save): Doc fix.
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index a5f9e301946..286027ac46d 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1485,7 +1485,8 @@ See ") :help-echo "Read the online help." "(emacs)Easy Customization") (widget-insert " for more information.\n\n") - (widget-insert "Operate on everything in this buffer:\n ")) + (widget-insert "Operate on all settings in this buffer that \ +are not marked HIDDEN:\n ")) (widget-insert " ")) (widget-create 'push-button :tag "Set for Current Session" @@ -3323,7 +3324,7 @@ SPEC must be a full face spec." (defvar custom-face-menu `(("Set for Current Session" custom-face-set) ,@(when (or custom-file user-init-file) - '(("Save for Future Sessions" custom-face-save-command))) + '(("Save for Future Sessions" custom-face-save))) ("Undo Edits" custom-redraw (lambda (widget) (memq (widget-get widget :custom-state) '(modified changed)))) @@ -3448,13 +3449,8 @@ Optional EVENT is the location for the menu." (custom-face-state-set widget) (custom-redraw-magic widget))) -(defun custom-face-save-command (widget) - "Save in `.emacs' the face attributes in WIDGET." - (custom-face-save widget) - (custom-save-all)) - (defun custom-face-save (widget) - "Prepare for saving WIDGET's face attributes, but don't write `.emacs'." + "Save in `.emacs' the face attributes in WIDGET." (let* ((symbol (widget-value widget)) (child (car (widget-get widget :children))) (value (custom-post-filter-face-spec (widget-value child))) @@ -3480,6 +3476,10 @@ Optional EVENT is the location for the menu." (custom-face-state-set widget) (custom-redraw-magic widget))) +;; For backward compatibility. +(define-obsolete-function-alias 'custom-face-save-command 'custom-face-save + "22.1") + (defun custom-face-reset-saved (widget) "Restore WIDGET to the face's default attributes." (let* ((symbol (widget-value widget)) |