changeset: 4658:2d9ba8d925b21985ea085a67a14f6671a77e80b4 parent: 4611:16c9098dd3d2459c112fd2f8080f6b57c7099d10 user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Sun Feb 15 12:27:23 2009 +0000 files: lisp/ChangeLog lisp/descr-text.el description: 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. diff -r 16c9098dd3d2459c112fd2f8080f6b57c7099d10 -r 2d9ba8d925b21985ea085a67a14f6671a77e80b4 lisp/ChangeLog --- a/lisp/ChangeLog Thu Jan 01 16:37:48 2009 +0900 +++ b/lisp/ChangeLog Sun Feb 15 12:27:23 2009 +0000 ＠＠ -1,8 +1,3 ＠＠ 2009-01-01 Stephen J. Turnbull <stephe -2009-01-01 Stephen J. Turnbull <stephen(a)xemacs.org&gt; - - * descr-text.el (describe-char-unicodedata-file): - Nuke build-breaking computation from defcustom initializer. - 2008-12-30 Aidan Kehoe <kehoea(a)parhasard.net&gt; * make-docfile.el: diff -r 16c9098dd3d2459c112fd2f8080f6b57c7099d10 -r 2d9ba8d925b21985ea085a67a14f6671a77e80b4 lisp/descr-text.el --- a/lisp/descr-text.el Thu Jan 01 16:37:48 2009 +0900 +++ b/lisp/descr-text.el Sun Feb 15 12:27:23 2009 +0000 ＠＠ -207,18 +207,40 ＠＠ otherwise." (insert "There are text properties here:\n") (describe-property-list properties)))))  -;; XEmacs change -(defcustom describe-char-unicodedata-file nil +(defcustom describe-char-unicodedata-file + ;; XEmacs change; initialise this by default, using Perl. + (let ((have-perl + (member-if + #'(lambda (path) + (file-exists-p (format "%s%cperl" path directory-sep-char))) + exec-path)) + installprivlib res) + (when have-perl + (setq installprivlib + (with-string-as-buffer-contents "" + (shell-command "perl -V:installprivlib" t) + ;; 1+ because buffer offsets start at one. + (delete-region 1 (1+ (length "installprivlib='"))) + ;; Delete the final newline, semicolon and quotation mark. + (delete-region (- (point-max) 3) (point-max)))) + (cond + ((file-exists-p + (setq res + (format "%s%cunicore%cUnicodeData.txt" + installprivlib directory-sep-char directory-sep-char)))) + ((file-exists-p + (setq res + (format "%s%cunicode%cUnicodeData.txt" + installprivlib directory-sep-char directory-sep-char))))) + res)) "Location of Unicode data file. This is the UnicodeData.txt file from the Unicode Consortium, used for diagnostics. If it is non-nil `describe-char' will print data looked up from it. This facility is mostly of use to people doing multilingual development. -This is a fairly large file, installed on many systems by Perl, in the -`unicore' subdirectory of the Perl library tree \(\"perl -V:installprivlib\" -will tell you where that is.) You can also get the current version from the -Unicode Consortium at the URL +This is a fairly large file, typically installed with Perl. +At the time of writing it is at the URL `http://www.unicode.org/Public/UNIDATA/UnicodeData.txt'. It is possible to build a DBM or Berkeley index cache for this file, so that _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches