diff options
| author | Karl Berry | 2004-01-04 23:00:06 +0000 |
|---|---|---|
| committer | Karl Berry | 2004-01-04 23:00:06 +0000 |
| commit | 17b337762fe7df77aa8a6dfcea0109a267bea83d (patch) | |
| tree | b30bd0a0351c1bb4ec4e5bd33f99788cf88af6be /lisp | |
| parent | e822882420396cb0fd14cf3e33b8035306dac726 (diff) | |
| download | emacs-17b337762fe7df77aa8a6dfcea0109a267bea83d.tar.gz emacs-17b337762fe7df77aa8a6dfcea0109a267bea83d.zip | |
allow % and # as well as ; in copyright notice
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/emacs-lisp/copyright.el | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 08d3d17ce0b..14963f0ef8c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2004-01-04 Karl Berry <karl@gnu.org> | ||
| 2 | |||
| 3 | * emacs-lisp/copyright.el (copyright-regexp): allow the common | ||
| 4 | comment characters % and # in the copyright year notice, | ||
| 5 | as well as ;. | ||
| 6 | |||
| 1 | 2004-01-04 Per Abrahamsen <abraham@dina.kvl.dk> | 7 | 2004-01-04 Per Abrahamsen <abraham@dina.kvl.dk> |
| 2 | 8 | ||
| 3 | * wid-edit.el (default): Define dummy :value-delete. | 9 | * wid-edit.el (default): Define dummy :value-delete. |
diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el index fc0a5b74726..4532f7e5b77 100644 --- a/lisp/emacs-lisp/copyright.el +++ b/lisp/emacs-lisp/copyright.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; copyright.el --- update the copyright notice in current buffer | 1 | ;;; copyright.el --- update the copyright notice in current buffer |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1991, 92, 93, 94, 95, 1998, 2001, 2003 | 3 | ;; Copyright (C) 1991, 92, 93, 94, 95, 1998, 2001, 2003, 2004 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Daniel Pfeiffer <occitan@esperanto.org> | 6 | ;; Author: Daniel Pfeiffer <occitan@esperanto.org> |
| @@ -47,7 +47,7 @@ A value of nil means to search whole buffer." | |||
| 47 | (defcustom copyright-regexp | 47 | (defcustom copyright-regexp |
| 48 | "\\([]\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *\\(?:(C)\\)?\ | 48 | "\\([]\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *\\(?:(C)\\)?\ |
| 49 | \\|[Cc]opyright\\s *:?\\s *[]\\)\ | 49 | \\|[Cc]opyright\\s *:?\\s *[]\\)\ |
| 50 | \\s *\\([1-9]\\([-0-9, ';\n\t]\\|\\s<\\|\\s>\\)*[0-9]+\\)" | 50 | \\s *\\([1-9]\\([-0-9, ';%#\n\t]\\|\\s<\\|\\s>\\)*[0-9]+\\)" |
| 51 | "*What your copyright notice looks like. | 51 | "*What your copyright notice looks like. |
| 52 | The second \\( \\) construct must match the years." | 52 | The second \\( \\) construct must match the years." |
| 53 | :group 'copyright | 53 | :group 'copyright |