which included commits to RCS files with non-trunk default branches.
+ -*- Outline -*-
+This file is in Outline mode. It is best viewed under XEmacs.
+
+Press C-c C-o (Ctrl+c Ctrl+o) now to see a list of headings.
+ To expand a heading: Put the cursor on the heading and press C-c C-s
+To collapse a heading: Press C-c C-d
+
+For general XEmacs navigation tips: Press C-h t
+
The XEmacs Packages Quick Start Guide
-------------------------------------
and its packages from start. For details see the 'Startup Paths' and
'Packages' sections of the XEmacs info manual.
-Real Real Quickstart FAQ
-------------------------
+* Real Real Quickstart FAQ
+--------------------------
Q. Do I need to have the packages to compile XEmacs?
A. No, XEmacs will build and install just fine without any packages
you. You can either track it down and install it, or install the
`Sumo Tarball' (see the second FAQ).
-A note of caution
------------------
+* A note of caution
+-------------------
The XEmacs package system is still in its infancy. Please expect a few
minor hurdles on the way. Also neither the interface nor the structure is
backwards compatibility as quirks are worked out over the coming
releases.
-Some Package Theory
--------------------
+* Some Package Theory
+---------------------
In order to reduce the size and increase the maintainability of XEmacs,
the majority of the Elisp packages that came with previous releases
the right place. On startup XEmacs will find them, set up the load
path correctly, install autoloads, etc, etc.
-Package hierarchies
--------------------
+* Package hierarchies
+---------------------
On Startup XEmacs looks for packages in so called package hierarchies.
These can be specified by the 'package-path' parameter to the
'configure' script. However by default there are three system wide
-hierarchies.
+hierarchies. ("$prefix" defaults to "/usr/local")
-$prefix/lib/xemacs/site-packages
- Local and 3rd party packages go here.
+$prefix/lib/xemacs/xemacs-packages
+ Normal packages go here.
$prefix/lib/xemacs/mule-packages
- Only searched by MULE-enabled XEmacsen.
+ Mule packages go here and are only searched by MULE-enabled XEmacsen.
-$prefix/lib/xemacs/xemacs-packages
- Normal packages go here.
+$prefix/lib/xemacs/site-packages/
+ Local and 3rd party packages go here.
-Where to get the packages
--------------------------
+
+* Where to get the packages
+---------------------------
Packages are available from ftp://ftp.xemacs.org/pub/xemacs/packages
and its mirrors.
-How to install the packages
----------------------------
+* How to install the packages
+-----------------------------
+There are a few different ways to install packages:
-1. All at once, using the 'Sumo Tarball'.
-2. By hand.
-3. Automatically, using the package tools from XEmacs.
+ 1. Manually, all at once, using the 'Sumo Tarball'.
+ 2. Manually, using individual package tarballs.
+ 3. Automatically, using the package tools from XEmacs.
-The Sumo Tarball
-----------------
+** Manually, all at once, using the 'Sumo Tarball'
+--------------------------------------------------
Those with little time, cheap connections and plenty of disk space can
install all the packages at once using the sumo tarballs.
-Download the file
+Download the file:
-xemacs-sumo.tar.gz
+ xemacs-sumo.tar.gz
-For an XEmacs compiled with Mule you also need
+For an XEmacs compiled with Mule you also need:
-xemacs-mule-sumo.tar.gz
+ xemacs-mule-sumo.tar.gz
N.B. They are called 'Sumo Tarballs' for good reason. They are
-currently about 15MB and 2.3MB (gzipped) respectively.
+currently about 19MB and 4.5MB (gzipped) respectively.
-Install them by
+Install them by:
-cd $prefix/lib/xemacs ; gunzip -c <tarballname> | tar xf -
+ cd $prefix/lib/xemacs ; gunzip -c <tarballname> | tar xvf - RET
+
+Or, if you have GNU tar:
+
+ cd $prefix/lib/xemacs ; tar zxvf /path/to/<tarballname> RET
As the Sumo tarballs are not regenerated as often as the individual
packages, it is recommended that you use the automatic package tools
afterwards to pick up any recent updates.
-Installing by Hand
-------------------
+** Manually, using individual package tarballs
+----------------------------------------------
-Fetch the packages from the ftp site, CDROM whatever. The filenames
+Fetch the packages from the FTP site, CD-ROM whatever. The filenames
have the form name-<version>-pkg.tar.gz and are gzipped tar files. For
a fresh install it is sufficient to untar the file at the top of the
-package hierarchy. For example if we are installing the 'xemacs-base'
-package in version 1.27:
+package hierarchy.
+
+Note: If you are upgrading packages already installed, it's best to
+remove the old package first (see 'Upgrading/Removing Packages' below).
+
+For example if we are installing the 'xemacs-base'
+package (version 1.48):
+
+ mkdir $prefix/lib/xemacs/xemacs-packages RET # if it does not exist yet
+ cd $prefix/lib/xemacs/xemacs-packages RET
+ gunzip -c /path/to/xemacs-base-1.48-pkg.tar.gz | tar xvf - RET
-mkdir $prefix/lib/xemacs/xemacs-packages # if it does not exist yet
-cd $prefix/lib/xemacs/xemacs-packages
-gunzip -c ...../xemacs-base-1.27-pkg.tar.gz | tar xf -
+Or if you have GNU tar, the last step can be:
-For MULE related packages, it is best to untar in the mule-packages
-hierarchy, i.e. for the mule-base package, version 1.25
+ tar zxvf /path/to/xemacs-base-1.48-pkg.tar.gz RET
-mkdir $prefix/lib/xemacs/mule-packages # if it does not exist yet
-cd $prefix/lib/xemacs/mule-packages
-gunzip -c ...../mule-base-1.25-pkg.tar.gz | tar xf -
+For MULE related packages, it is best to untar into the mule-packages
+hierarchy, i.e. for the mule-base package, version 1.37:
-Installing automatically
-------------------------
+ mkdir $prefix/lib/xemacs/mule-packages RET # if it does not exist yet
+ cd $prefix/lib/xemacs/mule-packages RET
+ gunzip -c /path/to/mule-base-1.37-pkg.tar.gz | tar xvf - RET
+
+Or if you have GNU tar, the last step can be:
+
+ tar zxvf /path/to/mule-base-1.37-pkg.tar.gz RET
+
+
+** Automatically, using the package tools from XEmacs
+-----------------------------------------------------
XEmacs comes with some tools to make the periodic updating and
installing easier. It will notice if new packages or versions are
-available and will fetch them from the ftp site.
+available and will fetch them from the FTP site.
Unfortunately this requires that a few packages are already in place.
You will have to install them by hand as above or use a SUMO tarball.
This requirement will hopefully go away in the future. The packages
you need are:
- efs - To fetch the files from the ftp site or mirrors.
+ efs - To fetch the files from the FTP site or mirrors.
xemacs-base - Needed by efs.
and optionally:
- mailcrypt - If you have PGP installed and want to verify the
- signature of the index file.
mule-base - Needed if you want to use XEmacs with MULE.
-After installing these by hand, you can start XEmacs. (It is a good
-idea to use 'xemacs -vanilla' here as your startup files might need
-things now moved to packages.)
+After installing these by hand, fire up XEmacs and follow these
+steps.
- - First you need to specify an FTP site to use.
- Use Options->Manage Packages->Add Download Site
- or M-x customize-variable RET package-get-remote RET
+Note: The menus in XEmacs 21.2.x and up have changed slightly, so
+where I mention "Options -> Manage Packages", substitute "Tools ->
+Packages".
- Alternatively, if you already have the packages on a local disk
- then you can specify this directly using 'M-x
- pui-add-install-directory'. Please make sure you also have a
- corresponding copy of the package index there.
+ (1) Choose a download site.
+ - via menu: Options -> Manages Packages -> Add Download Site
+ - via keyb: M-x customize-variable RET package-get-remote RET
+ (put in the details of remote host and directory)
- - Invoke Options->Manage Packages->List & Install
- or M-x pui-list-packages RET
- XEmacs will now first try to fetch a new version of the package
- index from the FTP site. Depending on whether you are using
- 'mailcrypt/PGP', you will get some question about keys to fetch or
- whether to use the index without verifying the signature. If the
- new index was different from the one already on disk, XEmacs will
- offer you to overwrite the old index.
+ If the package tarballs _AND_ the package-index file are in a
+ local directory, you can: M-x pui-add-install-directory RET
-- XEmacs will show you a buffer named "*Packages*" with an overview
- of available and installed packages, including a short description.
- In this buffer you can select which packages you want using the
- mouse or using RET.
+ (2) Obtain a list of packages and display the list in a buffer named
+ "*Packages*".
+ - menu: Options -> Manage Packages -> List & Install
+ - keyb: M-x pui-list-packages RET
-- When you are finished choosing packages, invoke
- 'Packages->Install/Remove Select' from the menu or type 'x' to
- begin installing packages.
+ XEmacs will now connect to the remote site and download the
+ latest package-index file. If you see an error about the
+ package-index entries not being PGP signed, you can safely
+ ignore this because PGP has not been integrated into the XEmacs
+ package tools yet.
-After Installation
-------------------
+ The resulting buffer, "*Packages*" has brief instructions at the
+ end of the buffer.
-New packages can only be used by XEmacs after a restart.
+ (3) Choose the packages you wish to install.
+ - mouse: Click button 2 on the package name.
+ - keyb: RET on the package name
-Note to MULE users
-------------------
+ (4) Make sure you have everything you need.
+ - menu: Packages -> Add Required
+ - keyb: r
-Unlike all other packages the mule-base package is used at build/dump
-time. This means that you need this available before compiling XEmacs
-with MULE. Also it is a good idea to keep packages that are
-MULE-only separate by putting them in the mule-packages hierarchy.
+ XEmacs will now search for packages that are required by the
+ ones that you have chosen to install and offer to select
+ those packages also.
-Which Packages to install?
---------------------------
+ For novices and gurus alike, this step can save your bacon.
+ It's easy to forget to install a critical package.
+
+ (5) Download and install the packages.
+ - menu: Packages -> Install/Remove Selected
+ - keyb: x
+
+* After Installation
+--------------------
+
+New packages can only be used by XEmacs after a restart.
+
+* Which Packages to install?
+----------------------------
This is difficult to say. When in doubt install a package. If you
administrate a big site it might be a good idea to just install
edit-utils, fsf-compat, mail-lib, net-utils, os-utils, prog-modes,
text-modes, time
-Unfortunately the package system currently provides neither
-dependencies nor conflicts. This will be a future enhancement. The
-above set includes most packages that are used by others.
+If you are using the XEmacs package tools, don't forget to do:
+
+ Packages -> Add Required
+
+To make sure you have everything that the packages you have chosen to
+install need.
See also '.../etc/PACKAGES' for further descriptions of the individual
-packages (currently outdated).
+packages.
-Upgrading/Removing Packages
----------------------------
+* Upgrading/Removing Packages
+-----------------------------
As the exact files and their locations contained in a package may
change it is recommended to remove a package first before installing a
Note that the interactive package tools included with XEmacs already do
this for you.
-User Package directories
-------------------------
+* User Package directories
+--------------------------
In addition to the system wide packages, each user can have his own
packages installed in "~/.xemacs/xemacs-packages". If you want to
install packages there using the interactive tools, you need to set
'pui-package-install-dest-dir' to "~/.xemacs/xemacs-packages"
-Site lisp/Site start
---------------------
+* Site lisp/Site start
+----------------------
The site-packages hierarchy replaces the old 'site-lisp' directory.
XEmacs no longer looks into a 'site-lisp' directly by default.
A good place to put 'site-start.el' would be in
$prefix/lib/xemacs/site-packages/lisp/
-Finding the right packages
---------------------------
+* Finding the right packages
+----------------------------
If you want to find out which package contains the functionality you
are looking for, use M-x package-get-package-provider, and give it a
-symbol that is likely to be in that package. For example, if some
-code you want to use has a (require 'thingatpt) in it, try doing
-M-x package-get-package-provider RET thingatpt , which will return
-something like: (fsf-compat "1.06").
+symbol that is likely to be in that package.
+
+For example, if some code you want to use has a (require 'thingatpt)
+in it:
+
+ M-x package-get-package-provider RET thingatpt RET
+
+which will return something like: (fsf-compat "1.08").
-* Description of available packages by category
-===============================================
+ -*- Outline -*-
+This file is in Outline mode. It is best viewed under XEmacs.
-This data is up-to-date as of 10 February 1999.
+Press C-c C-o (Ctrl+c Ctrl+o) now to see a list of headings.
+ To expand a heading: Put the cursor on the heading and press C-c C-s
+To collapse a heading: Press C-c C-d
+
+For general XEmacs navigation tips: Press C-h t
+
+Description of available packages by category
+=============================================
+This data is up-to-date as of January 17, 2001.
** Library Packages (libs)
==========================
-
These packages are required to build and support most of the rest of
XEmacs. By design, xemacs-base is a `regular' package. Use restraint
when adding new files there as it is required by almost everything.
*** Sun
-
Support for Sparcworks.
*** apel
-
A Portable Emacs Library. Used by XEmacs MIME support.
-*** edebug
-
-A Lisp debugger.
-
*** dired
-
The DIRectory EDitor is for manipulating, and running commands on
files in a directory.
-*** efs
+*** edebug
+A Lisp debugger.
+*** efs
Treat files on remote systems the same as local files.
-*** mail-lib
+*** elib
+Portable Emacs Lisp utilities library.
+
+*** fsf-compat
+FSF Emacs compatibility files.
+*** mail-lib
Fundamental lisp files for providing email support.
-*** tooltalk
+*** sounds-au
+XEmacs Sun sound files.
+
+*** sounds-wav
+XEmacs Microsoft sound files.
+*** tooltalk
Support for building with Tooltalk.
*** xemacs-base
-
Fundamental XEmacs support. Install this unless you wish a totally
naked XEmacs.
*** xemacs-devel
-
XEmacs Lisp developer support. This package contains utilities for
supporting Lisp development. It is a single-file package so it may be
tailored.
** Communications Packages (comm)
=================================
-
These packages provide support for various communications, primarily
email and usenet.
-*** footnote
+*** bbdb
+The Big Brother Data Base
+
+*** eicq
+ICQ Client developed and tested on Linux x86;
+only supported on that platform
+*** eudc
+Emacs Unified Directory Client (LDAP, PH).
+
+*** footnote
Footnoting in mail message editing modes.
*** gnats
-
XEmacs bug reports.
*** gnus
-
The Gnus Newsreader and Mailreader.
*** mailcrypt
-
Support for messaging encryption with PGP.
-*** mh-e
+*** mew
+Messaging in an Emacs World.
+*** mh-e
Front end support for MH.
*** net-utils
-
Miscellaneous Networking Utilities. This is a single-file package and
files may be deleted at will.
-*** ph
-
-Emacs implementation of the ph client to CCSO/qi directory servers.
-
*** rmail
-
An obsolete Emacs mailer. If you do not already use it don't start.
*** supercite
-
An Emacs citation tool. Useful with all Emacs Mailers and Newsreaders.
*** tm
-
-Emacs MIME support.
+Emacs MIME support. Not needed for Gnus >= 5.8.0
*** vm
-
An Emacs mailer.
*** w3
-
A Web browser.
+*** zenirc
+ZENIRC IRC Client.
+
** Games and Amusements (games)
===============================
+All work and no play...
*** cookie
-
Spook and Yow (Zippy quotes).
*** games
-
Tetris, Sokoban, and Snake.
*** mine
-
Minehunt.
*** misc-games
-
Other amusements and diversions.
** Mule Support (mule)
======================
+MULti-lingual Enhancement. Support for world scripts such as
+Latin, Arabic, Cyrillic, Chinese, Japanese, Greek, Hebrew etc.
+To use these packages your XEmacs must be compiled with Mule
+support.
-*** egg-its
+*** edict
+Lisp Interface to EDICT, Kanji Dictionary.
+*** egg-its
Wnn (4.2 and 6) support. SJ3 support. Must be installed prior to
XEmacs build.
*** leim
-
Quail. Used for everything other than English and Japanese.
*** locale
-
Used for localized menubars (French and Japanese) and localized splash
screens (Japanese).
-*** mule-base
+*** lookup
+Dictionary support
+*** mule-base
Basic Mule support. Must be installed prior to building with Mule.
*** skk
-
Another Japanese Language Input Method. Can be used without a
separate process running as a dictionary server.
** Productivity Packages (oa)
=============================
+Things to make life a little easier.
-*** calendar
+*** calc
+Emacs calculator.
+*** calendar
Calendar and diary support.
*** edit-utils
-
Single file lisp packages for various XEmacs goodies. Load this and
weed out the junk you don't want.
*** forms
-
-Forms editing support (obsolete, use the builtin Widget instead).
+Forms editing support (obsolete, use the built-in Widget instead).
*** frame-icon
-
Provide a WM icon based on major mode.
*** hm--html-menus
-
HTML editing.
*** ispell
-
Spell-checking with ispell.
*** pc
-
PC style interface emulation.
*** psgml
-
Validated HTML/SGML editing.
*** sgml
-
SGML/Linuxdoc-SGML editing.
*** slider
-
User interface tool.
*** speedbar
-
-??? Document me.
+Provides a separate frame with convenient references.
*** strokes
-
Mouse enhancement utility.
*** text-modes
-
Various single file lisp packages for editing text files.
*** time
-
Display time & date on the modeline.
** Operating System Utilities (os)
==================================
+Tools for working with the operating system.
-*** eterm
+*** eshell
+Command shell implemented entirely in Emacs Lisp.
+*** eterm
Terminal emulator.
*** igrep
-
Enhanced front-end for Grep.
*** ilisp
-
Front-end for Inferior Lisp.
*** os-utils
-
Miscellaneous single-file O/S utilities, for printing, archiving,
compression, remote shells, etc.
-*** view-process
+*** pcomplete
+Provides programmatic completion.
+
+*** ps-print-nomule
+Old, but no-Mule safe ps-print.
+*** view-process
A Unix process browsing tool.
** Program Editing Support (prog)
=================================
+XEmacs supports a multitude of programming languages. These
+packages will help your coding.
*** ada
-
Ada language support.
*** c-support
-
Basic single-file add-ons for editing C code.
*** cc-mode
-
C, C++ and Java language support.
*** debug
-
GUD, gdb, dbx debugging support.
*** ediff
-
Interface over patch.
*** emerge
-
Another interface over patch.
-*** pcl-cvs
+*** idlwave
+Editing and Shell mode for the Interactive Data Language.
+
+*** jde
+Java language and development support.
+*** pcl-cvs
CVS frontend.
*** prog-modes
-
Miscellaneous single-file lisp files for various programming languages.
*** scheme
-
Front-end support for Inferior Scheme.
-*** sh-script
+*** semantic
+Semantic bovinator.
+*** sh-script
Support for editing shell scripts.
*** vc
-
Version Control for Free systems.
*** vc-cc
-
-Version Control for ClearCase. This package must be installed prior
-to building XEmacs [broken as of XEmacs 20.5-beta19].
+Version Control for ClearCase. This package will shortly be
+replaced with clearcase.el
*** vhdl
-
Support for VHDL.
** Word Processing (wp)
=======================
+Working with text.
*** auctex
-
Basic TeX/LaTeX support.
*** crisp
-
Crisp/Brief emulation.
*** edt
-
DEC EDIT/EDT emulation.
-*** texinfo
+*** reftex
+Emacs support for LaTeX cross-references, citations.
+*** texinfo
XEmacs TeXinfo support.
*** textools
-
Single-file TeX support.
*** tpu
-
DEC EDIT/TPU support.
*** viper
-
VI emulation support.
+2001-01-26 Martin Buchholz <martin@xemacs.org>
+
+ * XEmacs 21.2.43 "Terspichore" is released.
+
+2001-01-23 Jan Vroonhof <jan@xemacs.org>
+
+ * gnuserv.c: Add version number to object file.
+
+2001-01-20 Klaus Frank <klausf@i3.informatik.rwth-aachen.de>
+
+ * gnuserv.c (permitted): Completed the checks of the authentication
+ data length, replaced memcmp() by constant-time comparision.
+
2001-01-20 Martin Buchholz <martin@xemacs.org>
* XEmacs 21.2.42 "Poseidon" is released.
* ../etc/gnuserv.README relative to the directory containing this file)
*/
-#if 0
-/* Hand-munged RCS header */
-static char rcsid [] = "!Header: gnuclient.c,v 2.2 95/12/12 01:39:21 wing nene !";
-#endif
-
#include "gnuserv.h"
+
+char gnuserv_version[] = "gnuclient version " GNUSERV_VERSION;
+
#include "getopt.h"
#include <stdio.h>
* ../etc/gnuserv.README relative to the directory containing this file)
*/
-#if 0
-static char rcsid [] = "!Header: gnuserv.c,v 2.1 95/02/16 11:58:27 arup alpha !";
-#endif
-
#include "gnuserv.h"
+char gnuserv_version[] = "gnuserv version" GNUSERV_VERSION;
+
+
#ifdef USE_LITOUT
#ifdef linux
#include <bsd/sgtty.h>
char auth_protocol[128];
char buf[1024];
int auth_data_len;
+ int auth_data_pos;
+ int auth_mismatches;
if (fd > 0)
{
auth_data_len = atoi(buf);
+ if (auth_data_len <= 0 || auth_data_len > sizeof(buf))
+ {
+ return FALSE;
+ }
+
if (timed_read(fd, buf, auth_data_len, AUTH_TIMEOUT, 0) != auth_data_len)
return FALSE;
#ifdef AUTH_MAGIC_COOKIE
- if (server_xauth && server_xauth->data &&
- !memcmp(buf, server_xauth->data, auth_data_len))
- {
+ if (server_xauth && server_xauth->data)
+ {
+ /* Do a compare without comprising info about
+ the size of the cookie */
+ auth_mismatches =
+ ( auth_data_len ^
+ server_xauth->data_length );
+
+ for(auth_data_pos=0; auth_data_pos < auth_data_len; ++auth_data_pos)
+ auth_mismatches |=
+ ( buf[auth_data_pos] ^
+ server_xauth->data[auth_data_pos % server_xauth->data_length]);
+
+ if (auth_mismatches == 0)
return TRUE;
- }
+
+ for(;rand() % 1000;);
+ }
+
#else
printf ("client tried Xauth, but server is not compiled with Xauth\n");
#endif
* ../etc/gnuserv.README relative to the directory containing this file)
*/
-#if 0
-static char header_rcsid [] = "!Header: gnuserv.h,v 2.4 95/02/16 11:58:11 arup alpha !";
-#endif
+#define GNUSERV_VERSION "3.12"
#define USE_TMPDIR
obarray (lambda (symbol)
(and (boundp symbol)
(or (get symbol 'custom-type)
- (user-variable-p symbol)))) t))
+ (user-variable-p symbol))))
+ t nil nil (and v (symbol-name v))))
(list (if (equal val "")
(if (symbolp v) v nil)
(intern val)))))
;;; gnuserv.el --- Lisp interface code between Emacs and gnuserv
;; Copyright (C) 1989-1997 Free Software Foundation, Inc.
-;; Version: 3.11
+;; Version: 3.12
;; Author: Andy Norman (ange@hplb.hpl.hp.com), originally based on server.el
;; Hrvoje Niksic <hniksic@xemacs.org>
;; Maintainer: Jan Vroonhof <vroonhof@math.ethz.ch>,
"Process gnuserv client requests to execute Emacs commands."
(setq gnuserv-string (concat gnuserv-string string))
;; C-d means end of request.
- (when (string-match "\C-d\\'" gnuserv-string)
- (cond ((string-match "^[0-9]+" gnuserv-string) ; client request id
+ (when (string-match "\C-d\n?\\'" gnuserv-string)
+ (cond ((string-match "\\`[0-9]+" gnuserv-string) ; client request id
(let ((header (read-from-string gnuserv-string)))
;; Set the client we are talking to.
(setq gnuserv-current-client (car header))
(signal 'quit nil)))
(setq gnuserv-string "")))
(t
- (error "%s: invalid response from gnuserv" gnuserv-string)
- (setq gnuserv-string "")))))
+ (let ((response (car (split-string gnuserv-string "\C-d"))))
+ (setq gnuserv-string "")
+ (error "%s: invalid response from gnuserv" response))))))
;; This function is somewhat of a misnomer. Actually, we write to the
;; server (using `process-send-string' to gnuserv-process), which
;; This is a grody hack of the same genotype as `advertised-undo'; if the
;; bindings of Backspace and C-h are the same, we want the menubar to claim
-;; that `info' in invoked with `C-h i', not `BS i'.
+;; that `info' is invoked with `C-h i', not `BS i'.
(defun deprecated-help-command ()
(interactive)
val)
(setq val (read-command
(if fn (format "Where is command (default %s): " fn)
- "Where is command: ")))
+ "Where is command: ")
+ (and fn (symbol-name fn))))
(list (if (equal (symbol-name val) "")
fn val)
current-prefix-arg)))
(if fn
(format " (default %s)" fn)
""))
- obarray 'fboundp t))
+ obarray 'fboundp t
+ nil nil (and fn (symbol-name fn))))
(list (if (equal val "")
fn (intern val)))))
(save-window-excursion
;; rewritten for I18N3 snarfing
(read-from-minibuffer
(format "List lines matching regexp (default `%s'): "
- default) nil nil nil 'regexp-history)
+ default) nil nil nil 'regexp-history nil
+ default)
(read-from-minibuffer
"List lines matching regexp: "
nil nil nil
+2001-01-26 Martin Buchholz <martin@xemacs.org>
+
+ * XEmacs 21.2.43 "Terspichore" is released.
+
2001-01-20 Martin Buchholz <martin@xemacs.org>
* XEmacs 21.2.42 "Poseidon" is released.
+2001-01-26 Martin Buchholz <martin@xemacs.org>
+
+ * XEmacs 21.2.43 "Terspichore" is released.
+
2001-01-20 Martin Buchholz <martin@xemacs.org>
* XEmacs 21.2.42 "Poseidon" is released.
When a string is created using @code{buffer-substring} or
@code{buffer-string}, any duplicable extents in the region corresponding
to the string will be copied into the string (@pxref{Buffer
-Contents}). When the string in inserted into a buffer using
+Contents}). When the string is inserted into a buffer using
@code{insert}, @code{insert-before-markers}, @code{insert-buffer} or
@code{insert-buffer-substring}, the extents in the string will be copied
back into the buffer (@pxref{Insertion}). The extents in a string can,
+2001-01-26 Martin Buchholz <martin@xemacs.org>
+
+ * XEmacs 21.2.43 "Terspichore" is released.
+
2001-01-20 Martin Buchholz <martin@xemacs.org>
* XEmacs 21.2.42 "Poseidon" is released.
Lisp_Object attachee_property;/* property of that face or glyph */
};
-#define IMAGE_SPECIFIER_DATA(g) (SPECIFIER_TYPE_DATA (g, image))
+#define IMAGE_SPECIFIER_DATA(g) SPECIFIER_TYPE_DATA (g, image)
#define IMAGE_SPECIFIER_ALLOWED(g) (IMAGE_SPECIFIER_DATA (g)->allowed)
#define IMAGE_SPECIFIER_ATTACHEE(g) (IMAGE_SPECIFIER_DATA (g)->attachee)
#define IMAGE_SPECIFIER_ATTACHEE_PROPERTY(g) \
}
}
+inline static size_t
+aligned_sizeof_lstream (size_t lstream_type_specific_size)
+{
+ return ALIGN_SIZE (offsetof (Lstream, data) + lstream_type_specific_size,
+ ALIGNOF (max_align_t));
+}
+
static size_t
sizeof_lstream (const void *header)
{
- const Lstream *lstr = (const Lstream *) header;
- return sizeof (*lstr) + lstr->imp->size - 1;
+ return aligned_sizeof_lstream (((const Lstream *) header)->imp->size);
}
DEFINE_LRECORD_SEQUENCE_IMPLEMENTATION ("stream", lstream,
assert (lstream_type_count < countof (lstream_types));
lstream_types[lstream_type_count] = imp;
Vlstream_free_list[lstream_type_count] =
- make_lcrecord_list (sizeof (*p) + imp->size - 1,
+ make_lcrecord_list (aligned_sizeof_lstream (imp->size),
&lrecord_lstream);
lstream_type_count++;
}
p = XLSTREAM (allocate_managed_lcrecord (Vlstream_free_list[i]));
/* Zero it out, except the header. */
- memset ((char *) p + sizeof (p->header), 0,
- sizeof (*p) - sizeof (p->header) + imp->size - 1);
+ memset ((char *) p + sizeof (p->header), '\0',
+ aligned_sizeof_lstream (imp->size) - sizeof (p->header));
p->imp = imp;
Lstream_set_buffering (p, LSTREAM_BLOCK_BUFFERED, 0);
p->flags = LSTREAM_FL_IS_OPEN;
write_c_string (buf, printcharfun);
}
+inline static size_t
+aligned_sizeof_opaque (size_t opaque_size)
+{
+ return ALIGN_SIZE (offsetof (Lisp_Opaque, data) + opaque_size,
+ ALIGNOF (max_align_t));
+}
+
static size_t
sizeof_opaque (const void *header)
{
- const Lisp_Opaque *p = (const Lisp_Opaque *) header;
- return offsetof (Lisp_Opaque, data) + p->size;
+ return aligned_sizeof_opaque (((const Lisp_Opaque *) header)->size);
}
/* Return an opaque object of size SIZE.
make_opaque (const void *data, size_t size)
{
Lisp_Opaque *p = (Lisp_Opaque *)
- alloc_lcrecord (offsetof (Lisp_Opaque, data) + size, &lrecord_opaque);
+ alloc_lcrecord (aligned_sizeof_opaque (size), &lrecord_opaque);
p->size = size;
if (data == OPAQUE_CLEAR)
/* AIX is happier when bzero and strcasecmp are declared */
#include "strings.h"
-/* AIX 4.2's sys/mman.h doesn't seem to define MAP_FAILED,
- although Unix98 claims it must. */
-#ifdef HAVE_MMAP
-#include <sys/mman.h>
-# ifndef MAP_FAILED
-# define MAP_FAILED ((void *) -1)
-# endif
-#endif
-
/* Forward declarations for xlc warning suppressions */
struct ether_addr;
struct sockaddr_dl;
mswindows_own_selection (Lisp_Object selection_name,
Lisp_Object selection_value,
Lisp_Object how_to_add,
- Lisp_Object selection_type)
+ Lisp_Object selection_type,
+ int owned_p /* Not used */)
{
HGLOBAL hValue = NULL;
UINT cfType;
internal_hash (s->buffer_specs, depth + 1));
}
+inline static size_t
+aligned_sizeof_specifier (size_t specifier_type_specific_size)
+{
+ return ALIGN_SIZE (offsetof (Lisp_Specifier, data)
+ + specifier_type_specific_size,
+ ALIGNOF (max_align_t));
+}
+
static size_t
sizeof_specifier (const void *header)
{
- if (GHOST_SPECIFIER_P ((Lisp_Specifier *) header))
- return offsetof (Lisp_Specifier, data);
- else
- {
- const Lisp_Specifier *p = (const Lisp_Specifier *) header;
- return offsetof (Lisp_Specifier, data) + p->methods->extra_data_size;
- }
+ const Lisp_Specifier *p = (const Lisp_Specifier *) header;
+ return aligned_sizeof_specifier (GHOST_SPECIFIER_P (p)
+ ? 0
+ : p->methods->extra_data_size);
}
static const struct lrecord_description specifier_methods_description_1[] = {
{
Lisp_Object specifier;
Lisp_Specifier *sp = (Lisp_Specifier *)
- alloc_lcrecord (offsetof (Lisp_Specifier, data) + data_size,
- &lrecord_specifier);
+ alloc_lcrecord (aligned_sizeof_specifier (data_size), &lrecord_specifier);
sp->methods = spec_meths;
sp->global_specs = Qnil;
Lisp_Object fallback;
/* type-specific extra data attached to a specifier */
- char data[1];
+ max_align_t data[1];
};
typedef struct Lisp_Specifier Lisp_Specifier;
/***** Defining new specifier types *****/
-#define specifier_data_offset (offsetof (Lisp_Specifier, data))
+#define specifier_data_offset offsetof (Lisp_Specifier, data)
extern const struct lrecord_description specifier_empty_extra_description[];
#ifdef ERROR_CHECK_TYPECHECK
/* Record the values of window-min-width and window-min-height
so that window sizes remain consistent with them. */
int min_width, min_height;
- int saved_windows_count;
+ unsigned int saved_windows_count;
/* Zero-sized arrays aren't ANSI C */
struct saved_window saved_windows[1];
};
mark_window_config (Lisp_Object obj)
{
struct window_config *config = XWINDOW_CONFIGURATION (obj);
- int i;
+ unsigned int i;
mark_object (config->current_window);
mark_object (config->current_buffer);
mark_object (config->minibuffer_scroll_window);
return Qnil;
}
-static size_t
-sizeof_window_config_for_n_windows (int n)
+inline static size_t
+sizeof_window_config_for_n_windows (unsigned int n)
{
- return (sizeof (struct window_config) +
- /* n - 1 because zero-sized arrays aren't ANSI C */
- (n - 1) *sizeof (struct saved_window));
+ return FLEXIBLE_ARRAY_STRUCT_SIZEOF (struct window_config,
+ struct saved_window, saved_windows, n);
}
static size_t
window_config_equal (Lisp_Object conf1, Lisp_Object conf2)
{
struct window_config *fig1, *fig2;
- int i;
+ unsigned int i;
/* First check if they are truly the same. */
if (EQ (conf1, conf2))
static Lisp_Object
free_window_configuration (Lisp_Object window_config)
{
- int i;
+ unsigned int i;
struct window_config *config = XWINDOW_CONFIGURATION (window_config);
/* Free all the markers. It's not completely necessary that
struct window_config *config;
struct saved_window *p;
Lisp_Object new_current_buffer;
- int k;
+ unsigned int k;
Lisp_Object frame;
struct frame *f;
struct gcpro gcpro1;
}
\f
-static int
+static unsigned int
count_windows (struct window *window)
{
return 1 +
Lisp_Object result;
struct frame *f = decode_frame (frame);
struct window_config *config;
- int n_windows = count_windows (XWINDOW (FRAME_ROOT_WINDOW (f)));
+ unsigned int n_windows = count_windows (XWINDOW (FRAME_ROOT_WINDOW (f)));
int minibuf_height;
int real_font_height;
void
reinit_vars_of_window (void)
{
- int i;
+ unsigned int i;
/* Make sure all windows get marked */
minibuf_window = Qnil;
staticpro_nodump (&minibuf_window);
+2001-01-26 Martin Buchholz <martin@xemacs.org>
+
+ * XEmacs 21.2.43 "Terspichore" is released.
+
2001-01-20 Martin Buchholz <martin@xemacs.org>
* XEmacs 21.2.42 "Poseidon" is released.
emacs_is_beta=t
emacs_major_version=21
emacs_minor_version=2
-emacs_beta_version=42
-xemacs_codename="Poseidon"
+emacs_beta_version=43
+xemacs_codename="Terspichore"
infodock_major_version=4
infodock_minor_version=0
infodock_build_version=8
projects / chise / xemacs-chise.git / commitdiff