emacs-diffs
[Top][All Lists]
Advanced

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

master 31fefef4a2: elide-head: Support more licenses


From: Stefan Kangas
Subject: master 31fefef4a2: elide-head: Support more licenses
Date: Sat, 1 Jan 2022 08:27:05 -0500 (EST)

branch: master
commit 31fefef4a2f8536a23df94df46ecb4b5b4ff1efe
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    elide-head: Support more licenses
    
    * lisp/elide-head.el (elide-head-headers-to-hide): Add support for the
    Expat License, and more variants of the BSD-2-Clause License.
    
    Add old FSF address.  This fixes a bug reported in 2003:
    https://lists.gnu.org/r/bug-gnu-emacs/2003-01/msg00142.html
---
 lisp/elide-head.el | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/lisp/elide-head.el b/lisp/elide-head.el
index d2e3ac6a99..30772fa514 100644
--- a/lisp/elide-head.el
+++ b/lisp/elide-head.el
@@ -50,13 +50,16 @@
   :group 'tools)
 
 (defcustom elide-head-headers-to-hide
-  '(("is free software[:;] you can redistribute it" . ; GNU boilerplate
-     "\\(Boston, MA 0211\\(1-1307\\|0-1301\\), USA\\|\
-If not, see <https?://www\\.gnu\\.org/licenses/>\\)\\.")
-    ("The Regents of the University of California\\.  All rights reserved\\." .
-     "SUCH DAMAGE\\.")                               ; BSD
-    ("Permission is hereby granted, free of charge" . ; X11
-     "authorization from the X Consortium\\."))
+  `(("is free software[:;] you can redistribute it" . ; GNU boilerplate
+     "\\(If not, see <https?://www\\.gnu\\.org/licenses/>\\|\
+Boston, MA 0211\\(1-1307\\|0-1301\\), USA\\|\
+675 Mass Ave, Cambridge, MA 02139, USA\\)\\.")
+    (,(rx (or "The Regents of the University of California.  All rights 
reserved."
+              "Redistribution and use in source and binary"))
+     . "THE POSSIBILITY OF SUCH DAMAGE\\.") ; BSD
+    ("Permission is hereby granted, free of charge" .
+     ,(rx (or "authorization from the X Consortium."           ; X11
+              "THE USE OR OTHER DEALINGS IN THE SOFTWARE.")))) ; Expat
   "Alist of regexps defining start and end of text to elide.
 
 The cars of elements of the list are searched for in order.  Text is
@@ -64,7 +67,8 @@ elided with an invisible overlay from the end of the line 
where the
 first match is found to the end of the match for the corresponding
 cdr."
   :type '(alist :key-type  (regexp :tag "Start regexp")
-               :value-type (regexp :tag "End regexp")))
+                :value-type (regexp :tag "End regexp"))
+  :version "29.1")
 
 (defvar-local elide-head-overlay nil)
 



reply via email to

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