August 1998 - XEmacs-Beta - XEmacs Mailing List Archives

Re: [SUCCESS] 21.0 "Corsican" XEmacs Lucid on i586-pc-cygwin32 25 years, 9 months

Jareth Hein

>>>>> "Andy" == Andy Piper <andyp(a)parallax.co.uk> writes: Andy> built fine. I assume that gif support is back in since my build Andy> report says it is? Andy> andy The patch to remove support was never applied to the tree. Since then Steve and I have decided to move the decoder only engine back inside XEmacs itself, and I have sent him the necessary files and patches to do so. -- Jareth Hein | jareth(a)camelot.co.jp | ハインジェラス Toolsmith & Program lead | http://www.camelot.co.jp | 開発部チーフ Camelot Software, Ltd. | |（株）キャメロット "It's a sad sign of the times when 'political machine' is redefined to include 'main-line battle tank'" - Ambassador Grossblunder

1 participants
0 comments

Re: bug in auctex 1.10 binary package ?? 25 years, 9 months

SL Baur

Greg Klanderman <greg(a)alphatech.com> writes in xemacs-beta(a)xemacs.org: > I have downloaded the auctex 1.10 binary pkg and installed it, but > packages-package-list keeps telling me I only have 1.09. What's up? > The _pkg.el file seems to have it right. But the autoloads file does not. It's an oversight on my part, fix in the next update.

1 participants
0 comments

my package-update package: package-get-interactive.el 25 years, 9 months

Greg Klanderman

I hacked this up a couple weeks ago, figured some of you might like it. The advantage for me is that it leads me thru the whole process, inspiring confidence that everything is working right. Still needs a bunch of work but it is definitely very usable as is. greg ;;; package-get-interactive.el --- simple interactive package update interface ;;; Author: Greg Klanderman <greg.klanderman(a)alum.mit.edu> ;;; Version: 0.0 ;;; Created: July 22, 1998 ;;; Keywords: emacs package ;;; Commentary: ;;; ;;; This package provides a simple interactive interface for updating XEmacs ;;; packages. It leads the user through all the decisions being made, ;;; hopefully inspiring confidence that it is doing the right thing. ;;; Two interactive functions are provided: ;;; ;;; * M-x package-get-update-all-interactive, which offers to fetch and ;;; install the latest versions of all currently installed packages. ;;; * M-x package-get-all-interactive, which offers to fetch and install ;;; the latest versions of all known packages. ;;; ;;; These functions take an optional universal argument, see their documentation ;;; strings for details. ;;; ;;; Both functions work in much the same way. First, the user is prompted for ;;; the location of the current package-get-base.el file to be used. This file ;;; typically resides on ftp.xemacs.org and contains information about current ;;; versions of all available packages. Next, the user is prompted for the ;;; directory in which packages should be installed. Then, the user is presented ;;; with a buffer listing all package updates appropriate for the command being ;;; run, and is asked how to act for each with a y-or-n-p question. Pressing the ;;; `?' key at this point pops up a buffer containing more details on the package ;;; under consideration. Once all packages have been considered, the ones which ;;; were scheduled for update are fetched and installed. ;;; History: ;;; ;;; Created July 22, 1998 ;; TODO: ;; ;; * actually compute requires ;; * handle removes ;; * actually remove lisp/oldpkg before updating ;; * way to go back and modify choices. ;; * handle mult (version) entries for a pkg in package-get-base ;; * need to somehow keep track of packages that the user has decided ;; not to get and don't prompt again ;;; Code: (require 'package-get) ;;; ------------------------- user variables -------------------------- (defvar package-get-base-directory "/ftp.xemacs.org:/pub/xemacs/beta/xemacs-21.0/packages/binary-packages") (defvar package-get-base-filename "package-get-base.el") ;;; ------------------------- user functions -------------------------- (defun package-get-update-all-interactive (arg) "Offer to fetch and install the latest versions of all currently installed packages. With ARG, compute package dependencies, and offer to install any packages required by the packages being updated." (interactive "P") (package-get-interactive-load-base) (package-get-interactive (mapcar (lambda (pkg) (car pkg)) packages-package-list) arg)) (defun package-get-all-interactive (arg) "Offer to fetch and install the latest versions of all known packages. With ARG, offer to update all packages regardless of whether you already have the current version." (interactive "P") (package-get-interactive-load-base) (let ((packages-package-list (if arg nil packages-package-list))) (package-get-interactive (mapcar (lambda (pkg) (car pkg)) package-get-base)))) ;;; ---------------------------- internals ---------------------------- (defun package-get-interactive-load-base () (let ((pgb-file (read-file-name "Package get base file: " (file-name-as-directory package-get-base-directory) (expand-file-name package-get-base-filename package-get-base-directory) t package-get-base-filename))) (load-file pgb-file))) (defun canonicalize-package-version (v) (and v (format "%.2f" (if (stringp v) (string-to-number v) v)))) (defun package-get-interactive (pkgs &optional dorequires) (when (or (not (listp late-packages)) (not late-packages)) (error "No package path")) (let ((packages-to-get nil) (packages-need-up nil) (have-pkgs (mapcar (lambda (pkg) (car pkg)) packages-package-list)) (pkg-dir (car (last late-packages)))) (setq pkg-dir (read-directory-name "Install packages in: " (directory-file-name pkg-dir) (directory-file-name pkg-dir) t)) (while pkgs (if (not (assq (car pkgs) packages-need-up)) (let ((have-vers (nth 2 (assq (car pkgs) packages-package-list))) (curr-vers (package-get-info-prop (package-get-info-version (package-get-info-find-package package-get-base (car pkgs)) nil) 'version))) (when (not (equal (canonicalize-package-version have-vers) (canonicalize-package-version curr-vers))) (setq packages-need-up (cons (list (car pkgs) have-vers curr-vers nil) packages-need-up)) (when dorequires ;; #### need to fill this in... (message "don't handle requires yet") (ding) (sit-for 3))))) (setq pkgs (cdr pkgs))) (setq packages-need-up (sort packages-need-up (lambda (a b) (let ((asort (+ (if (nth 1 a) 0 2) (if (nth 2 a) 0 1))) (bsort (+ (if (nth 1 b) 0 2) (if (nth 2 b) 0 1)))) (if (= asort bsort) (string-lessp (symbol-name (car a)) (symbol-name (car b))) (< asort bsort)))))) (switch-to-buffer (get-buffer-create "*package-update*")) (erase-buffer) (setq buffer-read-only nil) (let ((standard-output (current-buffer))) (princ "Interactive package update\n\n") (mapc (lambda (pkg) (let ((name (nth 0 pkg)) (have (canonicalize-package-version (nth 1 pkg))) (curr (canonicalize-package-version (nth 2 pkg))) (reqr (nth 3 pkg))) (cond ((null curr) ;; no current version of pkg (princ (format " %15s : remove version %s\n" name have))) ((null have) ;; don't currently have it (princ (format " %15s : get version %s%s\n" name curr (if reqr (format " (required by %s)" (mapconcat 'symbol-name reqr " ")) "")))) (t (princ (format " %15s : update from %s to %s%s\n" name have curr (if (> (string-to-number have) (string-to-number curr)) " *** you seem to have a newer version ***" ""))))))) packages-need-up) (princ "\n\n")) (goto-char (point-min)) (setq packages-to-get nil) (while packages-need-up (let ((pkg (car packages-need-up))) (let ((name (nth 0 pkg)) (have (canonicalize-package-version (nth 1 pkg))) (curr (canonicalize-package-version (nth 2 pkg))) (reqr (nth 3 pkg))) (let ((prompt (cond ((null curr) ;; no current version of pkg (format "Remove `%s' version %s: " name have)) ((null have) ;; don't currently have it (format "Get `%s' version %s%s: " name curr (if reqr (format " (required by %s)" (mapconcat 'symbol-name reqr " ")) ""))) (t (format "%s `%s' from %s to %s: " (if (> (string-to-number have) (string-to-number curr)) "*** Downgrade ***" "Update") name have curr)))) (pkgup-help-package-name name)) ;; for query-y-or-n-p (let ((doit (query-y-or-n-p prompt pkgup-y-or-n-p-map))) (if doit (setq packages-to-get (cons pkg packages-to-get))) (save-excursion (save-window-excursion (goto-char (point-min)) (when (search-forward-regexp (format "^[ ]*%s :" name)) (beginning-of-line) (delete-char 1) (insert (if doit "Y" "N"))))))))) (setq packages-need-up (cdr packages-need-up))) (mapc (lambda (pkg) (if (nth 2 pkg) (package-get (car pkg) (nth 2 pkg) nil pkg-dir) (message "Don't know how to remove package %s, do it manually" (car pkg)) (ding) (sit-for 4))) packages-to-get) (message "done"))) ;;; ------------------------- better y-or-n-p ------------------------- (defvar query-y-or-n-p-map nil "Keymap to use for query-y-or-n-p.") (if query-y-or-n-p-map nil (let ((map (make-sparse-keymap 'query-y-or-n-p-map))) (suppress-keymap map t) (set-keymap-parents map (list minibuffer-local-map)) (define-key map " " 'query-y-or-n-p-yes) (define-key map "\d" 'query-y-or-n-p-no) (define-key map [delete] 'query-y-or-n-p-no) (define-key map [backspace] 'query-y-or-n-p-no) (define-key map "y" 'query-y-or-n-p-yes) (define-key map "n" 'query-y-or-n-p-no) (define-key map "Y" 'query-y-or-n-p-yes) (define-key map "N" 'query-y-or-n-p-no) (setq query-y-or-n-p-map map))) (defun query-y-or-n-p-yes () (interactive) (insert "y") (throw 'exit nil)) (defun query-y-or-n-p-no () (interactive) (insert "n") (throw 'exit nil)) (defun query-y-or-n-p (prompt &optional keymap) "Ask user a \"y or n\" question. Return t if answer is \"y\". Takes one argument, which is the string to display to ask the question. It should end in a space; `y-or-n-p' adds `(y or n) ' to it. No confirmation of the answer is requested; a single character is enough. Also accepts Space to mean yes, or Delete to mean no." (save-excursion (let ((keymap (or keymap query-y-or-n-p-map)) (prompt (concat (gettext prompt) (gettext "(y or n) "))) (ans "")) (while (stringp ans) (setq ans (downcase (read-from-minibuffer prompt nil keymap nil nil nil))) ;no history (cond ((string-equal ans (gettext "y")) (setq ans 't)) ((string-equal ans (gettext "n")) (setq ans 'nil)) (t (ding nil 'y-or-n-p) (discard-input) (message "Please answer y or n.") (sleep-for 2)))) (message "%s%s" prompt (if ans "Yes" "No")) ans))) ;;; --------------- keymap for package update y-or-n-p ---------------- (defvar pkgup-y-or-n-p-map nil "Keymap to use for package-get-interactive y-or-n-p queries.") (if pkgup-y-or-n-p-map nil (let ((map (make-sparse-keymap 'pkgup-y-or-n-p-map))) (set-keymap-parents map (list query-y-or-n-p-map)) (define-key map "?" 'pkgup-help-show-details) (setq pkgup-y-or-n-p-map map))) (defun pkgup-help-show-details () (interactive) (let ((info (package-get-info-version (package-get-info-find-package package-get-base pkgup-help-package-name) nil))) (when info (with-output-to-temp-buffer "*package-update-help*" (princ (format "%20s: %s\n" "package-name" pkgup-help-package-name)) (while info (princ (format "%20s: %s\n" (nth 0 info) (nth 1 info))) (setq info (cdr (cdr info)))))))) ;; hack this to do the requires above ;; (defun package-get-all (package version &optional fetched-packages) ;; "Fetch PACKAGE with VERSION and all other required packages. ;; Uses `package-get-base' to determine just what is required and what ;; package provides that functionality. If VERSION is nil, retrieves ;; latest version. Optional argument FETCHED-PACKAGES is used to keep ;; track of packages already fetched." ;; (interactive "sPackage: \nsVersion: ") ;; (let* ((the-package (package-get-info-find-package package-get-base ;; package)) ;; (this-package (package-get-info-version ;; the-package version)) ;; (this-requires (package-get-info-prop this-package 'requires)) ;; ) ;; (setq version (package-get-info-prop this-package 'version)) ;; (unless (package-get-installedp package version) ;; (package-get package version)) ;; (setq fetched-packages ;; (append (list package) ;; (package-get-info-prop this-package 'provides) ;; fetched-packages)) ;; ;; grab everything that this package requires plus recursively ;; ;; grab everything that the requires require. Keep track ;; ;; in `fetched-packages' the list of things provided -- this ;; ;; keeps us from going into a loop ;; (while this-requires ;; (if (not (member (car this-requires) fetched-packages)) ;; (let* ((reqd-package (package-get-package-provider ;; (car this-requires))) ;; (reqd-version (cadr reqd-package)) ;; (reqd-name (car reqd-package))) ;; (if (null reqd-name) ;; (error "Unable to find a provider for %s" (car this-requires))) ;; (setq fetched-packages ;; (package-get-all reqd-name reqd-version fetched-packages))) ;; ) ;; (setq this-requires (cdr this-requires))) ;; fetched-packages ;; )) ;; (provide 'package-get-interactive) ;;; package-get-interactive.el ends here

1 participants
0 comments

bug in auctex 1.10 binary package ?? 25 years, 9 months

Greg Klanderman

I have downloaded the auctex 1.10 binary pkg and installed it, but packages-package-list keeps telling me I only have 1.09. What's up? The _pkg.el file seems to have it right. greg

1 participants
0 comments

Re: Using VM on W95 25 years, 9 months

Brett Johnson

Pete Ware <ware(a)cis.ohio-state.edu> writes: > Where can I find the ``nnimap'' select method? Christopher Davis <ckd(a)loiosh.kei.com> writes: > How is nnimap, and where do I go to snag it from? >From the gnus FAQ: Q4.13 Using an IMAP server I want to use Gnus to read messages on an IMAP server. Current versions of Gnus do not have any IMAP capability. However, it is hoped that nnimap will be working in the not-too-distant future. A current version of the nnimap code is available, but is very alpha. Do not bother to download this unless you are an experienced programmer who would like to work on it. It can be found at <URL:ftp://olivier.pc.cs.cmu.edu/pub/> John Prevost <visigoth(a)cs.cmu.edu> is the person who is maintaining this;you should speak with him if you wish to contribute to these nnimap sources. Update: Simon Josefsson <jas(a)pdc.kth.se> has been working on John Prevost's code, and may be considered a current maintainer as people have been unable to reach John about this. This work can be found at <URL:http://vic20.dzp.se/gnus-imap/> -- Brett Johnson <brett_johnson(a)hp.com> "Every function in my new house is managed by the PC, and sometimes it works." -- Bill Gates

1 participants
0 comments

Unable to install pre8 "Corsican" on DU4.0C w/ ToolTalk 25 years, 9 months

Kevin Oberman

I guess my last message [Success] was a bit premature. While XEmacs Pre-8 built without error and all of the tools seemed to be installed, it won't install because it claims that the tooltalk package is missing. But, if I run XEmacs and check, it is there! Here is the error: make[1]: Leaving directory `/home/oberman/utils/xemacs-21.0-b51/man' /usr/users/oberman/utils/xemacs-21.0-b51/src/xemacs -batch -l check-features.el Error: This XEmacs is built with tooltalk support but does not have a tooltalk package installed. Without the tooltalk lisp package, Tooltalk support is broken. make: *** [check-features] Error 1 (require 'packages) (defvar build-error 0) (when (featurep 'tooltalk) (condition-case nil (package-require 'tooltalk 1.0) (t (progn (setq build-error 1) (message "Error: This XEmacs is built with tooltalk support but") (message "does not have a tooltalk package installed. Without the") (message "tooltalk lisp package, Tooltalk support is broken."))))) Is the problem that tooltalk is no longer at 1.0, but at 1.06? Since package-require is undocumented, I'm not sure what it is looking for. R. Kevin Oberman, Network Engineer Energy Sciences Network (ESnet) Ernest O. Lawrence Berkeley National Laboratory (Berkeley Lab) E-mail: oberman(a)es.net Phone: +1 510 486-8634

1 participants
0 comments

[SUCCESS] 21.0 "Corsican" XEmacs Lucid on i586-pc-cygwin32 25 years, 9 months

Andy Piper

built fine. I assume that gif support is back in since my build report says it is? andy > XEmacs Build Report as generated > by build-report-version 1.35 follows: > Contents of /development/build/xemacs-20/Installation: > (Output from most recent run of ./configure) uname -a: CYGWIN32_NT ARMAGEDON 4.0 19.3 i586 unknown ./configure '--prefix=/usr/gnu' '--package-path=/usr/gnu/lib/xemacs/packages' '--site-includes=/usr/local/include' XEmacs 21.0 "Corsican" configured for `i586-pc-cygwin32'. Where should the build process find the source code? /development/build/xemacs-20 What installation prefix should install use? /usr/gnu What operating system and machine description files should XEmacs use? `s/cygwin32.h' and `m/intel386.h' What compiler should XEmacs be built with? gcc -g -O2 -Wall -Wno-switch Should XEmacs use the GNU version of malloc? yes Should XEmacs use the relocating allocator for buffers? default What window system should XEmacs use? x11 Where do we find X Windows header files? /usr/X11R6.3/include Where do we find X Windows libraries? /usr/X11R6.3/lib Additional header files: /usr/local/include Compiling in support for XAUTH. Compiling in support for XPM images. Compiling in support for GIF image conversion. Compiling in support for JPEG image conversion. Compiling in support for PNG image conversion. Compiling in support for TIFF image conversion. Compiling in support for GNU DBM. Compiling in support for ncurses. Compiling in File coding support. Compiling in support for proper session-management. Using Lucid menubars. Using Lucid scrollbars. Using Athena dialog boxes. movemail will use "dot-locking" for locking mail spool files. Using Lisp_Objects with minimal tagbits. Using indexed lrecord implementation. > /development/build/xemacs-20/beta.err does not exist!

1 participants
0 comments

[crash] More info. 25 years, 9 months

Karl M. Hegbloom

After I display a few, XEmacs crashes.

2 participants
1 comments

Re: Stuff in Emacs 20.2 missing in XEmacs -- autorevert.el 25 years, 9 months

SL Baur

Jeff Sparkes <jsparkes(a)internetivity.com> writes in xemacs-beta(a)xemacs.org: >> I've gotten an offline request for autorevert.el. A quick scan of >> this file reveals that it is using timers. Has anyone used this with >> XEmacs? Does it work out-of-the-box with Kyle's timer.el? > I've been using it with a native windows build without problems. If it > works here, it's probably all right everywhere. O.K. That's one hurdle. I've thought about this some more and remembered the introduction of overlay emulation. We have had plenty of difficulties with emulation and feature checking before -- remember the overlay problems from last Spring? How does it work if you also use mic-paren and eldoc (to name two packages that use timers but shouldn't use them in XEmacs)?

2 participants
1 comments

[crash] Pictures from the split message. 25 years, 9 months

Karl M. Hegbloom

That split message came back to me fine, but it didn't reassemble right, and the pictures didn't get decoded. In case that happened everywhere else also, here's the pictures again. The first one shows the garbage in the customize buffer, and the second is of a png backdrop that's not displayed right on this laptop's 24bpp display.

1 participants
0 comments

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

1999

1998

XEmacs-Beta August 1998