diff options
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 63bc854a7a0..fe23aa76b7e 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -2068,7 +2068,7 @@ and `face'." ;;; The `custom' Widget. (defface custom-button - '((((type x w32 mac) (class color)) ; Like default modeline + '((((type x w32 mac ns) (class color)) ; Like default modeline (:box (:line-width 2 :style released-button) :background "lightgrey" :foreground "black")) (t @@ -2080,7 +2080,7 @@ and `face'." (put 'custom-button-face 'face-alias 'custom-button) (defface custom-button-mouse - '((((type x w32 mac) (class color)) + '((((type x w32 mac ns) (class color)) (:box (:line-width 2 :style released-button) :background "grey90" :foreground "black")) (t @@ -2102,7 +2102,7 @@ and `face'." (if custom-raised-buttons 'custom-button-mouse 'highlight)) (defface custom-button-pressed - '((((type x w32 mac) (class color)) + '((((type x w32 mac ns) (class color)) (:box (:line-width 2 :style pressed-button) :background "lightgrey" :foreground "black")) (t @@ -3163,8 +3163,12 @@ Windows NT/9X.") w32) (const :format "MAC " :sibling-args (:help-echo "\ -Macintosh OS.") +Macintosh OS (Carbon interface).") mac) + (const :format "NS " + :sibling-args (:help-echo "\ +GNUstep or Macintosh OS Cocoa interface.") + ns) (const :format "DOS " :sibling-args (:help-echo "\ Plain MS-DOS.") |