[Emacs-diffs] Changes to emacs/lisp/term/ns-win.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/07/19 01:15:11

Index: ns-win.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/term/ns-win.el,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- ns-win.el   18 Jul 2008 17:45:01 -0000      1.10
+++ ns-win.el   19 Jul 2008 01:15:10 -0000      1.11
@@ -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)