branch: externals/system-packages
commit ebc58c8d6a3029140114ee95fd4bf9fb93f71200
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>

    * system-packages.el: Fix copyright
    
    * .gitignore: New file.
---
 .gitignore                   | 3 +++
 system-packages.el           | 6 +++---
 test/system-packages-test.el | 4 +++-
 3 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..c4af19a
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,3 @@
+*-autoloads.el
+*-pkg.el
+*.elc
diff --git a/system-packages.el b/system-packages.el
index 0db049d..3204a07 100644
--- a/system-packages.el
+++ b/system-packages.el
@@ -1,6 +1,6 @@
 ;;; system-packages.el --- functions to manage system packages -*- 
lexical-binding: t; -*-
 
-;; Copyright (C) 2016-2018 J. Alexander Branham
+;; Copyright (C) 2016-2018  Free Software Foundation, Inc.
 
 ;; Author: J. Alexander Branham <alex.bran...@gmail.com>
 ;; Maintainer: J. Alexander Branham <alex.bran...@gmail.com>
@@ -343,8 +343,8 @@ of passing additional arguments to the package manager."
       (error (format "%S not supported in %S" action 
system-packages-package-manager)))
     (unless (listp command)
       (setq command (list command)))
-    (setq command (mapconcat 'identity command " && "))
-    (setq command (mapconcat 'identity (list command pack) " "))
+    (setq command (mapconcat #'identity command " && "))
+    (setq command (mapconcat #'identity (list command pack) " "))
     (when noconfirm
       (setq args (concat args (and pack " ") noconfirm)))
     (concat command args)))
diff --git a/test/system-packages-test.el b/test/system-packages-test.el
index f519406..f019f64 100644
--- a/test/system-packages-test.el
+++ b/test/system-packages-test.el
@@ -1,6 +1,6 @@
 ;;; system-packages-test.el --- ERT testing framework for system-packages.el  
-*- lexical-binding: t; -*-
 
-;; Copyright (C) 2018  Alex Branham
+;; Copyright (C) 2018  Free Software Foundation, Inc.
 
 ;; Author: J. Alexander Branham <alex.bran...@gmail.com>
 
@@ -46,3 +46,5 @@
   (should-error
    (let ((system-packages-package-manager 'pacaur))
      (system-packages-get-command 'install))))
+
+;;; system-packages-test.el ends here

Reply via email to