Mercurial > hg > xemacs-beta
diff lisp/paragraphs.el @ 5229:7d06a8bf47d2
Move #'purecopy from alloc.c to being an obsolete alias for #'identity
lisp/ChangeLog addition:
2010-06-08 Aidan Kehoe <kehoea@parhasard.net>
* paragraphs.el (sentence-end):
* gtk-faces.el:
* custom.el (custom-declare-variable):
Remove all core code calls to #'purecopy.
* obsolete.el (purecopy):
Make the function itself an obsolete alias to #'identity.
src/ChangeLog addition:
2010-06-08 Aidan Kehoe <kehoea@parhasard.net>
* alloc.c (Fpurecopy):
Moved to obsolete.el as an alias for #'identity, marked obsolete.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 08 Jun 2010 15:58:47 +0100 |
| parents | b4f4e0cc90f1 |
| children | ed74d2ca7082 308d34e9f07d |
line wrap: on
line diff
--- a/lisp/paragraphs.el Mon Jun 07 18:42:10 2010 +0100 +++ b/lisp/paragraphs.el Tue Jun 08 15:58:47 2010 +0100 @@ -145,18 +145,17 @@ :group 'fill) (defcustom sentence-end - (purecopy - ;; This is a bit stupid since it's not auto-updated when the - ;; other variables are changed, but it's still useful info. - (concat (if sentence-end-without-period "\\w \\|") - "[.?!" - (if (featurep 'mule) - (decode-coding-string "\033$B!#!%!)!*\033$A!##.#?#!\033$(0!$!%!)!*\033$(G!$!%!)!*\033(B" 'iso-2022-7bit) - "") - "][]\"')}]*" - (if sentence-end-double-space - "\\($\\| $\\|\t\\| \\)" "\\($\\|[\t ]\\)") - "[ \t\n]*")) + ;; This is a bit stupid since it's not auto-updated when the + ;; other variables are changed, but it's still useful info. + (concat (if sentence-end-without-period "\\w \\|") + "[.?!" + (if (featurep 'mule) + (decode-coding-string "\033$B!#!%!)!*\033$A!##.#?#!\033$(0!$!%!)!*\033$(G!$!%!)!*\033(B" 'iso-2022-7bit) + "") + "][]\"')}]*" + (if sentence-end-double-space + "\\($\\| $\\|\t\\| \\)" "\\($\\|[\t ]\\)") + "[ \t\n]*") "*Regexp describing the end of a sentence. The value includes the whitespace following the sentence. All paragraph boundaries also end sentences, regardless.