Doc inconsistency
23 years, 9 months
Michael Sperber
Michael Sperber
The documentation for `add-menu-button' starts like this:
`add-menu-button' is a compiled Lisp function
(add-menu-button MENU-PATH MENU-LEAF &optional BEFORE IN-MENU)
Documentation:
Add a menu item to some menu, creating the menu first if necessary.
If the named item exists already, it is changed.
MENU-PATH identifies the menu under which the new menu item should be inserted.
It is a list of strings; for example, ("File") names the top-level "File"
menu. ("File" "Foo") names a hypothetical submenu of "File".
MENU-LEAF is a menubar leaf node. See the documentation of `current-menubar'.
[...]
Now, I expected the keyword "menubar leaf node" to show up in the
documentation of `current-menubar'. No such luck (docs attached).
Can anyone enlighten me what this MENU-LEAF means? I need to know to
fix an outstanding Dired bug ...
`current-menubar' is a simple built-in variable.
Documentation:
The current menubar. This may be buffer-local.
When the menubar is changed, the function `set-menubar-dirty-flag' has to
be called for the menubar to be updated on the frame. See `set-menubar'
and `set-buffer-menubar'.
A menubar is a list of menus and menu-items.
A menu is a list of menu items, keyword-value pairs, strings, and submenus.
The first element of a menu must be a string, which is the name of the menu.
This is the string that will be displayed in the parent menu, if any. For
toplevel menus, it is ignored. This string is not displayed in the menu
itself.
Menu accelerators can be indicated in the string by putting the
sequence "%_" before the character corresponding to the key that will
invoke the menu or menu item. Uppercase and lowercase accelerators
are equivalent. The sequence "%%" is also special, and is translated
into a single %.
If no menu accelerator is present in the string, XEmacs will act as if
the first character has been tagged as an accelerator.
Immediately following the name string of the menu, various optional
keyword-value pairs are permitted: currently, :filter, :active, :included,
and :config. (See below.)
If an element of a menu (or menubar) is a string, then that string will be
presented as unselectable text.
If an element of a menu is a string consisting solely of hyphens, then that
item will be presented as a solid horizontal line.
If an element of a menu is a string beginning with "--:", it will be
presented as a line whose appearance is controlled by the rest of the
text in the string. The allowed line specs are system-dependent, and
currently work only under X Windows (with Lucid and Motif menubars);
otherwise, a solid horizontal line is presented, as if the string were
all hyphens.
The possibilities are:
"--:singleLine"
"--:doubleLine"
"--:singleDashedLine"
"--:doubleDashedLine"
"--:noLine"
"--:shadowEtchedIn"
"--:shadowEtchedOut"
"--:shadowEtchedInDash"
"--:shadowEtchedOutDash"
"--:shadowDoubleEtchedIn" (Lucid menubars only)
"--:shadowDoubleEtchedOut" (Lucid menubars only)
"--:shadowDoubleEtchedInDash" (Lucid menubars only)
"--:shadowDoubleEtchedOutDash" (Lucid menubars only)
If an element of a menu is a list, it is treated as a submenu. The name of
that submenu (the first element in the list) will be used as the name of the
item representing this menu on the parent.
If an element of a menubar is `nil', then it is used to represent the
division between the set of menubar-items which are flushleft and those
which are flushright.
Otherwise, the element must be a vector, which describes a menu item.
A menu item is of the following form:
[ "name" callback :<keyword> <value> :<keyword> <value> ... ]
The following forms are also accepted for compatibility, but deprecated:
[ "name" callback <active-p> ]
[ "name" callback <active-p> <suffix> ]
The name is the string to display on the menu; it is filtered through the
resource database, so it is possible for resources to override what string
is actually displayed. Menu accelerator indicators (the sequence `%_') are
also processed; see above. If the name is not a string, it will be
evaluated with `eval', and the result should be a string.
If the `callback' of a menu item is a symbol, then it must name a command.
It will be invoked with `call-interactively'. If it is a list, then it is
evaluated with `eval'.
In the deprecated forms, <active-p> is equivalent to using the :active
keyword, and <suffix> is equivalent to using the :suffix keyword.
The possible keywords are:
:active <form> The expression is evaluated just before the menu is
displayed, and the menu will be selectable only if
the result is non-nil.
:suffix <form> The expression is evaluated just before the menu is
displayed and the resulting string is appended to
the displayed name, providing a convenient way of
adding the name of a command's ``argument'' to the
menu, like ``Kill Buffer NAME''.
:keys "string" Normally, the keyboard equivalents of commands in
menus are displayed when the `callback' is a symbol.
This can be used to specify keys for more complex menu
items. It is passed through `substitute-command-keys'
first.
:style <style> Specifies what kind of object this menu item is:
nil A normal menu item.
toggle A toggle button.
radio A radio button.
button A menubar button.
The only difference between toggle and radio buttons is
how they are displayed. But for consistency, a toggle
button should be used when there is one option whose
value can be turned on or off, and radio buttons should
be used when there is a set of mutually exclusive
options. When using a group of radio buttons, you
should arrange for no more than one to be marked as
selected at a time.
:selected <form> Meaningful only when STYLE is `toggle', `radio' or
`button'. This specifies whether the button will be in
the selected or unselected state.
:included <form> This can be used to control the visibility of a menu or
menu item. The form is evaluated and the menu or menu
item is only displayed if the result is non-nil.
:config <symbol> This is an efficient shorthand for
:included (memq symbol menubar-configuration)
See the variable `menubar-configuration'.
:filter <function> A menu filter can only be used at the beginning of a
submenu description (i.e. not in a menu item itself).
(Remember that most of the keywords can take evaluated
expressions as well as constants.) The filter is used to
incrementally create a submenu only when it is selected
by the user and not every time the menubar is activated.
The filter function is passed the list of menu items in
the submenu and must return the modified list to be
actually used. The filter MUST NOT destructively modify
the list of menu items passed to it. It is called only
when the menu is about to be displayed, so other menus
may already be displayed. Vile and terrible things will
happen if a menu filter function changes the current
buffer, window, or frame. It also should not raise,
lower, or iconify any frames. Basically, the filter
function should have no side-effects.
:key-sequence keys Used in FSF Emacs as an hint to an equivalent keybinding.
Ignored by XEmacs for easymenu.el compatibility.
(XEmacs computes this information automatically.)
For example:
("%_File"
:filter file-menu-filter ; file-menu-filter is a function that takes
; one argument (a list of menu items) and
; returns a list of menu items
[ "Save %_As..." write-file t ]
[ "%_Revert Buffer" revert-buffer (buffer-modified-p) ]
[ "R%_ead Only" toggle-read-only :style toggle
:selected buffer-read-only ]
)
See menubar-items.el for many more examples.
After the menubar is clicked upon, but before any menus are popped up,
the functions on the `activate-menubar-hook' are invoked to make top-level
changes to the menus and menubar. Note, however, that the use of menu
filters (using the :filter keyword) is usually a more efficient way to
dynamically alter or sensitize menus.
--
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla
- 1 participants
- 0 comments
scripts to facilitate `cvs diff', `cvs update'
23 years, 9 months
Ben Wing
Ben Wing
Attached are scripts I use to make `cvs diff' and `cvs update' behave better. I
use these both from the command line and from Didier's patcher.el. [and I
develop entirely on Windows! The scripts therefore are well-tested on this
platform.] They are based on scripts written by Martin, but extensively hacked
by me.
You also need cvs-mods for the scripts to work.
Here are the descriptions:
cvs-diff:
Front end to \`cvs diff'.
Does the following in addition to a simple \`cvs diff':
-- removes ChangeLog diffs from the diff output, and (unless -no-changelog
was specified) prepends the entries to the beginning of the diff. This
is useful for submitting a diff to the maintainers.
-- removes the generated files auto-autoloads.el, custom-load.el, depend,
and configure from the output.
-- fixes CVS bug when specifying files to diff in multiple directories.
-- hacks the line used by `patch' to contain the directory relative to
the workspace root, so you can easily apply this patch to another
workspace.
cvs-update:
Front end to \`cvs update'.
Does the following in addition to a simple \`cvs update':
-- if the tree was checked out R/W using \`checkout -w', keep it that way.
-- if configure or configure.in are checked out, rerun autoconf.
-- when updating ChangeLogs, automatically resolve conflicts.
-- output a list of conflicting files at the end.
--
ben
I'm sometimes slow in getting around to reading my mail, so if you
want to reach me faster, call 520-661-6661.
See http://www.666.com/ben/chronic-pain/ for the hell I've been
through.
: #-*- Perl -*-
eval 'exec perl -w -S $0 ${1+"$＠"}' # Portability kludge
if 0;
### cvs-update --- front end to `cvs update'
## Copyright (C) 2001 Ben Wing.
## Author: Ben Wing <ben(a)xemacs.org>, Martin Buchholz <martin(a)xemacs.org>
## Original Author: Martin Buchholz <martin(a)xemacs.org>
## Maintainer: Ben Wing <ben(a)xemacs.org>
## This file is part of XEmacs.
## XEmacs is free software; you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2, or (at your option)
## any later version.
## XEmacs is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
## General Public License for more details.
## You should have received a copy of the GNU General Public License
## along with XEmacs; see the file COPYING. If not, write to the Free
## Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
## 02111-1307, USA.
use strict;
use File::stat;
(my $myName = $0) =~ s＠.*/＠＠; my $usage="
Usage: $myName [cvs-update-args ...]
Front end to \`cvs update'.
Does the following in addition to a simple \`cvs update':
-- if the tree was checked out R/W using \`checkout -w', keep it that way.
-- if configure or configure.in are checked out, rerun autoconf.
-- when updating ChangeLogs, automatically resolve conflicts.
-- output a list of conflicting files at the end.
";
die $usage if grep (/^--help$/, ＠ARGV);
my $debug = defined $ENV{VERBOSE} || defined $ENV{DEBUG};
die "Not a CVS directory tree.\n" unless -d "CVS";
# Check the read/writeness of the first plain file in the current directory.
opendir (DOT, ".") or die "opendir: $!";
my $rw;
while (my $file = readdir (DOT)) {
if (-f $file) {
$rw = -w $file ? "-w" : "-r";
print "Using r/w flag $rw\n" if $debug;
last;
}
}
die "Can't find any regular files here!\n" if !defined $rw;
# this construct forks a subprocess, with the parent reading the
# child's output and the child executing the code within braces.
if (!open (CVS, "-|"))
{
open STDERR, ">&STDOUT";
exec 'cvs', $rw, '-q', 'update', ＠ARGV;
}
my ＠conflicts = ();
while (<CVS>) {
print;
chomp;
my ($code, $file) = split(' ');
next unless grep ($code eq $_, qw(U P M C));
next unless -r $file;
my ($dirname, $basename) = &ParsePath ($file);
if ($basename eq 'ChangeLog' && $code eq 'C') {
print "Automatically resolving conflict in $file\n";
my $contents = &FileContents ($file);
# Resolve conflicts in the obvious way...
if ($contents =~
s/^<{7} \S+\n((?:.*\n)*?)={7}\n((?:.*\n)*?)>{7} \S+\n/$1$2/mg) {
open (FILE, "> $file") or die "$file: $!\n";
# the following was `sleep 1', but i still occasionally saw
# spurious "cvs server: file `lisp/ChangeLog' had a conflict and
# has not been modified" errors
sleep 2; # CVS will get confused if we resolve the conflict too `quickly'.
print FILE $contents or die "$file: $!\n";
close FILE or die "$file: $!\n";
} else {
print "WARNING: Unexpected resolution error in $file\n";
push ＠conflicts, $file;
}
} elsif ($code eq 'C') {
push ＠conflicts, $file;
}
if ($rw eq '-w' && ($basename eq 'configure' ||
$basename eq 'configure.in')) {
system "set +x; cd $dirname && autoconf && lib-src/config.values.sh";
}
}
if (＠conflicts) {
print "\n\nThe following files had merge conflicts:\n\n";
print (join '\n', ＠conflicts);
}
sub ParsePath {
my $pos = rindex ($_[0], "/");
return ($pos > 0 ? (substr ($_[0], 0, $pos), substr ($_[0], $pos+1)) :
$pos == -1 ? ('.', $_[0]) :
("/", substr ($_[0], 1)));
}
sub FileContents {
local $/ = undef;
open (FILE, "< $_[0]") or die "$_[0]: $!";
my $retval = scalar <FILE>;
# must hack away CRLF junk.
$retval =~ s/\r\n/\n/g;
return $retval;
}
: #-*- Perl -*-
eval 'exec perl -w -S $0 ${1+"$＠"}' # Portability kludge
if 0;
### cvs-mods --- list all modified files in a CVS tree, w/o server access
## Copyright (C) 2001 Ben Wing.
## Author: Ben Wing <ben(a)xemacs.org>, Martin Buchholz <martin(a)xemacs.org>
## Original Author: Martin Buchholz <martin(a)xemacs.org>
## Maintainer: Ben Wing <ben(a)xemacs.org>
## This file is part of XEmacs.
## XEmacs is free software; you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2, or (at your option)
## any later version.
## XEmacs is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
## General Public License for more details.
## You should have received a copy of the GNU General Public License
## along with XEmacs; see the file COPYING. If not, write to the Free
## Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
## 02111-1307, USA.
use strict;
use File::stat;
(my $myName = $0) =~ s＠.*/＠＠; my $usage="
Usage: $myName [-v] [--help] [dir|file ...]
Finds and outputs all modified CVS files specified on the command line
or within directory trees specified on the command line. This does not
contact the CVS server, so it is very fast, and is useful to speed up
other CVS-based scripts.
";
my $verbose = 0;
while (＠ARGV && ($_ = $ARGV[0], /^-/)) {
shift;
last if /^--$/;
if (/^-v$/) { $verbose = 1; }
if (/^--help$/) { die $usage; }
}
sub ParsePath {
my $pos = rindex ($_[0], "/");
return ($pos > 0 ? (substr ($_[0], 0, $pos), substr ($_[0], $pos+1)) :
$pos == -1 ? ('.', $_[0]) :
("/", substr ($_[0], 1)));
}
sub CheckModified {
return unless $_[0] =~ m:^/:;
my ($name, $revision, $timestamp) = (split('/', $_[0]))[1,2,3];
my $file = "$_[1]/$name";
$file =~ s:^\./::;
if (! -e $file) {
print "Removed: " if $verbose;
print "$file\n";
} else {
my $file_timestamp = scalar gmtime (stat($file)->mtime);
return if $timestamp eq $file_timestamp; # Unchanged
print "Modified: " if $verbose;
print "$file\n";
}
}
＠ARGV = ('.') if (! ＠ARGV);
while (my $arg = shift ＠ARGV) {
if (-d $arg) {
die "Not a CVS directory tree.\n" unless -d "$arg/CVS";
open(FIND, "find $arg -type d -print |") or die "$!";
while (<FIND>) {
chomp (my $dir = $_);
my $entries = "$dir/CVS/Entries";
next unless -r "$entries";
open (ENTRIES, "$entries") or die "$!";
while (<ENTRIES>) {
&CheckModified ($_, $dir);
}
close (ENTRIES);
}
close (FIND);
} else {
my ($dir, $file) = &ParsePath ($arg);
my $entries = "$dir/CVS/Entries";
next unless -r "$entries";
open (ENTRIES, "$entries") or die "$!";
while (<ENTRIES>) {
&CheckModified ($_, $dir) if m:^/$file/:;
}
close (ENTRIES);
}
}
: #-*- Perl -*-
eval 'exec perl -w -S $0 ${1+"$＠"}' # Portability kludge
if 0;
### cvs-diff --- front end to `cvs diff'
## Copyright (C) 2001 Ben Wing.
## Author: Ben Wing <ben(a)xemacs.org>, Martin Buchholz <martin(a)xemacs.org>
## Original Author: Martin Buchholz <martin(a)xemacs.org>
## Maintainer: Ben Wing <ben(a)xemacs.org>
## This file is part of XEmacs.
## XEmacs is free software; you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2, or (at your option)
## any later version.
## XEmacs is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
## General Public License for more details.
## You should have received a copy of the GNU General Public License
## along with XEmacs; see the file COPYING. If not, write to the Free
## Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
## 02111-1307, USA.
use strict;
use Cwd;
use Getopt::Long;
(my $myName = $0) =~ s＠.*/＠＠; my $usage="
Usage: $myName [-no-changelog] [diff-arg ...] [files ...]
Front end to \`cvs diff'.
Does the following in addition to a simple \`cvs diff':
-- removes ChangeLog diffs from the diff output, and (unless -no-changelog
was specified) prepends the entries to the beginning of the diff. This
is useful for submitting a diff to the maintainers.
-- removes the generated files auto-autoloads.el, custom-load.el, depend,
and configure from the output.
-- fixes CVS bug when specifying files to diff in multiple directories.
-- hacks the line used by `patch' to contain the directory relative to
the workspace root, so you can easily apply this patch to another
workspace.
";
my $debug = defined $ENV{VERBOSE} || defined $ENV{DEBUG};
sub ParsePath {
my $pos = rindex ($_[0], "/");
return ($pos > 0 ? (substr ($_[0], 0, $pos), substr ($_[0], $pos+1)) :
$pos == -1 ? ('.', $_[0]) :
("/", substr ($_[0], 1)));
}
# Find the current directory relative to the root of the CVS workspace.
die "Not a CVS directory tree.\n" unless -d "CVS";
my $root = cwd ();
my $rootrel = "";
while (-d "$root/../CVS") {
($root, my $root_component) = ParsePath ($root);
$rootrel = "$root_component/$rootrel";
}
my ＠SAVE_ARGV = ＠ARGV;
# Extract out our own and all diff options so that we can reliably get
# the actual files to `cvs diff'.
my %options = ();
&GetOptions (
\%options,
# our own options
'no-changelog',
# diff options
'l', 'R', 'D=s', 'N', 'r=s', 'ifdef=s',
'i', 'ignore-case',
'w', 'ignore-all-space',
'b', 'ignore-space-change',
'B', 'ignore-blank-lines',
'I=s', 'ignore-matching-lines=s',
'binary',
'a', 'text',
'c', 'C=i', 'context:i',
'u', 'U=i', 'unified:i',
'0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
'L=s', 'label=s',
'p', 'show-c-function',
'F=s', 'show-function-line=s',
'q', 'brief',
'e', 'ed',
'n', 'rcs',
'y', 'side-by-side',
'w=i', 'width=i',
'left-column',
'suppress-common-lines',
'DNAME', 'ifdef=s',
'old-group-format=s',
'new-group-format=s',
'unchanged-group-format=s',
'changed-group-format=s',
'line-format=s',
'old-line-format=s',
'new-line-format=s',
'unchanged-line-format=s',
'l', 'paginate',
't', 'expand-tabs',
'T', 'initial-tab',
'r', 'recursive',
'N', 'new-file',
'P', 'unidirectional-new-file',
's', 'report-identical-files',
'x=s', 'exclude=s',
'X=s', 'exclude-from=s',
'S=s', 'starting-file=s',
'horizon-lines=i',
'd', 'minimal',
'H', 'speed-large-files',
'v', 'version',
'help',
);
die $usage if $options{"help"};
# extract options, but eliminate --no-changelog
my ＠OPTIONS = grep (!/(-|--|\+)no-changelog/,
＠SAVE_ARGV[0 .. (＠SAVE_ARGV - ＠ARGV - 1)]);
# print "ARGV: ＠ARGV\n";
# print "SAVE_ARGV: ＠SAVE_ARGV\n";
# print "OPTIONS: ＠OPTIONS\n";
select(STDOUT); $| = 1;
# now output the ChangeLogs.
＠ARGV = ('.') if (! ＠ARGV);
if (!$options{"no-changelog"}) {
foreach my $file (＠ARGV) {
if (-d $file) {
chomp (my ＠changelogs = `find $file -name ChangeLog -print`);
foreach my $changelog (＠changelogs) {
# use cvs-mods to filter out non-modified ChangeLogs; this greatly
# speeds things up
if (`cvs-mods $changelog`) {
print "Checking $changelog\n";
open (CHANGELOG, "cvs diff -w ＠OPTIONS $changelog | sed -n 's/^\+//p' | grep -v '^\\+\\+\\+' |");
if (my ＠slurp = <CHANGELOG>) {
print "\n$changelog:\n\n";
print ＠slurp;
}
}
close (CHANGELOG);
}
}
}
}
print "\n";
# this construct forks a subprocess, with the parent reading the
# child's output and the child executing the code within braces.
if (!open (CVS, "-|"))
{
open STDERR, ">&STDOUT";
# cvs has an evil bug that if I give a list of files containing
# both files in the current directory and in subdirectories, cvs
# ignores the files in the current directory. simplest just to
# call `cvs diff' once per file.
foreach my $file (＠ARGV) {
# do not use -w option here by default -- explicitly specify it if
# you want it. Otherwise, you end up with output that looks right
# but will fail in all sorts of random ways if you try to use
# `patch' with it. Furthermore, it doesn't actually make the output
# much (if any) shorter in most cases.
die "Can't exec ＠_: $!\n" if system ('cvs', 'diff', ＠OPTIONS, $file) < 0;
}
exit 0;
}
my $file;
my $print = 1;
while (<CVS>) {
# track files as they go by.
if (/^Index: (.*)/) {
$file = $1;
# look for files to remove.
$print = !($file =~ /(ChangeLog|auto-autoloads.el|custom-load.el|depend|configure)$/);
}
# hack patch file lines to include the directory.
s!^(---|\+\+\+) (\S+)!$1 $rootrel$file!;
print if $print;
}
- 1 participants
- 0 comments
Unsubscribing issues
23 years, 9 months
Robert M. Zigweid
Robert M. Zigweid
Hate to post this to this list, but I got no response after waiting two
weeks trying to mail xemacs-beta-admin.
Mailman is ignoring the argument that it says that it will take wrt to
unsubscribing.
The following is a partial transcript of the Mailman response (which
shows that it's ignoring some of what its supposed to be using according
to the help)
----
The following is a detailed description of the problems.
***** unsubscribe tigran(a)list.org
>>>>> tigran(a)internation.co.uk is not subscribed to this list.
----
This problem really should be rectified. In the meantime, please remove
me from the xemacs-beta list.
Thank you for your time and cooperation
Robert M. Zigweid
- 2 participants
- 1 comments
gnuclient screwage?
23 years, 9 months
Valdis Kl=?iso8859-4?Q?=BA?=tnieks
Valdis Kl=?iso8859-4?Q?=BA?=tnieks
OK.. This may or may not be a bug, but it certainly needs to at least
be documented..
Scenario:
Launch 'xemacs' and load gnuserv-start from .xession, with no TMPDIR
environment variable set. So gnuserv opens /tmp/gsrvdir967/gsrv as the
socket to use.
Another program (exmh) then tries to launch 'gnuclient' - but exmh
has set TMPDIR to /tmp/valdis. So it tries to open /tmp/valdis/gsrvdir/gsrv
and promptly loses.
I had to read the source for lib-src/gnuslib.c (in connect_to_unix_server()
to figure out what was going on. 'info gnuclient' says this:
UNIX-DOMAIN SOCKETS
A Unix-domain socket is used to communicate between gnu
client and gnuserv if the symbol UNIX_DOMAIN_SOCKETS is
defined at the top of gnuserv.h. A file called
/tmp/gsrvdir????/gsrv is created for communication and if
deleted will cause communication between server and client
to fail. Only the user running gnuserv will be able to
connect to the socket.
Hm.. No mention of TMPDIR as an environment variable there...
So - who wants to make the call? Fix the docs to match the code, or
fix the code to match the docs? I'll accept either one, as long as
they agree ;)
--
Valdis Kletnieks
Operating Systems Analyst
Virginia Tech
- 4 participants
- 4 comments
*Help* with hyperlinks
23 years, 9 months
Jerry James
Jerry James
In the recent thread "gnu emacs verses xemacs [sic]" on comp.emacs, I
listed off several ways in which I consider XEmacs to be superior to
Emacs. (Yes, I seem to be turning into an XEmacs elitist. I wonder how
that happened?) When one of the Emacs developers claimed that Emacs was
"just better", I asked him for something concrete to consider.
One of the only two concrete responses I got [1] was that Emacs has
hyperlinks in *Help* buffers, but XEmacs doesn't. Well, we can't have
that, can we? Over the weekend, I looked at how Emacs implemented the
hyperlinks. I didn't like it. (I *told* you I was turning into an
XEmacs elitist!)
It looked to me like the capabilities of view-less would make it much
easier to do this than it is in Emacs. Attached is the result of my
effort. I've used it for awhile today and it hasn't exploded yet. Give
it a whirl. If it doesn't explode for anybody else either, I'll submit
a patch.
Note that I rearranged some stuff and made some trivial alterations from
the existing help.el in order to reduce the size of the diff with Emacs'
help.el, in an attempt to make future synchs easier.
Notes:
[1] For those who are curious, the only other concrete response I got
was that Emacs has transparent data types, but XEmacs has opaque
data types. I'm not even convinced that this is accurate, much less
an advantage for Emacs, the ensuing discussion on comp.emacs
notwithstanding.
--
Jerry James, who will get back to studying the module code now that that
itch has been scratched
- 4 participants
- 6 comments
Am I getting through?
23 years, 9 months
Glynn Clements
Glynn Clements
Are any of my emails to xemacs-beta getting out?
I'm not getting them back, and I haven't seen anything (e.g. a reply)
to suggest that anyone else is getting them either.
However, browsing the list archive at:
http://list-archive.xemacs.org/xemacs-beta/
suggests that my posts are being received, in that they appear in the
web archive.
--
Glynn Clements <glynn(a)sensei.co.uk>
- 1 participants
- 0 comments
ediff vs dired
23 years, 9 months
Katsumi Yamaoka
Katsumi Yamaoka
Hi,
The command `ediff-buffers' or `ediff-files' does not work when the
dired buffer for "/tmp/" is open. It may not be a bug because there
is a way to avoid the problem. For example, I can achieve it using
the function definition as such as follows:
(defun ediff-file-remote-p (file-name)
(let ((handler (find-file-name-handler file-name 'file-local-copy)))
(and handler (not (eq handler 'dired-handler-fn)))))
However, I could not find out any descriptions about it in manuals
except for a comment in ediff-init.el.
--
Katsumi Yamaoka <yamaoka(a)jpl.org>
- 2 participants
- 2 comments
Latest cvs hangs while Compiling auto-autoloads.el (was: NT: I need build reports for GTK/XEmacs)
23 years, 9 months
Dmitry Yaitskov
Dmitry Yaitskov
David Bush <David.Bush(a)Dialogic.com> wrote:
> Dima,
>
> Did your regular build need to recompile the lisp files? I'm trying
> to compare to my situation. I can build from a tarball where the lisp
> files come precompiled, but I can't from CVS where there is only the
> source. I seem the same hang as you in any tree checked out from
> CVS.
It seems that the "Compiling auto-autoloads.el..." problem is not
related to gtk, rather to the latest sources in cvs common to gtk and
non-gtk. I updated from cvs today, and now I have the same problem in
my regular build (and I did a make realclean before the build, so it
did have to recompile lisp files I think).
Anybody knows how to fix this? Advice would be appreciated.
> thanks,
> david
>
>
--
Cheers,
-Dima.
- 1 participants
- 0 comments
MS-Windows XEmacs doesn't see fonts with a number in the font name
23 years, 9 months
Konstantin Malakhanov
Konstantin Malakhanov
This bug report will be sent to the XEmacs Development Team,
not to your local site managers!!
Please write in English, because the XEmacs maintainers do not have
translators to read other languages for them.
In XEmacs 21.2 (beta40) "Persephone" [Lucid] (i586-pc-win32) of Tue Jan 16 2001 on NEVERYON
configured using `configure UNKNOWN'
Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:
I have a couple of fonts with numbers in the font face, like
"Monospac821 BT". Because of mswindows-font-regexp, they are skipped
over. Changing (fontname "\\([a-zA-Z0-9 ]+\\)") in the
mswindows-font-regexp definition hopefully fix it.
Recent keystrokes:
misc-user misc-user misc-user misc-user misc-user misc-user
button1 button1up 0 - 9 button1 button1up C-x C-e C-x
C-s C-x b RET C-x b * s c TAB RET button1 button1up
C-j C-x b RET misc-user misc-user misc-user misc-user
misc-user misc-user misc-user misc-user misc-user misc-user
misc-user misc-user C-x b * s c TAB RET button1 button1up
prior prior prior prior prior prior button1 button1up
C-j q C-x 2 C-x b RET ESC C-x button1 button1up C-j
misc-user misc-user misc-user button1 button1up C-x
1 misc-user C-x b m s TAB o TAB RET C-x b m TAB TAB
a TAB RET misc-user misc-user
Recent messages (most recent first):
Loading mail-abbrevs...
Loading mail-extr...done
Loading mail-extr...
Loading emacsbug...done
Loading emacsbug...
Wrote c:\programme\xemacs\XEmacs-21.2\lisp\msw-faces.elc
Compiling c:\programme\xemacs\XEmacs-21.2\lisp\msw-faces.el...done
Compiling msw-faces.el... (mswindows-find-larger-font)
Compiling msw-faces.el... (mswindows-find-smaller-font)
Compiling msw-faces.el... (mswindows-make-font-bold-italic)
--
Konstantin Malakhanov
ISOWARE GmbH, Feithstr. 142, 58097 Hagen, Germany
email: km(a)isoware.de Tel: 02331/8019-71 FAX: 02331/8019-99
- 1 participants
- 0 comments
speedbar-1.19-pkg.tar.gz still hs problems with sb-w3
23 years, 9 months
Dr. Volker Zell
Dr. Volker Zell
Hi Steve
There is still a problem with speedbar-1.19-pkg.tar.gz and loading a html file in w3.
Loading sb-w3...
Loading sb-w3...done
DFRAME TIMER ERROR: (wrong-type-argument hash-table-p nil)
sb-info.el works now by the way.
Ciao
Volker
- 2 participants
- 1 comments