Hi Mats,
This is a good and sane change provoked by the packages build failure of
http://mid.gmane.org/20a807210807101850l173cefa6vcd4b9650733b34b5@mail.gm...
I suspect that it will fix the packages build, but I don’t know for sure,
because I have to fight with the infrastructure of the autoload-operators.el
and the new VM build structure to get the packages to the point of building
at all, and I would prefer to do that tomorrow. Either way, it should be a
useful thing to apply--there is no need to prevent an XEmacs without X11
support from building Hyperbole.
Bye,
Aidan
xemacs-packages/hyperbole/ChangeLog addition:
2008-07-12 Aidan Kehoe <kehoea(a)parhasard.net>
* hmouse-key.el (noninteractive):
Do not load window-system-specific files at batch byte-compile
time; they may well be legitimately not available.
XEmacs Packages source patch:
Diff command: cvs -q diff -Nu
Files affected: xemacs-packages/hyperbole/hmouse-key.el
===================================================================
RCS
Index: xemacs-packages/hyperbole/hmouse-key.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/hyperbole/hmouse-key.el,v
retrieving revision 1.2
diff -u -u -r1.2 hmouse-key.el
--- xemacs-packages/hyperbole/hmouse-key.el 2007/06/26 20:57:29 1.2
+++ xemacs-packages/hyperbole/hmouse-key.el 2008/07/11 22:04:03
@@ -51,17 +51,18 @@
;;; Public variables
;;;
-(eval (cdr (assoc hyperb:window-system
- '(
- ;; XEmacs and Emacs 19 pre-load their mouse libraries, so
- ;; we shouldn't have to require them here.
- ;;
- ("xterm" . (require 'x-mouse)) ; X
- ("epoch" . (require 'mouse)) ; UofI Epoch
- ("next" . (load "eterm-fns" t)) ; NeXTstep
- ("sun" . (require 'sun-fns)) ; SunView
- ("apollo" . (require 'apollo)) ; Display Manager
- ))))
+(unless noninteractive
+ (eval (cdr (assoc hyperb:window-system
+ '(
+ ;; XEmacs and Emacs 19 pre-load their mouse libraries, so
+ ;; we shouldn't have to require them here.
+ ;;
+ ("xterm" . (require 'x-mouse)) ; X
+ ("epoch" . (require 'mouse)) ; UofI Epoch
+ ("next" . (load "eterm-fns" t)) ; NeXTstep
+ ("sun" . (require 'sun-fns)) ; SunView
+ ("apollo" . (require 'apollo)) ; Display Manager
+ )))))
;;;
;;; Public functions
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches