diff options
| author | Dave Love | 2002-07-30 11:23:12 +0000 |
|---|---|---|
| committer | Dave Love | 2002-07-30 11:23:12 +0000 |
| commit | d260b2183f5dbdd871310963852e815a77513d7f (patch) | |
| tree | af742376ffec514e362e5ac890f26c09ec5a8240 | |
| parent | e18ef64ac6fce08451e6e59a8a5950ad3771281a (diff) | |
| download | emacs-d260b2183f5dbdd871310963852e815a77513d7f.tar.gz emacs-d260b2183f5dbdd871310963852e815a77513d7f.zip | |
(copyright-regexp): Remove redundancy.
| -rw-r--r-- | lisp/ChangeLog | 16 | ||||
| -rw-r--r-- | lisp/emacs-lisp/copyright.el | 8 |
2 files changed, 13 insertions, 11 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f69d54d956c..5d7365f2940 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2002-07-30 Dave Love <fx@gnu.org> | ||
| 2 | |||
| 3 | * emacs-lisp/copyright.el (copyright-regexp): Remove redundancy. | ||
| 4 | |||
| 1 | 2002-07-26 Kenichi Handa <handa@etl.go.jp> | 5 | 2002-07-26 Kenichi Handa <handa@etl.go.jp> |
| 2 | 6 | ||
| 3 | * international/characters.el: Setup char-script-table. | 7 | * international/characters.el: Setup char-script-table. |
| @@ -139,7 +143,7 @@ | |||
| 139 | 2002-06-15 Dave Love <fx@gnu.org> | 143 | 2002-06-15 Dave Love <fx@gnu.org> |
| 140 | 144 | ||
| 141 | * language/cyrillic.el ("Belarusian"): Doc fix. | 145 | * language/cyrillic.el ("Belarusian"): Doc fix. |
| 142 | (Cp1125, koi8-t): Doc fix. | 146 | (cp1125, koi8-t): Doc fix. |
| 143 | 147 | ||
| 144 | * international/mule-cmds.el (find-multibyte-characters): Doc fix. | 148 | * international/mule-cmds.el (find-multibyte-characters): Doc fix. |
| 145 | (find-multibyte-characters): Don't test for charset `unknown'. | 149 | (find-multibyte-characters): Don't test for charset `unknown'. |
| @@ -381,8 +385,8 @@ | |||
| 381 | 385 | ||
| 382 | * international/mule-diag.el (print-coding-system): Incomplete | 386 | * international/mule-diag.el (print-coding-system): Incomplete |
| 383 | updates. | 387 | updates. |
| 384 | (Describe-character-set): List more properties. | 388 | (describe-character-set): List more properties. |
| 385 | (Print-fontset): Fix case of vector font-spec. | 389 | (print-fontset): Fix case of vector font-spec. |
| 386 | (describe-current-coding-system): Fix iso-7, iso-7-else. | 390 | (describe-current-coding-system): Fix iso-7, iso-7-else. |
| 387 | 391 | ||
| 388 | * international/mule-conf.el (ibm866): Fix alias. | 392 | * international/mule-conf.el (ibm866): Fix alias. |
| @@ -430,7 +434,7 @@ | |||
| 430 | 434 | ||
| 431 | 2002-05-22 Dave Love <fx@gnu.org> | 435 | 2002-05-22 Dave Love <fx@gnu.org> |
| 432 | 436 | ||
| 433 | * international/mule-conf.el (code-pages): Provide for | 437 | * international/mule-conf.el (code-pages): Provide, for |
| 434 | compatibility. | 438 | compatibility. |
| 435 | 439 | ||
| 436 | * international/code-pages.el: Removed. | 440 | * international/code-pages.el: Removed. |
| @@ -450,8 +454,8 @@ | |||
| 450 | 454 | ||
| 451 | 2002-05-21 Kenichi Handa <handa@etl.go.jp> | 455 | 2002-05-21 Kenichi Handa <handa@etl.go.jp> |
| 452 | 456 | ||
| 453 | * international/mule-conf.el (vietnamese-viscii-lower, | 457 | * international/mule-conf.el (vietnamese-viscii-lower) |
| 454 | vietnamese-viscii-upper): Supply them :code-offset, then unify by | 458 | (vietnamese-viscii-upper): Supply them :code-offset, then unify by |
| 455 | mapping table. | 459 | mapping table. |
| 456 | 460 | ||
| 457 | 2002-05-20 Dave Love <fx@gnu.org> | 461 | 2002-05-20 Dave Love <fx@gnu.org> |
diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el index abed05cf902..9411c8be8ec 100644 --- a/lisp/emacs-lisp/copyright.el +++ b/lisp/emacs-lisp/copyright.el | |||
| @@ -43,11 +43,9 @@ A value of nil means to search whole buffer." | |||
| 43 | ;; Would it be cleaner to specify Latin-1 coding for this file, | 43 | ;; Would it be cleaner to specify Latin-1 coding for this file, |
| 44 | ;; and not use both unibyte and multibyte copyright symbol characters? | 44 | ;; and not use both unibyte and multibyte copyright symbol characters? |
| 45 | 45 | ||
| 46 | ;; The character classes include the unibyte (C) sign, | ||
| 47 | ;; the Latin-1 version, and the Latin-9 version. | ||
| 48 | (defcustom copyright-regexp | 46 | (defcustom copyright-regexp |
| 49 | "\\([©Ž©]\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *\\(?:(C)\\)?\ | 47 | "\\(©\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *\\(?:(C)\\)?\ |
| 50 | \\|[Cc]opyright\\s *:?\\s *[©Ž©]\\)\ | 48 | \\|[Cc]opyright\\s *:?\\s *©\\)\ |
| 51 | \\s *\\([1-9]\\([-0-9, ';\n\t]\\|\\s<\\|\\s>\\)*[0-9]+\\)" | 49 | \\s *\\([1-9]\\([-0-9, ';\n\t]\\|\\s<\\|\\s>\\)*[0-9]+\\)" |
| 52 | "*What your copyright notice looks like. | 50 | "*What your copyright notice looks like. |
| 53 | The second \\( \\) construct must match the years." | 51 | The second \\( \\) construct must match the years." |
| @@ -167,7 +165,7 @@ version \\([0-9]+\\), or (at" | |||
| 167 | 165 | ||
| 168 | ;; For the copyright sign: | 166 | ;; For the copyright sign: |
| 169 | ;; Local Variables: | 167 | ;; Local Variables: |
| 170 | ;; coding: emacs-mule | 168 | ;; coding: utf-8 |
| 171 | ;; End: | 169 | ;; End: |
| 172 | 170 | ||
| 173 | ;;; copyright.el ends here | 171 | ;;; copyright.el ends here |