Re: Building from CVS (bootstrap from 20.4)
25 years, 11 months
Colin Rafferty
Colin Rafferty
Please note that I have cc'd the xemacs-beta list, since I really
cannot answer most of your questions.
Peter B West writes:
> Colin Rafferty wrote:
>> Make sure that you get those colons right. If you have your mule
>> packages in a different directory (/usr/local/xemacs/mule-packages),
>> it should look like this:
>>
>> --package-path=~/.xemacs::/usr/local/xemacs/mule-packages:/usr/local/xemacs/xemacs-packages::/usr/lib/xemacs-20.4
>>
>> This should do for you what you want.
> This works. What is the significance of the `::'s?
It separates the different parts of the paths. user::override::late.
The `user' part is not used if you start -vanilla. The 21.0 lisp
directories come between `override' and `late'.
>> Later, add new packages into /usr/local/xemacs/xemacs-packages, and
>> they will override the stuff in 20.4.
> I have had some problems with making the packages, arinsing largely from
> ignorance of the dependencies. I finally found the circular
> dependencies involving gnus, tm, w3 and rmail (among others). Is `vm'
> the recommended minimal mailer configuration?
Yes it is, but the circular dependencies shouldn't really exist (but
do). For example, gnus ought to be able to build without tm, w3, or
rmail, and w3 should certainly not be dependent on gnus.
> The w3 dependency seems
> particularly unfortunate. It's the first one I deleted, purely on
> account of size. May I assume I need all of these dependencies to get
> MIME?
If you are using the latest VM, you will not need anything else for
MIME. You will need w3 if you want to read html messages inline, but
not if you don't. tm is pretty much obsolete, since the current VM
and beta Gnus do MIME themselves.
> What about Mule-ised mail? What is the minimum requirement?
There is no such thing, really. Mule is an encoding system for
XEmacs. It doesn't have anything to do with mail.
> One of the tm info files did not compute:
> Formatting Info file: tm-ja.info
> ＠direntry is not handled by texinfo
> I have 3.12 of the texinfo stuff, with makeinfo at 1.68.
I don't know about this.
> There also seems to be a problem when compiling the mule packages. I
> did not have edict, egg-its or skk; only leim, locale and mule-base.
> The make exited the directory without doing much. When I removed the
> missing entries from the Makefile, the compile seemed to work without
> complaint.
Neither do I know about this.
> Many thanks. My initial encounter with XEmacs (and emacs) was full of
> sound and fury, but I have actually come to like it.
> Btw, Colin, were you not once in .au?
Not me. I live in NYC, and I've been all over Europe, but no other
continents.
--
Colin
- 1 participants
- 0 comments
synching up font.el...
25 years, 11 months
William M. Perry
William M. Perry
Emacs/W3 is the canonical source for font.el, at least until we do the new
font model in C and make it consistent across emacsen.
Please report any patches to me <wmperry(a)cs.indiana.edu>.
1998-12-31 William M. Perry <wmperry(a)aventail.com>
* font.el: Synch the diverging font.el stuff. Don't remove
compability stuff. Don't needlessly rewrite macros to the new
style, or old emacs breaks. Support for new Emacs redisplay.
-bp
Index: font.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/font.el,v
retrieving revision 1.5.2.3
diff -c -w -c -w -r1.5.2.3 font.el
*** font.el 1998/12/31 14:46:11 1.5.2.3
--- font.el 1998/12/31 17:35:34
***************
*** 1,12 ****
;;; font.el --- New font model
! ;; Author: wmperry
! ;; Created: 1997/09/05 15:44:37
! ;; Version: 1.52
;; Keywords: faces
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
! ;;; Copyright (c) 1995, 1996 by William M. Perry (wmperry(a)cs.indiana.edu)
! ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
;;;
;;; This file is part of GNU Emacs.
;;;
--- 1,12 ----
;;; font.el --- New font model
! ;; Author: $Author: wmperry $
! ;; Created: $Date: 1998/12/18 02:19:25 $
! ;; Version: $Revision: 1.1.1.2 $
;; Keywords: faces
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
! ;;; Copyright (c) 1995, 1996 by William M. Perry <wmperry(a)cs.indiana.edu>
! ;;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc.
;;;
;;; This file is part of GNU Emacs.
;;;
***************
*** 30,38 ****
;;; The emacsen compatibility package - load it up before anything else
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'cl)
(eval-and-compile
- (defvar device-fonts-cache)
(condition-case ()
(require 'custom)
(error nil))
--- 30,41 ----
;;; The emacsen compatibility package - load it up before anything else
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'cl)
+ (require 'devices)
+ ;; Needed for XEmacs 19.13, noop on all others, since it is always loaded.
+ (require 'disp-table)
+
(eval-and-compile
(condition-case ()
(require 'custom)
(error nil))
***************
*** 42,53 ****
(defmacro defgroup (&rest args)
nil)
(defmacro defcustom (var value doc &rest args)
! `(defvar ,var ,value ,doc))))
(if (not (fboundp 'try-font-name))
(defun try-font-name (fontname &rest args)
(case window-system
! ((x pm) (car-safe (x-list-fonts fontname)))
(mswindows (car-safe (mswindows-list-fonts fontname)))
(ns (car-safe (ns-list-fonts fontname)))
(otherwise nil))))
--- 45,56 ----
(defmacro defgroup (&rest args)
nil)
(defmacro defcustom (var value doc &rest args)
! (` (defvar (, var) (, value) (, doc))))))
(if (not (fboundp 'try-font-name))
(defun try-font-name (fontname &rest args)
(case window-system
! ((x win32 w32 pm) (car-safe (x-list-fonts fontname)))
(mswindows (car-safe (mswindows-list-fonts fontname)))
(ns (car-safe (ns-list-fonts fontname)))
(otherwise nil))))
***************
*** 89,106 ****
(defconst font-running-xemacs (string-match "XEmacs" (emacs-version))
"Whether we are running in XEmacs or not.")
(defmacro define-font-keywords (&rest keys)
! `(eval-and-compile
! (let ((keywords (quote ,keys)))
(while keywords
(or (boundp (car keywords))
(set (car keywords) (car keywords)))
! (setq keywords (cdr keywords))))))
(defconst font-window-system-mappings
'((x . (x-font-create-name x-font-create-object))
(ns . (ns-font-create-name ns-font-create-object))
(mswindows . (mswindows-font-create-name mswindows-font-create-object))
(pm . (x-font-create-name x-font-create-object)) ; Change? FIXME
(tty . (tty-font-create-plist tty-font-create-object)))
"An assoc list mapping device types to the function used to create
--- 92,116 ----
(defconst font-running-xemacs (string-match "XEmacs" (emacs-version))
"Whether we are running in XEmacs or not.")
+ (defconst font-running-emacs-new-redisplay (and (fboundp 'set-face-attribute)
+ (fboundp 'set-face-background-pixmap))
+ "Whether we are running in Emacs with the new redisplay engine.")
+
(defmacro define-font-keywords (&rest keys)
! (`
! (eval-and-compile
! (let ((keywords (quote (, keys))))
(while keywords
(or (boundp (car keywords))
(set (car keywords) (car keywords)))
! (setq keywords (cdr keywords)))))))
(defconst font-window-system-mappings
'((x . (x-font-create-name x-font-create-object))
(ns . (ns-font-create-name ns-font-create-object))
(mswindows . (mswindows-font-create-name mswindows-font-create-object))
+ (win32 . (x-font-create-name x-font-create-object))
+ (w32 . (x-font-create-name x-font-create-object))
(pm . (x-font-create-name x-font-create-object)) ; Change? FIXME
(tty . (tty-font-create-plist tty-font-create-object)))
"An assoc list mapping device types to the function used to create
***************
*** 132,137 ****
--- 142,161 ----
"An assoc list mapping keywords to actual Xwindow specific strings
for use in the 'weight' field of an X font string.")
+ (defconst font-new-redisplay-weight-mappings
+ '((:extra-light . extra-light)
+ (:light . light)
+ (:demi-light . semi-light)
+ (:demi . semi-light)
+ (:book . normal)
+ (:medium . normal)
+ (:normal . normal)
+ (:demi-bold . semi-bold)
+ (:bold . bold)
+ (:extra-bold . extra-bold))
+ "An assoc list mapping font weights to the actual symbols used by
+ the new redisplay engine.")
+
(defconst font-possible-weights
(mapcar 'car x-font-weight-mappings))
***************
*** 144,151 ****
(define-font-keywords :family :style :size :registry :encoding)
(define-font-keywords
! :weight :extra-light :light :demi-light :medium :normal :demi-bold
! :bold :extra-bold)
(defvar font-style-keywords nil)
--- 168,175 ----
(define-font-keywords :family :style :size :registry :encoding)
(define-font-keywords
! :weight :extra-light :light :demi-light :medium :normal :regular
! :demi-bold :bold :extra-bold)
(defvar font-style-keywords nil)
***************
*** 187,222 ****
(eval-when-compile
(defmacro define-new-mask (attr mask)
! `(progn
(setq font-style-keywords
! (cons (cons (quote ,attr)
(cons
! (quote ,(intern (format "set-font-%s-p" attr)))
! (quote ,(intern (format "font-%s-p" attr)))))
font-style-keywords))
! (defconst ,(intern (format "font-%s-mask" attr)) (<< 1 ,mask)
! ,(format
"Bitmask for whether a font is to be rendered in %s or not."
! attr))
! (defun ,(intern (format "font-%s-p" attr)) (fontobj)
! ,(format "Whether FONTOBJ will be renderd in `%s' or not." attr)
(if (/= 0 (& (font-style fontobj)
! ,(intern (format "font-%s-mask" attr))))
t
nil))
! (defun ,(intern (format "set-font-%s-p" attr)) (fontobj val)
! ,(format "Set whether FONTOBJ will be renderd in `%s' or not."
! attr)
(cond
(val
(set-font-style fontobj (| (font-style fontobj)
! ,(intern
! (format "font-%s-mask" attr)))))
! ((,(intern (format "font-%s-p" attr)) fontobj)
(set-font-style fontobj (- (font-style fontobj)
! ,(intern
! (format "font-%s-mask" attr)))))))
! )))
(let ((mask 0))
(define-new-mask bold (setq mask (1+ mask)))
--- 211,247 ----
(eval-when-compile
(defmacro define-new-mask (attr mask)
! (`
! (progn
(setq font-style-keywords
! (cons (cons (quote (, attr))
(cons
! (quote (, (intern (format "set-font-%s-p" attr))))
! (quote (, (intern (format "font-%s-p" attr))))))
font-style-keywords))
! (defconst (, (intern (format "font-%s-mask" attr))) (<< 1 (, mask))
! (, (format
"Bitmask for whether a font is to be rendered in %s or not."
! attr)))
! (defun (, (intern (format "font-%s-p" attr))) (fontobj)
! (, (format "Whether FONTOBJ will be renderd in `%s' or not." attr))
(if (/= 0 (& (font-style fontobj)
! (, (intern (format "font-%s-mask" attr)))))
t
nil))
! (defun (, (intern (format "set-font-%s-p" attr))) (fontobj val)
! (, (format "Set whether FONTOBJ will be renderd in `%s' or not."
! attr))
(cond
(val
(set-font-style fontobj (| (font-style fontobj)
! (, (intern
! (format "font-%s-mask" attr))))))
! (((, (intern (format "font-%s-p" attr))) fontobj)
(set-font-style fontobj (- (font-style fontobj)
! (, (intern
! (format "font-%s-mask" attr))))))))
! ))))
(let ((mask 0))
(define-new-mask bold (setq mask (1+ mask)))
***************
*** 472,478 ****
(concat "\\`\\*?[-?*]"
foundry - family - weight\? - slant\? - swidth - adstyle -
pixelsize - pointsize - resx - resy - spacing - avgwidth -
! registry - encoding "\\'"
))))
(defvar font-x-registry-and-encoding-regexp
--- 497,503 ----
(concat "\\`\\*?[-?*]"
foundry - family - weight\? - slant\? - swidth - adstyle -
pixelsize - pointsize - resx - resy - spacing - avgwidth -
! registry - encoding - "*" "\\'"
))))
(defvar font-x-registry-and-encoding-regexp
***************
*** 572,580 ****
(progn
(reset-device-font-menus device)
(x-font-families-for-device device t))
! (let ((scaled (mapcar #'(lambda (x) (if x (aref x 0)))
(aref menu 0)))
! (normal (mapcar #'(lambda (x) (if x (aref x 0)))
(aref menu 1))))
(sort (font-unique (nconc scaled normal)) 'string-lessp))))
(cons "monospace" (mapcar 'car font-x-family-mappings))))
--- 597,605 ----
(progn
(reset-device-font-menus device)
(x-font-families-for-device device t))
! (let ((scaled (mapcar (lambda (x) (if x (aref x 0)))
(aref menu 0)))
! (normal (mapcar (lambda (x) (if x (aref x 0)))
(aref menu 1))))
(sort (font-unique (nconc scaled normal)) 'string-lessp))))
(cons "monospace" (mapcar 'car font-x-family-mappings))))
***************
*** 603,624 ****
;;;###autoload
(defun font-default-family-for-device (&optional device)
! (font-family (font-default-object-for-device (or device (selected-device)))))
;;;###autoload
(defun font-default-registry-for-device (&optional device)
! (font-registry (font-default-object-for-device (or device (selected-device)))))
;;;###autoload
(defun font-default-encoding-for-device (&optional device)
! (font-encoding (font-default-object-for-device (or device (selected-device)))))
;;;###autoload
(defun font-default-size-for-device (&optional device)
;; face-height isn't the right thing (always 1 pixel too high?)
;; (if font-running-xemacs
;; (format "%dpx" (face-height 'default device))
! (font-size (font-default-object-for-device (or device (selected-device)))))
(defun x-font-create-name (fontobj &optional device)
(if (and (not (or (font-family fontobj)
--- 628,649 ----
;;;###autoload
(defun font-default-family-for-device (&optional device)
! (font-family (font-default-object-for-device device)))
;;;###autoload
(defun font-default-registry-for-device (&optional device)
! (font-registry (font-default-object-for-device device)))
;;;###autoload
(defun font-default-encoding-for-device (&optional device)
! (font-encoding (font-default-object-for-device device)))
;;;###autoload
(defun font-default-size-for-device (&optional device)
;; face-height isn't the right thing (always 1 pixel too high?)
;; (if font-running-xemacs
;; (format "%dpx" (face-height 'default device))
! (font-size (font-default-object-for-device device)))
(defun x-font-create-name (fontobj &optional device)
(if (and (not (or (font-family fontobj)
***************
*** 706,714 ****
(progn
(reset-device-font-menus device)
(ns-font-families-for-device device t))
! (let ((scaled (mapcar #'(lambda (x) (if x (aref x 0)))
(aref menu 0)))
! (normal (mapcar #'(lambda (x) (if x (aref x 0)))
(aref menu 1))))
(sort (font-unique (nconc scaled normal)) 'string-lessp))))))
--- 731,739 ----
(progn
(reset-device-font-menus device)
(ns-font-families-for-device device t))
! (let ((scaled (mapcar (lambda (x) (if x (aref x 0)))
(aref menu 0)))
! (normal (mapcar (lambda (x) (if x (aref x 0)))
(aref menu 1))))
(sort (font-unique (nconc scaled normal)) 'string-lessp))))))
***************
*** 918,924 ****
(defun x-font-build-cache (&optional device)
(let ((hash-table (make-hash-table :test 'equal :size 15))
(fonts (mapcar 'x-font-create-object
! (x-list-fonts "-*-*-*-*-*-*-*-*-*-*-*-*-*-*")))
(plist nil)
(cur nil))
(while fonts
--- 943,949 ----
(defun x-font-build-cache (&optional device)
(let ((hash-table (make-hash-table :test 'equal :size 15))
(fonts (mapcar 'x-font-create-object
! (list-fonts "-*-*-*-*-*-*-*-*-*-*-*-*-*-*")))
(plist nil)
(cur nil))
(while fonts
***************
*** 986,992 ****
--- 1011,1065 ----
(set-face-property face 'font-specification nil)
(apply 'set-face-font face font args))))
+ (defun font-find-available-family (fontobj &optional device)
+ (let* ((default (font-default-object-for-device device))
+ (family (or (font-family fontobj)
+ (font-family default)
+ (x-font-families-for-device device)))
+ (cur-family nil)
+ (done nil))
+ (if (stringp family)
+ (setq family (list family)))
+ (while (and family (not done))
+ (setq cur-family (pop family))
+ (if (assoc cur-family font-x-family-mappings)
+ ;; If the family name is an alias as defined by
+ ;; font-x-family-mappings, then append those families to the
+ ;; front fo 'family' and continue in the loop.
+ (setq family (append (cdr-safe
+ (assoc cur-family font-x-family-mappings))
+ family))
+ ;; Not an alias for a list of fonts, so we just check it.
+ ;; First, convert all '-' to spaces so that we don't screw up
+ ;; the oh-so wonderful X font model. Wheee.
+ (let ((x (length cur-family)))
+ (while (> x 0)
+ (if (= ?- (aref cur-family (1- x)))
+ (aset cur-family (1- x) ? ))
+ (setq x (1- x))))
+ (setq done (try-font-name (format "-*-%s-*-*-*-*-*-*-*-*-*-*-*-*" family) device))))
+ (and done family)))
+
+ (defun font-set-face-font-new-redisplay (&optional face font &rest args)
+ (cond
+ ((and (vectorp font) (= (length font) 12))
+ (set-face-property face 'font-specification font)
+ (set-face-attribute face nil
+ :underline (font-underline-p font)
+ :weight (or (cdr-safe (assoc (font-weight font)
+ font-new-redisplay-weight-mappings))
+ 'normal)
+ :family (font-find-available-family font))
+ (if (font-size font)
+ (set-face-attribute face nil
+ :height (* 10 (font-spatial-to-canonical (font-size font))))))
+ (t
+ (set-face-property face 'font-specification nil)
+ (apply 'set-face-font face font args))))
+ (if font-running-emacs-new-redisplay
+ (fset 'font-set-face-font 'font-set-face-font-new-redisplay))
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Now for emacsen specific stuff
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
***************
*** 1218,1224 ****
((and (vectorp color) (= 3 (length color)))
(list (aref color 0) (aref color 1) (aref color 2)))
((and (listp color) (= 3 (length color)) (floatp (car color)))
! (mapcar #'(lambda (x) (* x 65535)) color))
((and (listp color) (= 3 (length color)))
color)
((or (string-match "^#" color)
--- 1291,1297 ----
((and (vectorp color) (= 3 (length color)))
(list (aref color 0) (aref color 1) (aref color 2)))
((and (listp color) (= 3 (length color)) (floatp (car color)))
! (mapcar (lambda (x) (* x 65535)) color))
((and (listp color) (= 3 (length color)))
color)
((or (string-match "^#" color)
***************
*** 1287,1292 ****
--- 1360,1375 ----
(case (device-type device)
((x pm)
(apply 'format "#%02x%02x%02x" (font-color-rgb-components color)))
+ (win32
+ (let* ((rgb (font-color-rgb-components color))
+ (color (apply 'format "#%02x%02x%02x" rgb)))
+ (win32-define-rgb-color (nth 0 rgb) (nth 1 rgb) (nth 2 rgb) color)
+ color))
+ (w32
+ (let* ((rgb (font-color-rgb-components color))
+ (color (apply 'format "#%02x%02x%02x" rgb)))
+ (w32-define-rgb-color (nth 0 rgb) (nth 1 rgb) (nth 2 rgb) color)
+ color))
(mswindows
(let* ((rgb (font-color-rgb-components color))
(color (apply 'format "#%02x%02x%02x" rgb)))
***************
*** 1295,1301 ****
(tty
(apply 'font-tty-find-closest-color (font-color-rgb-components color)))
(ns
! (let ((vals (mapcar #'(lambda (x) (>> x 8))
(font-color-rgb-components color))))
(apply 'format "RGB%02x%02x%02xff" vals)))
(otherwise
--- 1378,1384 ----
(tty
(apply 'font-tty-find-closest-color (font-color-rgb-components color)))
(ns
! (let ((vals (mapcar (lambda (x) (>> x 8))
(font-color-rgb-components color))))
(apply 'format "RGB%02x%02x%02xff" vals)))
(otherwise
- 1 participants
- 0 comments
Re: `The Bazaar' conference in new york?
25 years, 11 months
William M. Perry
William M. Perry
Matt Simmons <simmonmt(a)acm.org> writes:
> >>>>> "William" == William M Perry <wmperry(a)aventail.com> writes:
>
> matt> But then again, it really would be hard to beat the aesthetic
> matt> appeal of Silicon Valley, wouldn't it?
>
> matt> 11. Thou shalt know that thou hast entered the next city [sic]
> matt> when thou seest that the stores have begun to repeat. Again.
>
> WJC> I think you must be confusing Silicon Valley with Long Island.
>
> BillP> All you big-city folks have the same problem. :) You should
> BillP> have lived in vincennes indiana. Population 20,000,
> BillP> counting students. :)
>
> Reminds me of West Lafayette, IN (Purdue) or, to a lesser extent,
> Peoria, IL (Bradley Univ).
West lafayette is ridiculously bigger than vincennes. :) Vincennes is
just a regional 2 year university.
> You just haven't lived until you've seen ads for seeds, fertilizer,
> pesticides, or all of the above during prime-time network television.
Yup, those things are probably weirder to most people than feminine
hygiene ads.
-bp
- 1 participants
- 0 comments
Re: W3 Broken in 21.2
25 years, 11 months
William M. Perry
William M. Perry
Martin Buchholz <martin(a)xemacs.org> writes:
> >>>>> "John" == John Mignault <jbm(a)panix.com> writes:
>
> John> I've seen this since 21.2.b6. Any attempt to load a URL results in the
> John> backtrace below. Any suggestions?
>
> John> Signaling: (wrong-type-argument arrayp nil)
> John> font-default-size-for-device(nil)
>
> My fault: Try this patch:
>
> 1998-12-30 Martin Buchholz <martin(a)xemacs.org>
>
> * font.el (font-default-object-for-device):
> Oops! This `or' can't be replaced by `unless'.
> Fixed inability to run w3, among other things.
Ummm... so are there some patches to font.el that need to get merged into
Emacs/W3 that I haven't seen yet?
-bp
- 1 participants
- 0 comments
I'll be keeping a low profile for a while...
25 years, 11 months
Martin Buchholz
Martin Buchholz
while I deal with moving to Japan.
I've squashed lots of the bugs I introduced recently into 21.2 (and
some I didn't), and XEmacs should be getting pretty stable. My own
XEmacs is rock-solid ... for the sorts of things I do.
There are still some platform-specific crashes. I hope that people
try to find the bugs on their own platform.
I'd like to put out a 21.2.9, but that may have to wait until after
I'm in Japan.
Sayonara,
Martin
ObSpam: Anybody in the Bay Area wanna buy a '94 Mustang GT Coupe?
- 1 participants
- 0 comments
Re: xemacs & redhat
25 years, 11 months
Didier Verna
Didier Verna
Martin Buchholz writes:
Martin> This is tough to fix. We could unilaterally change all our names to be
Martin> prefixed with `x', but....
Martin> xctags xetags xgnudoit xgnuserv ...
Martin> but that would only increase the confusion about xemacs being an
Martin> X11-only app, besides being amazingly ugly. And break all the user's
Martin> scripts.
Martin> I'm open to realistic suggestions on how we actually implement this.
If those programs are the same as in the GNU Emacs distribution, they
probably should be rpm'ized or debianized or whatever'ized as standalone
packages. Otherwise, at least for 2 of them, it's probably better to let fall
the `gnu' prefix, and why not, add an `xe' prefix, like xedoit and xeserv ?
--
/ / _ _ Didier Verna http://www.inf.enst.fr/~verna/
- / / - / / /_/ / E.N.S.T. INF C201.1 mailto:verna＠inf.enst.fr
/_/ / /_/ / /__ / 46 rue Barrault Tel. (33) 01 45 81 73 46
75634 Paris cedex 13 Fax. (33) 01 45 81 31 19
- 1 participants
- 0 comments
W3 Broken in 21.2
25 years, 11 months
John Mignault
John Mignault
I've seen this since 21.2.b6. Any attempt to load a URL results in the
backtrace below. Any suggestions?
j
Signaling: (wrong-type-argument arrayp nil)
font-default-size-for-device(nil)
font-spatial-to-canonical("+12pt")
css-expand-length("+12pt" t)
css-expand-value(height "+12pt")
css-parse-args(235 254)
css-parse("file:/usr/local/lib/xemacs/packages/etc/w3/stylesheet" nil nil)
w3-find-default-stylesheets()
w3-refresh-stylesheets()
w3-do-setup()
w3-url-completion-function("http://www.xemacs.org" nil lambda)
exact-minibuffer-completion-p("http://www.xemacs.org")
exit-minibuffer()
#<compiled-function nil "...(5)" [nil completer-last-pattern exit-minibuffer] 1 ("/usr/local/lib/xemacs/packages/lisp/ilisp/completer.elc" . 13949) nil>()
call-interactively(completer-minibuf-exit)
read-minibuffer-internal("URL: ")
byte-code("..." [recursion-depth minibuffer-depth t standard-input standard-output read-minibuffer-internal prompt] 2)
read-from-minibuffer("URL: " "http://www." #<keymap minibuffer-local-completion-map 16 entries 0xfb0> nil nil)
completing-read("URL: " w3-url-completion-function nil nil "http://www.")
w3-read-url-with-default()
(list (w3-read-url-with-default))
)
call-interactively(w3-fetch)
command-execute(w3-fetch t)
execute-extended-command(nil)
call-interactively(execute-extended-command)
--
#!/usr/bin/perl
$dot="\x2e";$lt="\x3c";$gt="\x3e";$at="\x40";
print "J Mignault ${lt}jbm${at}panix${dot}com${gt}\n";
$wright = qq(When a man talks dirty to a woman, it's sexual
harassment. When a woman talks dirty to a man, it's $3.95
per minute.);
- 2 participants
- 1 comments
Some belated announcements for XEmacs releases.
25 years, 11 months
Martin Buchholz
Martin Buchholz
The following recent announcements for xemacs-21.2.6, xemacs-21.2.7,
and xemacs-21.2.8 should have gone to xemacs-announce, but didn't
quite make it.
Here they are, again.
From: Andy Piper <andyp(a)parallax.co.uk>
Sender: owner-xemacs-beta(a)xemacs.org
To: xemacs-beta(a)xemacs.org, xemacs-nt(a)xemacs.org, xemacs-announce(a)xemacs.org
Subject: XEmacs 21.2.6 "Apollo" is released
Date: Wed, 16 Dec 1998 18:30:09 +0000
This is nothing specical in that there are no new changes to CVS I am
simply tagging, updating changelogs and fixing the version so that people
can get back at a stable version before we start another patch-fest. I am
unable to upload tarballs.
to 21.2 beta6 "Apollo"
-- mswindows compile fixes from Martin Buchholz, Andy Piper, Greg
Klanderman and Adrian Aichner
-- Synch with XEmacs 21.0.60
-- mega-patch fixes from Martin Buchholz
-- md5 fixes and testsuite from Hrvoje Niksic
-- database fix from Hrvoje Niksic
andy
---------------------------------------------------------------------------
" .sigs are like your face - rarely seen by you and uglier than you think"
Dr Andy Piper, Technical Architect, Parallax Solutions Ltd
mail: andyp(a)parallax.co.uk web: www.parallax.co.uk/~andyp
From: Martin Buchholz <martin(a)xemacs.org>
Sender: owner-xemacs-beta(a)xemacs.org
To: XEmacs Beta Test <xemacs-beta(a)xemacs.org>
Subject: XEmacs 21.2.7 is released
Date: Thu, 24 Dec 1998 14:33:22 -0800 (PST)
Ho Ho Ho!
This is my first beta release. Have mercy. Have fun finding all the
different ways I've messed up.
XEmacs 21.2.6 was a CVS-only release. No one ever got around to
making tarballs. It doesn't seem worth making tarballs now. Diffs
are, however, available to allow folks to patch up.
All of my own patches are finally released. XEmacs should be fairly
stable on Unix, if not yet on Windows.
Andy's subwindow support is in. So all the large patches have been
applied, and XEmacs is still alive.
There certainly are some patches that have not yet been applied, but
should be. Several regular XEmacs contributors, such as myself, have
recently converted to doing direct CVS commits. I encourage others,
Hrvoje in particular, to do the same.
As a complete coincidence, the Latin name for Ares is Mars, so this is
not just a Martin release, but also a Martian one.
to 21.2 beta7 "Ares"
-- mswindows modeline crash fix from Jonathan Harris
-- picon glyph fix from Gunnar Evermann
-- widgets-in-buffers and subwindow support from Andy Piper
-- movemail pop support under mswindows from Fabrice Popineau
-- ldap fixes from Oscar Figueiredo
-- fns cleanup from Hrvoje Niksic
-- menubar fixes from Didier Verna
-- mswindows accelerator fix from Jonathan Harris
-- dired mule fix from Didier Verna
-- sound doc cleanup from Charles Waldman
-- new display table functionality from Hrvoje Niksic
-- minor cleanups
-- package fixes from Jan Vroonhof
-- subwindow support fixes from Martin Buchholz
Martin
From: Martin Buchholz <martin(a)xemacs.org>
Sender: owner-xemacs-beta(a)xemacs.org
To: XEmacs Beta Test <xemacs-beta(a)xemacs.org>
Cc: XEmacs Mule <xemacs-mule(a)xemacs.org>
Subject: XEmacs 21.2.8 "Artemis" is released
Date: Mon, 28 Dec 1998 21:12:39 -0800 (PST)
This is another experimental beta release, mostly spent fighting with
CVS problems.
I have only applied my own patches to this beta, and am still hoping
that someone else, perhaps Andy, will deal with the problem of
managing everyone else's patches. In particular, Andy, please apply
all the Windows-relevant patches.
Having already invested some effort in script writing to put out two
betas, I will probably volunteer to keep maintaining my personal
scripts that actually put out releases.
To the Mule folks (and that includes everyone who uses the Mule
version, not just the ones with large character sets), there are some
important bug fixes in this release. Some Mule bugs were introduced
during the great Windows hacking frenzy.
to 21.2 beta8 "Artemis"
-- A bunch of Mule fixes from Martin Buchholz
Martin
From: Martin Buchholz <martin(a)xemacs.org>
To: XEmacs Announcements <xemacs-announce(a)xemacs.org>
Cc: python-mode(a)python.org, bug-cc-mode(a)gnu.org
Subject: Sync with Barry Warsaw packages, + cc-mode fix
X-Mailer: VM 6.62 under 21.2 "Ares" XEmacs Lucid (beta7)
Reply-To: martin(a)xemacs.org
Happy New Year!
Schöne Grüße zum Neujahr!
The following have been imported from Barry Warwaw's elisp site
http://www.python.org/emacs/ and converted/added to XEmacs 21-style
packages.=20
cc-mode
win-ring
python-mode
xrdb-mode
The CVS tree at :pserver:xemacs＠cvs.xemacs.org:/usr/CVSroot has been
updated with the latest changes, and binary packages are available at
ftp://ftp.xemacs.org/pub/xemacs/packages
Oh, I almost forgot: this also includes a fix for tar-mode.el in
os-utils, so that editing .tar.gz files in XEmacs 21.2 should work again.
Here are the new binary kits:
-rw-r--r-- 1 6112 6199 212482 Dec 31 00:44 cc-mode-1.14-pkg.tar.gz
-rw-r--r-- 1 6112 6199 574688 Dec 31 00:45 edit-utils-1.35-pkg.tar.gz
-rw-r--r-- 1 6112 6199 227190 Dec 31 00:46 os-utils-1.13-pkg.tar.gz
-rw-r--r-- 1 6112 6199 594358 Dec 31 00:48 prog-modes-1.16-pkg.tar.gz
-rw-r--r-- 1 6112 6199 195316 Dec 31 00:49 text-modes-1.16-pkg.tar.gz
This is the first time I've released new-style XEmacs packages, so
it's likely I've done something wrong.
Enjoy.
Martin
- 1 participants
- 0 comments
Re: `The Bazaar' conference in new york?
25 years, 11 months
Matt Simmons
Matt Simmons
>>>>> "William" == William M Perry <wmperry(a)aventail.com> writes:
matt> But then again, it really would be hard to beat the aesthetic
matt> appeal of Silicon Valley, wouldn't it?
matt> 11. Thou shalt know that thou hast entered the next city [sic]
matt> when thou seest that the stores have begun to repeat. Again.
WJC> I think you must be confusing Silicon Valley with Long Island.
BillP> All you big-city folks have the same problem. :) You should
BillP> have lived in vincennes indiana. Population 20,000,
BillP> counting students. :)
Reminds me of West Lafayette, IN (Purdue) or, to a lesser extent,
Peoria, IL (Bradley Univ).
You just haven't lived until you've seen ads for seeds, fertilizer,
pesticides, or all of the above during prime-time network television.
That and network TV stations that actually turn off at night. I fear,
however, that I may have just dated myself. =)
Matt
--
Matt Simmons - simmonmt(a)acm.org - http://www.netcom.com/~simmonmt
Don't take the bull by the horns, take him by the tail; then you can let
go when you want to. --Josh Billings
- 1 participants
- 0 comments
xemacs & redhat
25 years, 11 months
Michael Kifer
Michael Kifer
Does anybody know why redhat distributions don't include xemacs?
Did anybody approach them with this?
--michael
- 2 participants
- 6 comments