emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/m-buffer d2e35bf929 115/115: Adjust copyright headers f


From: ELPA Syncer
Subject: [elpa] externals/m-buffer d2e35bf929 115/115: Adjust copyright headers for GNU ELPA
Date: Tue, 19 Jul 2022 15:58:53 -0400 (EDT)

branch: externals/m-buffer
commit d2e35bf9293367f1a2d19f259f32a35bd9f4788b
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    Adjust copyright headers for GNU ELPA
    
    * test/test-helper.el: Delete unused empty file.
    * test/m-buffer-test.el: Adjust copyright.  Enable lexical-binding.
    * test/m-buffer-init.el (m-buffer-init-path):
    * test/m-buffer-at-test.el: Add copyright header.  Enable lexical-binding.
    * m-buffer.el:
    * m-buffer-at.el:
    * m-buffer-macro.el:
    * dev/fudge-discover.el: Adjust copyright.
    * m-buffer-benchmark.els: Enable lexical-binding.
    * .gitignore: Add ELPA-generated files.
---
 .gitignore               |  5 ++++-
 dev/fudge-discover.el    |  4 ++--
 m-buffer-at.el           |  2 +-
 m-buffer-benchmark.els   |  2 +-
 m-buffer-macro.el        |  4 ++--
 m-buffer.el              | 30 +++++++++++++++---------------
 test/m-buffer-at-test.el |  4 ++++
 test/m-buffer-init.el    |  4 ++++
 test/m-buffer-test.el    | 12 ++++++------
 test/test-helper.el      |  0
 10 files changed, 39 insertions(+), 28 deletions(-)

diff --git a/.gitignore b/.gitignore
index b83ad7696f..0da4454642 100644
--- a/.gitignore
+++ b/.gitignore
@@ -5,4 +5,7 @@ m-buffer*org
 *elc
 /dist/
 /org/
-m-buffer-pkg.el
\ No newline at end of file
+
+# ELPA-generated files
+/m-buffer-pkg.el
+/m-buffer-autoloads.el
diff --git a/dev/fudge-discover.el b/dev/fudge-discover.el
index 0e2f525e23..206d8825d8 100644
--- a/dev/fudge-discover.el
+++ b/dev/fudge-discover.el
@@ -9,7 +9,7 @@
 
 ;; The contents of this file are subject to the GPL License, Version 3.0.
 
-;; Copyright (C) 2015, 2016, Phillip Lord
+;; Copyright (C) 2015-2022  Free Software Foundation, Inc.
 
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -65,7 +65,7 @@ tests directory."
 
 (defun fudge-discover--load-all-tests (directory)
   (mapc
-   'load
+   #'load
    (fudge-discover-tests directory)))
 
 (defun fudge-discover-load-tests ()
diff --git a/m-buffer-at.el b/m-buffer-at.el
index c879971574..bd4683def1 100644
--- a/m-buffer-at.el
+++ b/m-buffer-at.el
@@ -6,7 +6,7 @@
 
 ;; The contents of this file are subject to the GPL License, Version 3.0.
 
-;; Copyright (C) 2014, Phillip Lord, Newcastle University
+;; Copyright (C) 2014-2022  Free Software Foundation, Inc.
 
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
diff --git a/m-buffer-benchmark.els b/m-buffer-benchmark.els
index c2e7080653..90af578ebd 100644
--- a/m-buffer-benchmark.els
+++ b/m-buffer-benchmark.els
@@ -1,4 +1,4 @@
-;;; -*- emacs-lisp -*-
+;;; -*- mode: emacs-lisp; lexical-binding:t -*-
 
 ;;
 
diff --git a/m-buffer-macro.el b/m-buffer-macro.el
index d716ee5bb8..569c16aad3 100644
--- a/m-buffer-macro.el
+++ b/m-buffer-macro.el
@@ -6,7 +6,7 @@
 
 ;; The contents of this file are subject to the GPL License, Version 3.0.
 
-;; Copyright (C) 2014, Phillip Lord, Newcastle University
+;; Copyright (C) 2014-2022  Free Software Foundation, Inc.
 
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -54,7 +54,7 @@ after BODY."
   ;; so, create a rtn var with make-symbol (for hygene)
   (let* ((rtn-var (make-symbol "rtn-var"))
          (marker-vars
-          (mapcar 'car varlist))
+          (mapcar #'car varlist))
          (full-varlist
           (append
            varlist
diff --git a/m-buffer.el b/m-buffer.el
index c3f3523669..92a2bfa472 100644
--- a/m-buffer.el
+++ b/m-buffer.el
@@ -11,7 +11,7 @@
 
 ;; The contents of this file are subject to the GPL License, Version 3.0.
 
-;; Copyright (C) 2014, 2015, 2016, 2017 Phillip Lord
+;; Copyright (C) 2014-2022  Free Software Foundation, Inc.
 
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -106,7 +106,7 @@ the :end value will be used.
 REGEXP should advance point (i.e. not be zero-width) or the
 function will loop infinitely. POST-MATCH can be used to avoid
 this. The buffer is searched forward."
-  (apply 'm-buffer--match-1
+  (apply #'m-buffer--match-1
          (m-buffer--normalize-args match)))
 ;; #+end_src
 
@@ -307,7 +307,7 @@ args, assume they are of the form accepted by
    ((= 1 (length match))
     (car match))
    ((< 1 (length match))
-    (apply 'm-buffer-match match))
+    (apply #'m-buffer-match match))
    (t
     (error "Invalid arguments"))))
 ;; #+end_src
@@ -341,7 +341,7 @@ or they will slow future use of the buffer until garbage 
collected."
    (lambda (m)
      (nth
       (* 2 n) m))
-   (apply 'm-buffer-ensure-match match)))
+   (apply #'m-buffer-ensure-match match)))
 
 (defun m-buffer-match-begin-n-pos (n &rest match)
   "Return positions of the start of the Nth group in MATCH.
@@ -349,7 +349,7 @@ MATCH may be of any form accepted by 
`m-buffer-ensure-match'. If
 `match-data' is passed markers will be set to nil after this
 function. See `m-buffer-nil-marker' for details."
   (m-buffer-marker-to-pos-nil
-   (apply 'm-buffer-match-begin-n
+   (apply #'m-buffer-match-begin-n
           n match)))
 
 (defun m-buffer-match-begin (&rest match)
@@ -357,14 +357,14 @@ function. See `m-buffer-nil-marker' for details."
 MATCH may of any form accepted by `m-buffer-ensure-match'. Use
 `m-buffer-nil-marker' after the markers have been used or they
 will slow future changes to the buffer."
-  (apply 'm-buffer-match-begin-n 0 match))
+  (apply #'m-buffer-match-begin-n 0 match))
 
 (defun m-buffer-match-begin-pos (&rest match)
   "Return a list of positions at the start of matcher.
 MATCH may be of any form accepted by `m-buffer-ensure-match'.
 If `match-data' is passed markers will be set to nil after this
 function. See `m-buffer-nil-marker' for details."
-  (apply 'm-buffer-match-begin-n-pos 0 match))
+  (apply #'m-buffer-match-begin-n-pos 0 match))
 
 (defun m-buffer-match-end-n (n &rest match)
   "Return markers to the end of the match to the Nth group.
@@ -376,7 +376,7 @@ function. See `m-buffer-nil-marker' for details."
      (nth
       (+ 1 (* 2 n))
       m))
-   (apply 'm-buffer-ensure-match match)))
+   (apply #'m-buffer-ensure-match match)))
 
 (defun m-buffer-match-end-n-pos (n &rest match)
   "Return positions of the end Nth group of MATCH.
@@ -384,7 +384,7 @@ MATCH may be of any form accepted by 
`m-buffer-ensure-match'.
 If `match-data' is passed markers will be set to nil after this
 function. See `m-buffer-nil-marker' for details."
   (m-buffer-marker-to-pos-nil
-   (apply 'm-buffer-match-end-n-pos
+   (apply #'m-buffer-match-end-n-pos
           n match)))
 
 (defun m-buffer-match-end (&rest match)
@@ -392,7 +392,7 @@ function. See `m-buffer-nil-marker' for details."
 MATCH may be of any form accepted by `m-buffer-ensure-match'. Use
 `m-buffer-nil-marker' after the markers have been used or they
 will slow future changes to the buffer."
-  (apply 'm-buffer-match-end-n 0 match))
+  (apply #'m-buffer-match-end-n 0 match))
 
 (defun m-buffer-match-end-pos (&rest match)
   "Return a list of positions to the end of the match.
@@ -400,7 +400,7 @@ MATCH may be of any form accepted by 
`m-buffer-ensure-match'.
 If `match-data' is passed markers will be set to nil after this
 function. See `m-buffer-nil-marker' for details."
   (m-buffer-marker-to-pos-nil
-   (apply 'm-buffer-match-end match)))
+   (apply #'m-buffer-match-end match)))
 ;; #+end_src
 
 ;; ** Match Utility and Predicates
@@ -661,7 +661,7 @@ markers are part of MATCH_DATA, so niling them will 
percolate backward."
   "Return strings for MATCH-DATA optionally of group SUBEXP.
 Remove all properties from return."
   (seq-map
-   'substring-no-properties
+   #'substring-no-properties
    (m-buffer-match-string
     match-data subexp)))
 ;; #+end_src
@@ -689,7 +689,7 @@ Remove all properties from return."
          match))
        (more-keywords
         (seq-map
-         'car
+         #'car
          (seq-partition more-match 2))))
     (when
         (seq-find
@@ -858,8 +858,8 @@ Note empty lines do not contain any non-whitespace lines.
 MATCH is of form BUFFER-OR-WINDOW MATCH-OPTIONS. See
 `m-buffer-match' for further details."
   (seq-difference
-   (apply 'm-buffer-match-line match)
-   (apply 'm-buffer-match-whitespace-line match)))
+   (apply #'m-buffer-match-line match)
+   (apply #'m-buffer-match-whitespace-line match)))
 
 ;; Useful post-match functions
 (defun m-buffer-post-match-forward-line ()
diff --git a/test/m-buffer-at-test.el b/test/m-buffer-at-test.el
index d313445b92..7c6573b2e1 100644
--- a/test/m-buffer-at-test.el
+++ b/test/m-buffer-at-test.el
@@ -1,3 +1,7 @@
+;; -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2014-2022  Free Software Foundation, Inc.
+
 (require 'm-buffer-at)
 
 (ert-deftest m-buffer-at-eolp-1()
diff --git a/test/m-buffer-init.el b/test/m-buffer-init.el
index 4034d3817e..e9d0d6331c 100644
--- a/test/m-buffer-init.el
+++ b/test/m-buffer-init.el
@@ -1,3 +1,7 @@
+;; -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2014-2022  Free Software Foundation, Inc.
+
 (defvar m-buffer-init-path
   (directory-file-name
    (file-name-directory load-file-name)))
diff --git a/test/m-buffer-test.el b/test/m-buffer-test.el
index 3e6bba2f90..123b29842a 100644
--- a/test/m-buffer-test.el
+++ b/test/m-buffer-test.el
@@ -1,8 +1,8 @@
-;;; m-buffer-test.el --- Tests for m-buffer
+;;; m-buffer-test.el --- Tests for m-buffer  -*- lexical-binding: t; -*-
 
 ;; The contents of this file are subject to the GPL License, Version 3.0.
 ;;
-;; Copyright (C) 2014, Phillip Lord, Newcastle University
+;; Copyright (C) 2014-2022  Free Software Foundation, Inc.
 ;;
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -89,9 +89,9 @@
 
 (defun m-buffer--flatten (l)
   (if (listp l)
-      (apply 'append
+      (apply #'append
        (seq-map
-        'm-buffer--flatten l))
+        #'m-buffer--flatten l))
     (list l)))
 
 (ert-deftest m-buffer-matches ()
@@ -105,7 +105,7 @@
          "^one$")))))
   (should
    (seq-every-p
-    'markerp
+    #'markerp
     (m-buffer--flatten
      (m-buffer-wtb-of-file
       "match-data.txt"
@@ -116,7 +116,7 @@
 (ert-deftest m-buffer-match-begin ()
   (should
    (seq-every-p
-    'markerp
+    #'markerp
     (m-buffer-wtb-of-file
      "match-data.txt"
      (m-buffer-match-begin
diff --git a/test/test-helper.el b/test/test-helper.el
deleted file mode 100644
index e69de29bb2..0000000000



reply via email to

[Prev in Thread] Current Thread [Next in Thread]