"An alist of pairs of regexps which delimit copyright notices to hide.
The first one found is hidden, so order is significant.")
+(defgroup hide-copyleft nil
+ "Hide copyright prologs."
+(defcustom more-copylefts-to-hide nil
+ "Additional copylefts to hide. See: `copylefts-to-hide'."
+ :set #'(lambda (var val)
+ (setq copylefts-to-hide (append copylefts-to-hide
+ :type '(repeat (cons (regexp :tag "Top line")
+ (regexp :tag "Bottom line"))))
(defun hide-copyleft-region (&optional arg)