Mercurial > emacs
changeset 96805:f38d566bd19b
Add 2007 to copyright years, since was available then.
(ns-make-command-string): Use mapconcat.
(ns-save-preferences): Fix typo in previous change.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 19 Jul 2008 01:15:10 +0000 |
| parents | d6d74da7758e |
| children | b6fa3f2fa07c |
| files | lisp/term/ns-win.el |
| diffstat | 1 files changed, 4 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- 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)