[Emacs-diffs] Changes to emacs/lisp/cus-edit.el,v

[Adrian Robert]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Adrian Robert <arobert> 08/07/15 18:15:19

Index: lisp/cus-edit.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cus-edit.el,v
retrieving revision 1.346
retrieving revision 1.347
diff -u -b -r1.346 -r1.347
--- lisp/cus-edit.el    6 May 2008 07:57:28 -0000       1.346
+++ lisp/cus-edit.el    15 Jul 2008 18:14:59 -0000      1.347
@@ -2068,7 +2068,7 @@
 ;;; 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 @@
 (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 @@
       (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 @@
                                           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.")