Mercurial > hg > xemacs-beta

comparison lisp/descr-text.el @ 4617:2d9ba8d925b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Backed out changeset 16c9098dd3d2. See http://mid.gmane.org/8763jbsyr7.fsf@xemacs.org for details from Stephen as to why. Basically, there was a bug in his version of Xt that broke the initialisation of the describe-char-unicodedata-file variable; he has found it, and fixed it locally, so this should not longer be an issue.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 15 Feb 2009 12:27:23 +0000
parents 16c9098dd3d2
children 69cd8e2d2a88
comparison
equal deleted inserted replaced
4572:16c9098dd3d2 4617:2d9ba8d925b2
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 ;; XEmacs change 210 (defcustom describe-char-unicodedata-file
211 (defcustom describe-char-unicodedata-file nil 211 ;; XEmacs change; initialise this by default, using Perl.
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))
212 "Location of Unicode data file. 236 "Location of Unicode data file.
213 This is the UnicodeData.txt file from the Unicode Consortium, used for 237 This is the UnicodeData.txt file from the Unicode Consortium, used for
214 diagnostics. If it is non-nil `describe-char' will print data 238 diagnostics. If it is non-nil `describe-char' will print data
215 looked up from it. This facility is mostly of use to people doing 239 looked up from it. This facility is mostly of use to people doing
216 multilingual development. 240 multilingual development.
217 241
218 This is a fairly large file, installed on many systems by Perl, in the 242 This is a fairly large file, typically installed with Perl.
219 `unicore' subdirectory of the Perl library tree \(\"perl -V:installprivlib\" 243 At the time of writing it is at the URL
220 will tell you where that is.) You can also get the current version from the
221 Unicode Consortium at the URL
222 `http://www.unicode.org/Public/UNIDATA/UnicodeData.txt'. 244 `http://www.unicode.org/Public/UNIDATA/UnicodeData.txt'.
223 245
224 It is possible to build a DBM or Berkeley index cache for this file, so that 246 It is possible to build a DBM or Berkeley index cache for this file, so that
225 it is not necessary to parse the whole file at run time. See 247 it is not necessary to parse the whole file at run time. See
226 `unidata-initialize-unicodedata-database'. 248 `unidata-initialize-unicodedata-database'.