procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add 2007 to copyright years, since was available then.

Browse source 
(ns-make-command-string): Use mapconcat.
(ns-save-preferences): Fix typo in previous change.
This commit is contained in:
Glenn Morris 2008-07-19 01:17:31 +00:00
parent cd71b9ae85
commit a5e1066d83
2 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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.

13
lisp/term/ns-win.el
View file

@ -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)