Add 2007 to copyright years, since was available then.

(ns-make-command-string): Use mapconcat.
(ns-save-preferences): Fix typo in previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3bca75de7a5fcdbf3bd9698ce6ac59f698bdb55e..1e01b8c16deec49115f1ddc1133f6e87cacc7738 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-19  Glenn Morris  <rgm@gnu.org>
+
+       * term/ns-win.el (ns-make-command-string): Use mapconcat.
+       (ns-save-preferences): Fix typo in previous change.  (Bug#573)
+
 2008-07-18  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/dbus.el (dbus-interface-properties): New defconst.

diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index cb6e08342c2e11f7208ab230bc7413391f2edb13..2299cfff363ac785817e845f0a9c26349239a544 100644 (file)
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -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 @@ The properties returned may include `top', `left', `height', and `width'."
 ;;; 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 @@ Lines are highlighted according to `ns-input-line'."
                               (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)