Commit a5e1066d authored by Glenn Morris's avatar Glenn Morris
Browse files

Add 2007 to copyright years, since was available then.

(ns-make-command-string): Use mapconcat.
(ns-save-preferences): Fix typo in previous change.
parent cd71b9ae
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> 2008-07-18 Michael Albinus <michael.albinus@gmx.de>
* net/dbus.el (dbus-interface-properties): New defconst. * net/dbus.el (dbus-interface-properties): New defconst.
......
;;; ns-win.el --- lisp side of interface with NeXT/Open/GNUstep/MacOS X window system ;;; 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, ;; Authors: Carl Edman, Christian Limpach, Scott Bender,
;; Christophe de Dinechin, Adrian Robert ;; Christophe de Dinechin, Adrian Robert
...@@ -290,13 +291,7 @@ The properties returned may include `top', `left', `height', and `width'." ...@@ -290,13 +291,7 @@ The properties returned may include `top', `left', `height', and `width'."
;;; Mostly used only under ns-extended-platform-support-mode. ;;; Mostly used only under ns-extended-platform-support-mode.
(defun ns-make-command-string (cmdlist) (defun ns-make-command-string (cmdlist)
(let ((str "") (mapconcat 'identity cmdlist " ; "))
(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))
;;;###autoload ;;;###autoload
(defun ns-grabenv (&optional shell-path startup) (defun ns-grabenv (&optional shell-path startup)
...@@ -1064,7 +1059,7 @@ Lines are highlighted according to `ns-input-line'." ...@@ -1064,7 +1059,7 @@ Lines are highlighted according to `ns-input-line'."
(t (cdr v))))) (t (cdr v)))))
(if (setq v (assq 'internal-border-width p)) (if (setq v (assq 'internal-border-width p))
(ns-set-resource nil "InternalBorderWidth" (ns-set-resource nil "InternalBorderWidth"
(number-to-string v))) (number-to-string (cdr v))))
(if (setq v (assq 'vertical-scroll-bars p)) (if (setq v (assq 'vertical-scroll-bars p))
(ns-set-resource nil "VerticalScrollBars" (ns-set-resource nil "VerticalScrollBars"
(case (cdr v) (case (cdr v)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment