Mercurial > hg > xemacs-beta

comparison lisp/descr-text.el @ 4618:69cd8e2d2a88

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