# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1216430110 0
# Node ID f38d566bd19bd84ea9e780218e9ec228422dc31e
# Parent  d6d74da7758eee986c9df8f409bb4c548b4b0bf7
Add 2007 to copyright years, since was available then.
(ns-make-command-string): Use mapconcat.
(ns-save-preferences): Fix typo in previous change.

diff -r d6d74da7758e -r f38d566bd19b lisp/term/ns-win.el
--- a/lisp/term/ns-win.el	Fri Jul 18 20:27:34 2008 +0000
+++ b/lisp/term/ns-win.el	Sat Jul 19 01:15:10 2008 +0000
@@ -1,6 +1,7 @@
 ;;; ns-win.el --- lisp side of interface with NeXT/Open/GNUstep/MacOS X window system
 
-;; Copyright (C) 1993, 1994, 2005, 2006, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 2005, 2006, 2007, 2008
+;;   Free Software Foundation, Inc.
 
 ;; Authors: Carl Edman, Christian Limpach, Scott Bender,
 ;;          Christophe de Dinechin, Adrian Robert
@@ -290,13 +291,7 @@
 ;;; Mostly used only under ns-extended-platform-support-mode.
 
 (defun ns-make-command-string (cmdlist)
-  (let ((str "")
-	(cmds cmdlist))
-    (while cmds
-      (if (not (eq str "")) (setq str (format "%s ; " str)))
-      (setq str (format "%s%s" str (car cmds)))
-      (setq cmds (cdr cmds)))
-    str))
+  (mapconcat 'identity cmdlist " ; "))
 
 ;;;###autoload
 (defun ns-grabenv (&optional shell-path startup)
@@ -1064,7 +1059,7 @@
 			       (t (cdr v)))))
     (if (setq v (assq 'internal-border-width p))
 	(ns-set-resource nil "InternalBorderWidth"
-			 (number-to-string v)))
+			 (number-to-string (cdr v))))
     (if (setq v (assq 'vertical-scroll-bars p))
 	(ns-set-resource nil "VerticalScrollBars"
 			 (case (cdr v)