Ar an naoiú lá de mí Lúnasa, scríobh Mike Sperber: For some reason, that loses the make-display-table autoload, which prevents APEL from compiling. This patch works for me; what I don’t know is if mule-lisp-directory is bound on a non-Mule XEmacs, and how paths-find-recursive-load-path will react to it in that context. --- package-compile.el~ 2007-08-14 08:12:55.000000000 +0200 +++ package-compile.el 2007-08-13 22:53:19.000000000 +0200 ＠＠ -63,7 +63,6 ＠＠ (error "package-compile may only be used with -batch")) ;;; Step 1, set the load-path and load the core autoloads. - (let ((depth (cond ;; #### All hail Mr. Preprocessor! ;; OK, OK, his code is under development; FIXME when it's done. ＠＠ -72,7 +71,8 ＠＠ ((boundp 'paths-core-load-path-depth) ; XEmacs > 21.2.41 paths-core-load-path-depth) (t (error "Somebody has been messing with paths-find-*!"))))) - (setq load-path (paths-find-recursive-load-path (list lisp-directory) + (setq load-path (paths-find-recursive-load-path (list lisp-directory + mule-lisp-directory) depth))) (load (expand-file-name "auto-autoloads" (car load-path))) Here’s the error message and backtrace: cs.elc... Requiring /Sources/packages-current-compile-test/xemacs-packages/fsf-compat/overlay.elc... Requiring /Sources/packages-current-compile-test/xemacs-packages/fsf-compat/timer.elc... Loading /Sources/packages-current-compile-test/xemacs-packages/xemacs-base/advice.elc... Compiling /Sources/packages-current-compile-test/xemacs-packages/apel/richtext.el... Loading /Sources/xemacs-21.5-building/lisp/cl-macs.elc... load-path is ("/Sources/packages-current-compile-test/xemacs-packages/apel/" "/Sources/packages-current-compile-test/xemacs-packages/fsf-compat" "/Sources/packages-current-compile-test/xemacs-packages/xemacs-base" "/Sources/xemacs-21.5-building/lisp/mule/" "/Sources/xemacs-21.5-building/lisp/") Requiring /Sources/packages-current-compile-test/xemacs-packages/xemacs-base/enriched.elc... Loading /Sources/xemacs-21.5-building/lisp/cus-face.elc... While compiling toplevel forms in file /Sources/packages-current-compile-test/xemacs-packages/apel/richtext.el: !! Symbol's function definition is void ((make-display-table)) backtrace(nil t) # bind (error-info) byte-compile-report-error((void-function make-display-table)) # bind (error-info) #<compiled-function (error-info) "...(4)" [error-info byte-compile-report-error] 2>((void-function make-display-table)) make-display-table() byte-code("..." [enriched-display-table current-load-list custom-declare-face fixed ((t (:bold t))) "Face used for text that must be shown in fixed width.\nCurrently, emacs can only display fixed-width fonts, but this may change.\nThis face is used for text specifically marked as fixed-width, for example\nin text/enriched files." :group enriched excerpt ((t (:italic t))) "Face used for text that is an excerpt from another document.\nThis is used in enriched-mode for text explicitly marked as an excerpt." make-display-table ?\^L make-vector frame-width ?-] 7) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) (load-internal "[internal]") load-internal("enriched" nil require nil binary) # bind (path handler filename nosuffix nomessage noerror file) load("enriched" nil require nil) # (unwind-protect ...) require(enriched) eval((require (quote enriched))) # bind (form) byte-compile-file-form-eval-boundary((require (quote enriched))) # bind (byte-compile-current-form handler form) byte-compile-file-form((require (quote enriched))) # (unwind-protect ...) #<compiled-function nil "...(43)" [byte-compile-unresolved-functions byte-compile-inbuffer 1 " \n " nil looking-at ";" byte-compile-file-form read byte-compile-flush-pending byte-compile-warn-about-unresolved-functions] 3>() # (unwind-protect ...) call-with-condition-handler(#<compiled-function (error-info) "...(4)" [error-info byte-compile-report-error] 2> #<compiled-function nil "...(43)" [byte-compile-unresolved-functions byte-compile-inbuffer 1 " \n " nil looking-at ";" byte-compile-file-form read byte-compile-flush-pending byte-compile-warn-about-unresolved-functions] 3>) # (unwind-protect ...) # bind (byte-compile-warnings-beginning byte-compile-point-max-prev byte-compile-log-buffer byte-compile-macro-environment byte-compile-function-environment byte-compile-autoload-environment byte-compile-unresolved-functions byte-compile-bound-variables byte-compile-free-references byte-compile-free-assignments byte-compile-verbose byte-optimize byte-compile-emacs19-compatibility byte-compile-dynamic byte-compile-dynamic-docstrings byte-compile-warnings byte-compile-file-domain byte-compile-outbuffer float-output-format case-fold-search print-length print-level byte-compile-constants byte-compile-variables byte-compile-tag-number byte-compile-depth byte-compile-maxdepth byte-compile-output eval filename byte-compile-inbuffer) byte-compile-from-buffer(#<buffer " *Compiler Input*"> "/Sources/packages-current-compile-test/xemacs-packages/apel/richtext.el") # bind (byte-compile-current-file target-file input-buffer output-buffer byte-compile-dest-file load filename) byte-compile-file("richtext.el") byte-code("..." [file byte-compile-file t] 2) # (condition-case ... . ((error (byte-code "??!?!???!???!??? ?\"???? ＠?N?? ＠!??? A\"???!?LJ" [file err princ ">>Error occurred processing " ": " fboundp display-error nil error-message mapcar #<compiled-function (x) "...(8)" [x princ " " prin1] 2> "\n"] 3)))) # bind (file) batch-byte-compile-1("richtext.el") # bind (error file-to-process) batch-byte-compile-one-file() # bind (error) batch-byte-compile() # bind (arg) command-line-do-funcall("-f") # bind (dir file-count line end-of-options file-p arg tem) command-line-1() # bind (command-line-args-left) command-line() # bind (error-data) normal-top-level() # (condition-case ... . error) # (catch top-level ...) -- On the quay of the little Black Sea port, where the rescued pair came once more into contact with civilization, Dobrinton was bitten by a dog which was assumed to be mad, though it may only have been indiscriminating. (Saki) _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta