# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1237628833 0
# Node ID be0eefc754515d0aad171f920b0d88f04642a253
# Parent  9f209d760c31c141ea9170b987c9646d7cef60c4
(all): Fix last change.

diff -r 9f209d760c31 -r be0eefc75451 lisp/cus-start.el
--- a/lisp/cus-start.el	Sat Mar 21 09:37:16 2009 +0000
+++ b/lisp/cus-start.el	Sat Mar 21 09:47:13 2009 +0000
@@ -249,25 +249,25 @@
 	     ;; msdos.c
 	     (dos-unsupported-char-glyph display integer)
 	     ;; nsterm.m
-	     (ns-control-modifier 
-	      nextstep 
+	     (ns-control-modifier
+	      nextstep
 	      (choice (const :tag "No modifier" nil)
 		      (const control) (const meta)
 		      (const alt) (const hyper)
 		      (const super)) "23.1")
-	     (ns-command-modifier 
-	      nextstep 
+	     (ns-command-modifier
+	      nextstep
 	      (choice (const :tag "No modifier" nil)
 		      (const control) (const meta)
 		      (const alt) (const hyper)
 		      (const super)) "23.1")
-	     (ns-alternate-modifier 
-	      nextstep 
+	     (ns-alternate-modifier
+	      nextstep
 	      (choice (const :tag "No modifier (work as alternate/option)" none)
 		      (const control) (const meta)
 		      (const alt) (const hyper)
 		      (const super)) "23.1")
-	     (ns-function-modifier 
+	     (ns-function-modifier
 	      nextstep
 	      (choice (const :tag "No modifier (work as function)" none)
 		      (const control) (const meta)
@@ -381,6 +381,8 @@
 		       (eq system-type 'ms-dos))
 		      ((string-match "\\`w32-" (symbol-name symbol))
 		       (eq system-type 'windows-nt))
+		      ((string-match "\\`ns-" (symbol-name symbol))
+		       (featurep 'ns))
 		      ((string-match "\\`x-.*gtk" (symbol-name symbol))
 		       (featurep 'gtk))
 		      ((string-match "\\`x-" (symbol-name symbol))