diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-09-01 07:24:13 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-09-01 07:24:13 +0000 |
| commit | c4f6e489aa5c0d3559f442587b32b01cf7dbdb8d (patch) | |
| tree | 77117e072ab68f0ad7a1039105faaac2368d5429 /lisp/wid-edit.el | |
| parent | d80619faefb04b289ea2dfb9d83256d3a61159f6 (diff) | |
| download | emacs-c4f6e489aa5c0d3559f442587b32b01cf7dbdb8d.tar.gz | |
Mark face aliases with "-face" suffix as obsolete.
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 22 |
1 files changed, 10 insertions, 12 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index ef89a01e050..e9156e729db 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -104,8 +104,8 @@ This exists as a variable so it can be set locally in certain buffers.") "Face used for documentation text." :group 'widget-documentation :group 'widget-faces) -;; backward compatibility alias -(put 'widget-documentation-face 'face-alias 'widget-documentation) +(define-obsolete-face-alias 'widget-documentation-face + 'widget-documentation "22.1") (defvar widget-button-face 'widget-button "Face used for buttons in widgets. @@ -114,8 +114,7 @@ This exists as a variable so it can be set locally in certain buffers.") (defface widget-button '((t (:weight bold))) "Face used for widget buttons." :group 'widget-faces) -;; backward compatibility alias -(put 'widget-button-face 'face-alias 'widget-button) +(define-obsolete-face-alias 'widget-button-face 'widget-button "22.1") (defcustom widget-mouse-face 'highlight "Face used for widget buttons when the mouse is above them." @@ -138,8 +137,7 @@ This exists as a variable so it can be set locally in certain buffers.") :slant italic)) "Face used for editable fields." :group 'widget-faces) -;; backward-compatibility alias -(put 'widget-field-face 'face-alias 'widget-field) +(define-obsolete-face-alias 'widget-field-face 'widget-field "22.1") (defface widget-single-line-field '((((type tty)) :background "green3" @@ -154,8 +152,8 @@ This exists as a variable so it can be set locally in certain buffers.") :slant italic)) "Face used for editable fields spanning only a single line." :group 'widget-faces) -;; backward-compatibility alias -(put 'widget-single-line-field-face 'face-alias 'widget-single-line-field) +(define-obsolete-face-alias 'widget-single-line-field-face + 'widget-single-line-field "22.1") ;;; This causes display-table to be loaded, and not usefully. ;;;(defvar widget-single-line-display-table @@ -455,8 +453,8 @@ new value.") '((t :inherit shadow)) "Face used for inactive widgets." :group 'widget-faces) -;; backward-compatibility alias -(put 'widget-inactive-face 'face-alias 'widget-inactive) +(define-obsolete-face-alias 'widget-inactive-face + 'widget-inactive "22.1") (defun widget-specify-inactive (widget from to) "Make WIDGET inactive for user modifications." @@ -920,8 +918,8 @@ Recommended as a parent keymap for modes using widgets.") (:weight bold :underline t))) "Face used for pressed buttons." :group 'widget-faces) -;; backward-compatibility alias -(put 'widget-button-pressed-face 'face-alias 'widget-button-pressed) +(define-obsolete-face-alias 'widget-button-pressed-face + 'widget-button-pressed "22.1") (defvar widget-button-click-moves-point nil "If non-nil, `widget-button-click' moves point to a button after invoking it. |