Mercurial > emacs

changeset 102667:be0eefc75451

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(all): Fix last change.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 21 Mar 2009 09:47:13 +0000
parents 9f209d760c31
children 0a9d2476528d
files lisp/cus-start.el
diffstat 1 files changed, 9 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- 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))