Mercurial > hg > xemacs-beta

comparison lisp/paragraphs.el @ 5229:7d06a8bf47d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
5228:5efbd1253905 5229:7d06a8bf47d2
143 without a period." 143 without a period."
144 :type 'boolean 144 :type 'boolean
145 :group 'fill) 145 :group 'fill)
146 146
147 (defcustom sentence-end 147 (defcustom sentence-end
148 (purecopy 148 ;; This is a bit stupid since it's not auto-updated when the
149 ;; This is a bit stupid since it's not auto-updated when the 149 ;; other variables are changed, but it's still useful info.
150 ;; other variables are changed, but it's still useful info. 150 (concat (if sentence-end-without-period "\\w \\|")
151 (concat (if sentence-end-without-period "\\w \\|") 151 "[.?!"
152 "[.?!" 152 (if (featurep 'mule)
153 (if (featurep 'mule) 153 (decode-coding-string "\033$B!#!%!)!*\033$A!##.#?#!\033$(0!$!%!)!*\033$(G!$!%!)!*\033(B" 'iso-2022-7bit)
154 (decode-coding-string "\033$B!#!%!)!*\033$A!##.#?#!\033$(0!$!%!)!*\033$(G!$!%!)!*\033(B" 'iso-2022-7bit) 154 "")
155 "") 155 "][]\"')}]*"
156 "][]\"')}]*" 156 (if sentence-end-double-space
157 (if sentence-end-double-space 157 "\\($\\| $\\|\t\\| \\)" "\\($\\|[\t ]\\)")
158 "\\($\\| $\\|\t\\| \\)" "\\($\\|[\t ]\\)") 158 "[ \t\n]*")
159 "[ \t\n]*"))
160 "*Regexp describing the end of a sentence. 159 "*Regexp describing the end of a sentence.
161 The value includes the whitespace following the sentence. 160 The value includes the whitespace following the sentence.
162 All paragraph boundaries also end sentences, regardless. 161 All paragraph boundaries also end sentences, regardless.
163 162
164 The default value specifies that in order to be recognized as the end 163 The default value specifies that in order to be recognized as the end