Mercurial > emacs
changeset 70221:1fd89e2b70fd
(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.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 26 Apr 2006 05:28:47 +0000 |
| parents | 30348fc29fd7 |
| children | c95a147129b4 |
| files | lisp/ChangeLog lisp/textmodes/paragraphs.el |
| diffstat | 2 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Apr 26 05:27:48 2006 +0000 +++ b/lisp/ChangeLog Wed Apr 26 05:28:47 2006 +0000 @@ -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)
--- a/lisp/textmodes/paragraphs.el Wed Apr 26 05:27:48 2006 +0000 +++ b/lisp/textmodes/paragraphs.el Wed Apr 26 05:28:47 2006 +0000 @@ -128,7 +128,7 @@ `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 @@ `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 @@ `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 @@ "*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.