Mercurial > hg > xemacs-beta

comparison lisp/descr-text.el @ 4572:16c9098dd3d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix build broken by descr-text.el defcustom.
author Stephen J. Turnbull <stephen@xemacs.org>
date Thu, 01 Jan 2009 16:37:48 +0900
parents f9c70d94f427
children c786c3fd0740 2d9ba8d925b2
comparison
equal deleted inserted replaced
4571:ebc01476e352 4572:16c9098dd3d2
205 (when properties 205 (when properties
206 (newline) 206 (newline)
207 (insert "There are text properties here:\n") 207 (insert "There are text properties here:\n")
208 (describe-property-list properties))))) 208 (describe-property-list properties)))))
209 209
210 (defcustom describe-char-unicodedata-file 210 ;; XEmacs change
211 ;; XEmacs change; initialise this by default, using Perl. 211 (defcustom describe-char-unicodedata-file nil
212 (let ((have-perl
213 (member-if
214 #'(lambda (path)
215 (file-exists-p (format "%s%cperl" path directory-sep-char)))
216 exec-path))
217 installprivlib res)
218 (when have-perl
219 (setq installprivlib
220 (with-string-as-buffer-contents ""
221 (shell-command "perl -V:installprivlib" t)
222 ;; 1+ because buffer offsets start at one.
223 (delete-region 1 (1+ (length "installprivlib='")))
224 ;; Delete the final newline, semicolon and quotation mark.
225 (delete-region (- (point-max) 3) (point-max))))
226 (cond
227 ((file-exists-p
228 (setq res
229 (format "%s%cunicore%cUnicodeData.txt"
230 installprivlib directory-sep-char directory-sep-char))))
231 ((file-exists-p
232 (setq res
233 (format "%s%cunicode%cUnicodeData.txt"
234 installprivlib directory-sep-char directory-sep-char)))))
235 res))
236 "Location of Unicode data file. 212 "Location of Unicode data file.
237 This is the UnicodeData.txt file from the Unicode Consortium, used for 213 This is the UnicodeData.txt file from the Unicode Consortium, used for
238 diagnostics. If it is non-nil `describe-char' will print data 214 diagnostics. If it is non-nil `describe-char' will print data
239 looked up from it. This facility is mostly of use to people doing 215 looked up from it. This facility is mostly of use to people doing
240 multilingual development. 216 multilingual development.
241 217
242 This is a fairly large file, typically installed with Perl. 218 This is a fairly large file, installed on many systems by Perl, in the
243 At the time of writing it is at the URL 219 `unicore' subdirectory of the Perl library tree \(\"perl -V:installprivlib\"
220 will tell you where that is.) You can also get the current version from the
221 Unicode Consortium at the URL
244 `http://www.unicode.org/Public/UNIDATA/UnicodeData.txt'. 222 `http://www.unicode.org/Public/UNIDATA/UnicodeData.txt'.
245 223
246 It is possible to build a DBM or Berkeley index cache for this file, so that 224 It is possible to build a DBM or Berkeley index cache for this file, so that
247 it is not necessary to parse the whole file at run time. See 225 it is not necessary to parse the whole file at run time. See
248 `unidata-initialize-unicodedata-database'. 226 `unidata-initialize-unicodedata-database'.