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

elide-head: Support more licenses

Browse source 
* 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
This commit is contained in:
Stefan Kangas 2022-01-01 14:23:11 +01:00
parent 823b6b8d26
commit 31fefef4a2
1 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/elide-head.el
View file

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