Mercurial > emacs
changeset 70218:d84cbfb84b06
(time-stamp-start, time-stamp-end, time-stamp-inserts-lines):
Tighten up a bit the safety predicate.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 26 Apr 2006 05:25:32 +0000 |
| parents | 377548b8f095 |
| children | 7a59f2600206 |
| files | lisp/ChangeLog lisp/time-stamp.el |
| diffstat | 2 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Apr 26 05:23:37 2006 +0000 +++ b/lisp/ChangeLog Wed Apr 26 05:25:32 2006 +0000 @@ -1,5 +1,8 @@ 2006-04-26 Stefan Monnier <monnier@iro.umontreal.ca> + * time-stamp.el (time-stamp-start, time-stamp-end) + (time-stamp-inserts-lines): Tighten up a bit the safety predicate. + * add-log.el: Remove spurious * in docstrings. (add-log-time-zone-rule): Rename from change-log-time-zone-rule. (add-change-log-entry): Use it here, since it's not specific
--- a/lisp/time-stamp.el Wed Apr 26 05:23:37 2006 +0000 +++ b/lisp/time-stamp.el Wed Apr 26 05:25:32 2006 +0000 @@ -164,7 +164,7 @@ incompatible with other people's files! If you must change them for some application, do so in the local variables section of the time-stamped file itself.") -;;;###autoload(put 'time-stamp-start 'safe-local-variable t) +;;;###autoload(put 'time-stamp-start 'safe-local-variable 'stringp) (defvar time-stamp-end "\\\\?[\">]" ;Do not change! "Regexp marking the text after the time stamp. @@ -184,7 +184,7 @@ or `time-stamp-inserts-lines' for yourself or you will be incompatible with other people's files! If you must change them for some application, do so in the local variables section of the time-stamped file itself.") -;;;###autoload(put 'time-stamp-end 'safe-local-variable t) +;;;###autoload(put 'time-stamp-end 'safe-local-variable 'stringp) (defvar time-stamp-inserts-lines nil ;Do not change! @@ -201,7 +201,7 @@ yourself or you will be incompatible with other people's files! If you must change them for some application, do so in the local variables section of the time-stamped file itself.") -;;;###autoload(put 'time-stamp-inserts-lines 'safe-local-variable t) +;;;###autoload(put 'time-stamp-inserts-lines 'safe-local-variable 'symbolp) (defvar time-stamp-count 1 ;Do not change!