diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-04-26 05:28:47 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-04-26 05:28:47 +0000 |
| commit | de7566a74dce01bbde69f8f298124bafd275e37a (patch) | |
| tree | fd3bc500212d56d95227eb028844b6c6af80eac1 | |
| parent | 331da253bab405b5bd03bf3f81bf09e1e24cd1c9 (diff) | |
| download | emacs-de7566a74dce01bbde69f8f298124bafd275e37a.tar.gz | |
(sentence-end-double-space, sentence-end-without-period)
(sentence-end-without-space, page-delimiter, paragraph-ignore-fill-prefix):
Tighten up a bit the safety predicate.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/textmodes/paragraphs.el | 10 |
2 files changed, 10 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b32f79244a5..a60a67634b1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2006-04-26 Stefan Monnier <monnier@iro.umontreal.ca> + * textmodes/paragraphs.el (sentence-end-double-space) + (sentence-end-without-period, sentence-end-without-space) + (page-delimiter, paragraph-ignore-fill-prefix): + Tighten up a bit the safety predicate. + * textmodes/fill.el (colon-double-space): Tighten up the safety pred. * progmodes/python.el (python-continuation-line-p) diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index 6693be4e0c9..9e7d02182ef 100644 --- a/lisp/textmodes/paragraphs.el +++ b/lisp/textmodes/paragraphs.el @@ -128,7 +128,7 @@ regexp describing the end of a sentence, when the value of the variable `sentence-end' is nil. See Info node `(elisp)Standard Regexps'." :type 'boolean :group 'fill) -;;;###autoload(put 'sentence-end-double-space 'safe-local-variable t) +;;;###autoload(put 'sentence-end-double-space 'safe-local-variable 'symbolp) (defcustom sentence-end-without-period nil "*Non-nil means a sentence will end without a period. @@ -140,7 +140,7 @@ regexp describing the end of a sentence, when the value of the variable `sentence-end' is nil. See Info node `(elisp)Standard Regexps'." :type 'boolean :group 'fill) -;;;###autoload(put 'sentence-end-without-period 'safe-local-variable t) +;;;###autoload(put 'sentence-end-without-period 'safe-local-variable 'symbolp) (defcustom sentence-end-without-space "$B!#!%!)!*$A!##.#?#!$(0!$!%!)!*$(G!$!%!)!*(B" @@ -151,7 +151,7 @@ regexp describing the end of a sentence, when the value of the variable `sentence-end' is nil. See Info node `(elisp)Standard Regexps'." :group 'paragraphs :type 'string) -;;;###autoload(put 'sentence-end-without-space 'safe-local-variable t) +;;;###autoload(put 'sentence-end-without-space 'safe-local-variable 'symbolp) (defcustom sentence-end nil "*Regexp describing the end of a sentence. @@ -198,14 +198,14 @@ in between. See Info node `(elisp)Standard Regexps'." "*Regexp describing line-beginnings that separate pages." :group 'paragraphs :type 'regexp) -;;;###autoload(put 'page-delimiter 'safe-local-variable t) +;;;###autoload(put 'page-delimiter 'safe-local-variable 'stringp) (defcustom paragraph-ignore-fill-prefix nil "*Non-nil means the paragraph commands are not affected by `fill-prefix'. This is desirable in modes where blank lines are the paragraph delimiters." :group 'paragraphs :type 'boolean) -;;;###autoload(put 'paragraph-ignore-fill-prefix 'safe-local-variable t) +;;;###autoload(put 'paragraph-ignore-fill-prefix 'safe-local-variable 'symbolp) (defun forward-paragraph (&optional arg) "Move forward to end of paragraph. |