diff options
| -rw-r--r-- | lisp/elide-head.el | 4 | ||||
| -rw-r--r-- | test/lisp/elide-head-tests.el | 21 |
2 files changed, 18 insertions, 7 deletions
diff --git a/lisp/elide-head.el b/lisp/elide-head.el index 90bf1fe35b5..75a3612df91 100644 --- a/lisp/elide-head.el +++ b/lisp/elide-head.el | |||
| @@ -53,8 +53,8 @@ | |||
| 53 | `(;; GNU GPL | 53 | `(;; GNU GPL |
| 54 | ("is free software[:;] you can redistribute it" . | 54 | ("is free software[:;] you can redistribute it" . |
| 55 | ,(rx (or (seq "If not, see " (? "<") | 55 | ,(rx (or (seq "If not, see " (? "<") |
| 56 | "http" (? "s") "://www.gnu.org/licenses/" | 56 | "http" (? "s") "://www.gnu.org/licenses" |
| 57 | (? ">") (? " ")) | 57 | (? "/") (? ">") (? " ")) |
| 58 | (seq "Boston, MA " (? " ") | 58 | (seq "Boston, MA " (? " ") |
| 59 | "0211" (or "1-1307" "0-1301") | 59 | "0211" (or "1-1307" "0-1301") |
| 60 | (or " " ", ") "USA") | 60 | (or " " ", ") "USA") |
diff --git a/test/lisp/elide-head-tests.el b/test/lisp/elide-head-tests.el index 6f351170f1d..429ef266572 100644 --- a/test/lisp/elide-head-tests.el +++ b/test/lisp/elide-head-tests.el | |||
| @@ -3,7 +3,6 @@ | |||
| 3 | ;; Copyright (C) 2020-2022 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2020-2022 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Simen Heggestøyl <simenheg@gmail.com> | 5 | ;; Author: Simen Heggestøyl <simenheg@gmail.com> |
| 6 | ;; Keywords: | ||
| 7 | 6 | ||
| 8 | ;; This file is part of GNU Emacs. | 7 | ;; This file is part of GNU Emacs. |
| 9 | 8 | ||
| @@ -20,10 +19,6 @@ | |||
| 20 | ;; You should have received a copy of the GNU General Public License | 19 | ;; You should have received a copy of the GNU General Public License |
| 21 | ;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. | 20 | ;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. |
| 22 | 21 | ||
| 23 | ;;; Commentary: | ||
| 24 | |||
| 25 | ;; | ||
| 26 | |||
| 27 | ;;; Code: | 22 | ;;; Code: |
| 28 | 23 | ||
| 29 | (require 'elide-head) | 24 | (require 'elide-head) |
| @@ -169,6 +164,22 @@ | |||
| 169 | ***************************************************************************/ | 164 | ***************************************************************************/ |
| 170 | " "This program is distributed in the hope that") | 165 | " "This program is distributed in the hope that") |
| 171 | 166 | ||
| 167 | ;; from mentor.el [no "/" in the gnu.org URL] | ||
| 168 | (elide-head--add-test gpl3-5 "\ | ||
| 169 | ;; Mentor is free software; you can redistribute it and/or modify it | ||
| 170 | ;; under the terms of the GNU General Public License as published by | ||
| 171 | ;; the Free Software Foundation; either version 3, or (at your option) | ||
| 172 | ;; any later version. | ||
| 173 | ;; | ||
| 174 | ;; Mentor is distributed in the hope that it will be useful, but WITHOUT | ||
| 175 | ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY | ||
| 176 | ;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public | ||
| 177 | ;; License for more details. | ||
| 178 | ;; | ||
| 179 | ;; You should have received a copy of the GNU General Public License | ||
| 180 | ;; along with Mentor. If not, see <https://www.gnu.org/licenses>. | ||
| 181 | " "Mentor is distributed in the hope that") | ||
| 182 | |||
| 172 | 183 | ||
| 173 | ;;; GPLv2 | 184 | ;;; GPLv2 |
| 174 | 185 | ||