File xemacs-packages.patch of Package xemacs-packages
diff -Nru packages.orig/xemacs-packages/bbdb/utils/bbdb-cid.pl packages/xemacs-packages/bbdb/utils/bbdb-cid.pl
--- packages.orig/xemacs-packages/bbdb/utils/bbdb-cid.pl 1998-10-12 17:36:10.000000000 +0200
+++ packages/xemacs-packages/bbdb/utils/bbdb-cid.pl 2004-12-23 15:20:22.742752974 +0100
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5 -w
+#!/usr/bin/perl -w
#
# Caller-ID-logger, by jwz (19-Jan-97)
# Modified: 24-Apr-97
diff -Nru packages.orig/xemacs-packages/bbdb/utils/bbdb-srv.pl packages/xemacs-packages/bbdb/utils/bbdb-srv.pl
--- packages.orig/xemacs-packages/bbdb/utils/bbdb-srv.pl 1999-11-27 21:49:45.000000000 +0100
+++ packages/xemacs-packages/bbdb/utils/bbdb-srv.pl 2004-12-23 15:20:22.747751944 +0100
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
# This script reads a block of message headers on stdin, and converts them
# to an emacs-lisp string (quoting all dangerous characters) and then
diff -Nru packages.orig/xemacs-packages/bbdb/utils/bbdb-unlazy-lock.pl packages/xemacs-packages/bbdb/utils/bbdb-unlazy-lock.pl
--- packages.orig/xemacs-packages/bbdb/utils/bbdb-unlazy-lock.pl 1998-10-12 17:36:10.000000000 +0200
+++ packages/xemacs-packages/bbdb/utils/bbdb-unlazy-lock.pl 2004-12-23 15:20:22.752750914 +0100
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
#
# Author: Christopher Kline <ckline@media.mit.edu>
#
diff -Nru packages.orig/xemacs-packages/calc/calc-ext.el packages/xemacs-packages/calc/calc-ext.el
--- packages.orig/xemacs-packages/calc/calc-ext.el 1998-02-10 19:25:14.000000000 +0100
+++ packages/xemacs-packages/calc/calc-ext.el 2004-12-23 15:20:22.769747412 +0100
@@ -19,7 +19,7 @@
;; file named COPYING. Among other things, the copyright notice
;; and this notice must be preserved on all copies.
-
+(require 'calc)
(provide 'calc-ext)
diff -Nru packages.orig/xemacs-packages/calc/calc.el packages/xemacs-packages/calc/calc.el
--- packages.orig/xemacs-packages/calc/calc.el 2004-12-23 12:51:04.000000000 +0100
+++ packages/xemacs-packages/calc/calc.el 2004-12-23 15:20:22.784744323 +0100
@@ -64,7 +64,7 @@
;;; "report-calc-bug", and "defmath". User-accessible variables begin
;;; with "var-".
-
+(require 'calc-macs)
(provide 'calc)
diff -Nru packages.orig/xemacs-packages/edit-utils/paren.el packages/xemacs-packages/edit-utils/paren.el
--- packages.orig/xemacs-packages/edit-utils/paren.el 1998-10-10 15:59:43.000000000 +0200
+++ packages/xemacs-packages/edit-utils/paren.el 2004-12-23 15:20:22.788743499 +0100
@@ -145,7 +145,7 @@
"*If the cursor is on a parenthesis, the matching parenthesis will blink.
This variable controls how long each phase of the blink lasts in seconds.
This should be a fractional part of a second (a float.)"
- :type 'number
+ :type '(choice (const nil) number)
:group 'paren-matching)
(defcustom paren-max-blinks (* 5 60 5) ; 5 minutes is plenty...
diff -Nru packages.orig/xemacs-packages/gnats/lib-src/install-sid packages/xemacs-packages/gnats/lib-src/install-sid
--- packages.orig/xemacs-packages/gnats/lib-src/install-sid 1998-10-13 04:52:00.000000000 +0200
+++ packages/xemacs-packages/gnats/lib-src/install-sid 2004-12-23 15:20:22.793742469 +0100
@@ -29,6 +29,14 @@
SUBMITTER=
TEMP=/tmp/sp$$
+rm -f $TEMP
+if test -e $TEMP ; then
+ echo "$0: $TEMP already exists." 1>&2
+ exit 1
+fi
+if test -n "`type -p mktemp`" ; then
+ TEMP="`mktemp ${TEMP}.XXXXXX`" || exit 1
+fi
if [ $# -eq 0 ]; then
echo "$USAGE"
diff -Nru packages.orig/xemacs-packages/gnats/lib-src/send-pr packages/xemacs-packages/gnats/lib-src/send-pr
--- packages.orig/xemacs-packages/gnats/lib-src/send-pr 1998-10-13 04:52:01.000000000 +0200
+++ packages/xemacs-packages/gnats/lib-src/send-pr 2004-12-23 15:20:22.797741645 +0100
@@ -76,18 +76,25 @@
#
-if [ -z "$TMPDIR" ]; then
- TMPDIR=/tmp
-else
- if [ "`echo $TMPDIR | grep '/$'`" != "" ]; then
- TMPDIR="`echo $TMPDIR | sed -e 's,/$,,'`"
- fi
+: ${TMPDIR=/tmp}
+TMPDIR=${TMPDIR%/}/send-pr.$$
+# make sort secure
+export TMPDIR
+
+mkdir $TMPDIR
+if [ $? -ne 0 -o ! -d $TMPDIR ] ; then
+ echo "$0: Cannot create clean directory ${TMPDIR}." 1>&2
+ exit 1
fi
-
TEMP=$TMPDIR/p$$
BAD=$TMPDIR/pbad$$
REF=$TMPDIR/pf$$
+# Catch some signals. ($xs kludge needed by Sun /bin/sh)
+xs=0
+trap 'rm -rf $TMPDIR; exit $xs' 0
+trap 'echo "$COMMAND: Aborting ..."; rm -rf $TMPDIR; xs=1; exit' 1 2 3 13 15
+
# find a user name
if [ "$LOGNAME" = "" ]; then
if [ "$USER" != "" ]; then
@@ -265,11 +272,6 @@
HOW_TO_REPEAT_C='<code/input/activities to reproduce the problem (multiple lines)>'
FIX_C='<how to correct or work around the problem, if known (multiple lines)>'
-# Catch some signals. ($xs kludge needed by Sun /bin/sh)
-xs=0
-trap 'rm -f $REF $TEMP; exit $xs' 0
-trap 'echo "$COMMAND: Aborting ..."; rm -f $REF $TEMP; xs=1; exit' 1 2 3 13 15
-
# If they told us to use a specific file, then do so.
if [ -n "$IN_FILE" ]; then
if [ "$IN_FILE" = "-" ]; then
diff -Nru packages.orig/xemacs-packages/ispell/ispell.el packages/xemacs-packages/ispell/ispell.el
--- packages.orig/xemacs-packages/ispell/ispell.el 2004-01-14 06:35:57.000000000 +0100
+++ packages/xemacs-packages/ispell/ispell.el 2004-12-23 15:20:22.803740409 +0100
@@ -523,7 +523,7 @@
;;; First part of dictionary, shortened for loaddefs.el
;;;###autoload
-(setq
+(defvar
ispell-dictionary-alist-1
'((nil ; default (English.aff)
"[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil iso-8859-1)
@@ -547,7 +547,7 @@
;;; Second part of dictionary, shortened for loaddefs.el
;;;###autoload
-(setq
+(defvar
ispell-dictionary-alist-2
'(("czech"
"[A-Za-z\301\311\314\315\323\332\331\335\256\251\310\330\317\253\322\341\351\354\355\363\372\371\375\276\271\350\370\357\273\362]"
@@ -568,7 +568,7 @@
;;; Third part of dictionary, shortened for loaddefs.el
;;;###autoload
-(setq
+(defvar
ispell-dictionary-alist-3
'(("esperanto"
"[A-Za-z\246\254\266\274\306\330\335\336\346\370\375\376]"
@@ -587,7 +587,7 @@
;;; Fourth part of dictionary, shortened for loaddefs.el
;;;###autoload
-(setq
+(defvar
ispell-dictionary-alist-4
'(("francais-tex" ; Francais.aff
"[A-Za-z\300\302\306\307\310\311\312\313\316\317\324\331\333\334\340\342\347\350\351\352\353\356\357\364\371\373\374\\]"
@@ -609,7 +609,7 @@
;;; Fifth part of dictionary, shortened for loaddefs.el
;;;###autoload
-(setq
+(defvar
ispell-dictionary-alist-5
'(("norsk" ; 8 bit Norwegian mode
"[A-Za-z\305\306\307\310\311\322\324\330\345\346\347\350\351\362\364\370]"
@@ -630,7 +630,7 @@
;;; Sixth part of dictionary, shortened for loaddefs.el
;;;###autoload
-(setq
+(defvar
ispell-dictionary-alist-6
;; include Russian iso coding system too?
;; "[']" t ("-d" "russian") "~latin1" iso-8859-1
@@ -720,12 +720,12 @@
(const koi8-r))))
:group 'ispell)
-;;; update the dictionaries at load time
-(setq ispell-dictionary-alist
- (append ispell-local-dictionary-alist ; dictionary customizations
- ispell-dictionary-alist-1 ispell-dictionary-alist-2
- ispell-dictionary-alist-3 ispell-dictionary-alist-4
- ispell-dictionary-alist-5 ispell-dictionary-alist-6))
+;; ;;; update the dictionaries at load time
+;; (setq ispell-dictionary-alist
+;; (append ispell-local-dictionary-alist ; dictionary customizations
+;; ispell-dictionary-alist-1 ispell-dictionary-alist-2
+;; ispell-dictionary-alist-3 ispell-dictionary-alist-4
+;; ispell-dictionary-alist-5 ispell-dictionary-alist-6))
diff -Nru packages.orig/xemacs-packages/speedbar/speedbar.el packages/xemacs-packages/speedbar/speedbar.el
--- packages.orig/xemacs-packages/speedbar/speedbar.el 2002-11-28 18:42:20.000000000 +0100
+++ packages/xemacs-packages/speedbar/speedbar.el 2004-12-23 15:20:22.810738967 +0100
@@ -1578,11 +1578,11 @@
(setq speedbar-show-unknown-files (not speedbar-show-unknown-files))
(speedbar-refresh))
+(put 'speedbar-with-writable 'lisp-indent-function 0)
(defmacro speedbar-with-writable (&rest forms)
"Allow the buffer to be writable and evaluate FORMS."
(list 'let '((inhibit-read-only t))
(cons 'progn forms)))
-(put 'speedbar-with-writable 'lisp-indent-function 0)
(defun speedbar-insert-button (text face mouse function
&optional token prevline)
diff -Nru packages.orig/xemacs-packages/tm/lib-src/pstogif packages/xemacs-packages/tm/lib-src/pstogif
--- packages.orig/xemacs-packages/tm/lib-src/pstogif 1999-11-29 18:24:24.000000000 +0100
+++ packages/xemacs-packages/tm/lib-src/pstogif 2004-12-23 15:20:22.815737937 +0100
@@ -45,6 +45,15 @@
#
#####################################################################
+my $depth = 24;
+my $papersize = "a4";
+my $scale = 1;
+
+my %options = ("color depth" => \$depth,
+ "papersize" => \$papersize,
+ "scale factor" => \$scale,
+);
+
$| =1;
&read_args;
@@ -65,20 +74,20 @@
# Also in PBMPLUS
$PNMFLIP=$ENV{'PNMFLIP'} || 'pnmflip' ;
-# Also in PBMPPLUS
+# Also in PBMPPLUS
$PPMTOGIF=$ENV{'PPMTOGIF'} || 'ppmtogif' ;
# Also in PBMPPLUS
$REDUCE_COLOR=$ENV{'PPMQUANT'} || 'ppmquant 256' ;
$OUTFILE = $ENV{'OUTFILE'} || $out;
-
+
# Valid choices for $COLOR_DEPTH are 1, 8 or 24.
$DEPTH = $ENV{'DEPTH'} || $depth || 24;
#Default density is 72
$DENSITY = $ENV{'DENSITY'} || $density || 72;
-
+
# Valid choices are any numbers greater than zero
# Useful choices are numbers between 0.1 - 5
# Large numbers may generate very large intermediate files
@@ -131,6 +140,7 @@
local($tmp) = $in . ".tmp";
open(STDERR, ">/dev/null") unless $DEBUG;
+ unlink $tmp;
if ($flip) {
rename($tmp, $in) unless system("$PNMFLIP -$flip $in > $tmp");
}
diff -Nru packages.orig/xemacs-packages/tm/lib-src/tm-au packages/xemacs-packages/tm/lib-src/tm-au
--- packages.orig/xemacs-packages/tm/lib-src/tm-au 1998-10-13 04:50:00.000000000 +0200
+++ packages/xemacs-packages/tm/lib-src/tm-au 2004-12-23 15:20:22.819737113 +0100
@@ -28,6 +28,10 @@
if [ "$5" = "" ]; then
filename="$TM_TMP_DIR/mime$$.au"
+ rm -f $filename
+ if [ -n "`type -p mktemp`" ] ; then
+ filename="`mktemp ${filename}.XXXXXX`" || exit 1
+ fi
else
filename="$TM_TMP_DIR/$5"
fi
@@ -35,6 +39,8 @@
case "$4" in
"play")
+ trap 'rm -f $filename' 0 1 2 3 13 15
+
echo "$2; $3 ->"
tmdecode $3 $1 $filename
if [ "$AUDIOSERVER" = "" ]; then
@@ -46,8 +52,6 @@
else
autool -v 40 $filename
fi
-
- trap 'rm -f $filename' 0 1 2 3 13 15
;;
"extract")
echo "$2; $3 -> $filename"
diff -Nru packages.orig/xemacs-packages/tm/lib-src/tm-file packages/xemacs-packages/tm/lib-src/tm-file
--- packages.orig/xemacs-packages/tm/lib-src/tm-file 1998-10-13 04:50:00.000000000 +0200
+++ packages/xemacs-packages/tm/lib-src/tm-file 2004-12-23 15:20:22.823736289 +0100
@@ -28,6 +28,10 @@
if [ "$5" = "" ]; then
filename="$TM_TMP_DIR/mime$$"
+ rm -f $filename
+ if [ -n "`type -p mktemp`" ] ; then
+ filename="`mktemp ${filename}.XXXXXX`" || exit 1
+ fi
else
filename="$TM_TMP_DIR/$5"
fi
diff -Nru packages.orig/xemacs-packages/tm/lib-src/tm-html packages/xemacs-packages/tm/lib-src/tm-html
--- packages.orig/xemacs-packages/tm/lib-src/tm-html 1998-10-13 04:50:00.000000000 +0200
+++ packages/xemacs-packages/tm/lib-src/tm-html 2004-12-23 15:20:22.827735465 +0100
@@ -33,6 +33,10 @@
if [ "$5" = "" ]; then
filename="$TM_TMP_DIR/mime$$.html"
+ rm -f $filename
+ if [ -n "`type -p mktemp`" ] ; then
+ filename="`mktemp ${filename}.XXXXXX`" || exit 1
+ fi
else
filename="$TM_TMP_DIR/$5"
fi
@@ -43,6 +47,8 @@
case "$4" in
"play")
+ trap 'rm -f $filename' 0 1 2 3 13 15
+
if [ `echo $TM_WWW_BROWSER | grep netscape` ]; then
echo netscape
if [ -h $HOME/.netscape/lock ]; then
@@ -54,7 +60,6 @@
echo not netscape
$TM_WWW_BROWSER $filename
fi
- trap 'rm -f $filename' 0 1 2 3 13 15
;;
"extract")
echo "extract to $filename"
diff -Nru packages.orig/xemacs-packages/tm/lib-src/tm-image packages/xemacs-packages/tm/lib-src/tm-image
--- packages.orig/xemacs-packages/tm/lib-src/tm-image 1998-10-13 04:50:00.000000000 +0200
+++ packages/xemacs-packages/tm/lib-src/tm-image 2004-12-23 15:20:22.832734435 +0100
@@ -52,6 +52,11 @@
filename="$TM_TMP_DIR/mime$$.img"
;;
esac
+ # Be secure
+ rm -f $filename
+ if [ -n "`type -p mktemp`" ] ; then
+ filename="`mktemp ${filename}.XXXXXX`" || exit 1
+ fi
else
filename="$TM_TMP_DIR/$5"
fi
@@ -62,8 +67,8 @@
case "$4" in
"play")
- xv -geometry +1+1 $filename
trap 'rm -f $filename' 0 1 2 3 13 15
+ xv -geometry +1+1 $filename
;;
"extract")
echo "extract to $filename"
diff -Nru packages.orig/xemacs-packages/tm/lib-src/tm-mpeg packages/xemacs-packages/tm/lib-src/tm-mpeg
--- packages.orig/xemacs-packages/tm/lib-src/tm-mpeg 1998-10-13 04:50:01.000000000 +0200
+++ packages/xemacs-packages/tm/lib-src/tm-mpeg 2004-12-23 15:20:22.836733611 +0100
@@ -27,6 +27,10 @@
fi
if [ "$5" = "" ]; then
filename="$TM_TMP_DIR/mime$$.mpg"
+ rm -f $filename
+ if [ -n "`type -p mktemp`" ] ; then
+ filename="`mktemp ${filename}.XXXXXX`" || exit 1
+ fi
else
filename="$TM_TMP_DIR/$5"
fi
@@ -37,12 +41,13 @@
case "$4" in
"play")
+ trap 'rm -f $filename' 0 1 2 3 13 15
+
if [ "$VIDEO_DITHER" = "" ]; then
VIDEO_DITHER=gray
export VIDEO_DITHER
fi
mpeg_play -dither $VIDEO_DITHER $filename
- trap 'rm -f $filename' 0 1 2 3 13 15
;;
"extract")
echo "extract to $filename"
diff -Nru packages.orig/xemacs-packages/tm/lib-src/tm-plain packages/xemacs-packages/tm/lib-src/tm-plain
--- packages.orig/xemacs-packages/tm/lib-src/tm-plain 1998-10-13 04:50:01.000000000 +0200
+++ packages/xemacs-packages/tm/lib-src/tm-plain 2004-12-23 15:20:22.841732581 +0100
@@ -27,12 +27,18 @@
fi
if [ "$5" = "" ]; then
filename="$TM_TMP_DIR/mime$$.pln"
+ rm -f $filename
+ if [ -n "`type -p mktemp`" ] ; then
+ filename="`mktemp ${filename}.XXXXXX`" || exit 1
+ fi
else
filename="$TM_TMP_DIR/$5"
fi
case "$4" in
"play")
+ trap 'rm -f $filename' 0 1 2 3 13 15
+
echo "$2; $3 ->"
tmdecode "$3" "$1" /dev/stdout
;;
@@ -42,6 +48,8 @@
tmdecode "$3" "$1" $filename
;;
"print")
+ trap 'rm -f $filename' 0 1 2 3 13 15
+
echo "$2; $3 ->"
tmdecode "$3" "$1" /dev/stdout | lpr
;;
diff -Nru packages.orig/xemacs-packages/tm/lib-src/tm-ps packages/xemacs-packages/tm/lib-src/tm-ps
--- packages.orig/xemacs-packages/tm/lib-src/tm-ps 1998-10-13 04:50:01.000000000 +0200
+++ packages/xemacs-packages/tm/lib-src/tm-ps 2004-12-23 15:20:22.846731551 +0100
@@ -27,16 +27,21 @@
fi
if [ "$5" = "" ]; then
filename="$TM_TMP_DIR/mime$$.pln"
+ rm -f $filename
+ if [ -n "`type -p mktemp`" ] ; then
+ filename="`mktemp ${filename}.XXXXXX`" || exit 1
+ fi
else
filename="$TM_TMP_DIR/$5"
fi
case "$4" in
"play")
+ trap 'rm -f $filename' 0 1 2 3 13 15
+
echo "$2; $3 -> $filename"
tmdecode $3 $1 $filename
ghostview $filename
- trap 'rm -f $filename' 0 1 2 3 13 15
;;
"extract")
echo "$2; $3 -> $filename"
@@ -44,6 +49,8 @@
tmdecode "$3" "$1" $filename
;;
"print")
+ trap 'rm -f $filename' 0 1 2 3 13 15
+
echo "$2; $3 ->"
tmdecode "$3" "$1" /dev/stdout | lpr
;;
diff -Nru packages.orig/xemacs-packages/tm/lib-src/tmdecode packages/xemacs-packages/tm/lib-src/tmdecode
--- packages.orig/xemacs-packages/tm/lib-src/tmdecode 1998-10-13 04:50:01.000000000 +0200
+++ packages/xemacs-packages/tm/lib-src/tmdecode 2004-12-23 15:20:22.850730727 +0100
@@ -19,6 +19,8 @@
# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
+set -C
+
PATH=${PATH:-/usr/bin:/bin}:`dirname $0 2>/dev/null`; export PATH
trap 'rm -f $2' 0 1 2 3 13 15
@@ -28,7 +30,7 @@
OUTPUT=
;;
*)
- OUTPUT='> $3'
+ OUTPUT='-o $3'
;;
esac
@@ -37,17 +39,18 @@
eval "cat $2 $OUTPUT"
;;
"base64")
- #eval "decode-b < $2 $OUTPUT"
- eval "mmencode -u $2 $OUTPUT"
+ eval "mmencode -u $OUTPUT $2"
;;
"quoted-printable")
- eval "mmencode -q -u $2 $OUTPUT"
+ eval "mmencode -q -u $OUTPUT $2"
;;
"x-uue"|"x-uuencode")
- (cd $TM_TMP_DIR ; uudecode $2)
+ # Does this work? Does the caller expects the name
+ # within the begin line?
+ "eval uudecode $OUTPUT $2"
;;
"x-gzip64")
- #eval "decode-b < $2 | gzip -cd $OUTPUT"
+ test -n "$OUTPUT" && OUTPUT='> $3'
eval "mmencode -u $2 | gzip -cd $OUTPUT"
;;
*)
diff -Nru packages.orig/xemacs-packages/tm/mel-u.el packages/xemacs-packages/tm/mel-u.el
--- packages.orig/xemacs-packages/tm/mel-u.el 1998-01-14 07:27:57.000000000 +0100
+++ packages/xemacs-packages/tm/mel-u.el 2004-12-23 15:20:22.855729697 +0100
@@ -36,8 +36,7 @@
(defvar uuencode-external-encoder '("uuencode" "-")
"*list of uuencode encoder program name and its arguments.")
-(defvar uuencode-external-decoder
- (list "sh" "-c" (format "(cd %s; uudecode)" mime-temp-directory))
+(defvar uuencode-external-decoder (list "uudecode" "-o")
"*list of uuencode decoder program name and its arguments.")
@@ -68,7 +67,7 @@
variable `uuencode-external-decoder'."
(interactive "*r")
(save-excursion
- (let ((filename (save-excursion
+ (let* ((filename (save-excursion
(save-restriction
(narrow-to-region start end)
(goto-char start)
@@ -76,7 +75,11 @@
(if (looking-at ".+$")
(buffer-substring (match-beginning 0)
(match-end 0))
- ))))))
+ )))))
+ (filename (make-temp-name (format "%s%s" mime-temp-directory
+ (file-name-nondirectory filename))))
+ (uuencode-external-decoder (append uuencode-external-decoder
+ (list (format "%s" filename)))))
(if filename
(as-binary-process
(apply (function call-process-region)
diff -Nru packages.orig/xemacs-packages/tm/tm-play.el packages/xemacs-packages/tm/tm-play.el
--- packages.orig/xemacs-packages/tm/tm-play.el 1998-01-14 07:27:57.000000000 +0100
+++ packages/xemacs-packages/tm/tm-play.el 2004-12-23 15:20:22.000000000 +0100
@@ -104,6 +104,8 @@
(get-unified-alist mime/content-decoding-condition al)
)
+(defmacro chmod (perms file)
+ (list 'call-process "chmod" nil nil nil perms file))
;;; @ external decoder
;;;
@@ -130,6 +132,8 @@
)
(goto-char b)
(write-region b end file)
+ (message (concat "Private file " file))
+ (chmod "0600" file)
(message "External method is starting...")
(setq cal (put-alist
'name (replace-as-filename name) cal))
diff -Nru packages.orig/xemacs-packages/viper/viper-ex.el packages/xemacs-packages/viper/viper-ex.el
--- packages.orig/xemacs-packages/viper/viper-ex.el 2003-05-18 19:57:25.000000000 +0200
+++ packages/xemacs-packages/viper/viper-ex.el 2004-12-23 15:20:22.885723517 +0100
@@ -1874,7 +1874,7 @@
(condition-case nil
(progn
(pop-to-buffer (get-buffer-create "*info*"))
- (info (if viper-xemacs-p "viper.info" "viper"))
+ (info (if viper-xemacs-p "/usr/share/xemacs/info/viper.info" "viper"))
(message "Type `i' to search for a specific topic"))
(error (beep 1)
(with-output-to-temp-buffer " *viper-info*"
diff -Nru packages.orig/xemacs-packages/w3/lisp/css.el packages/xemacs-packages/w3/lisp/css.el
--- packages.orig/xemacs-packages/w3/lisp/css.el 1999-11-27 16:37:18.000000000 +0100
+++ packages/xemacs-packages/w3/lisp/css.el 2004-12-23 15:20:22.890722487 +0100
@@ -199,8 +199,9 @@
(modify-syntax-entry ?' "\"" css-syntax-table)
(modify-syntax-entry ?` "\"" css-syntax-table)
-(modify-syntax-entry ?{ "(" css-syntax-table)
-(modify-syntax-entry ?} ")" css-syntax-table)
+(modify-syntax-entry ?{ "(}" css-syntax-table)
+(modify-syntax-entry ?} "){" css-syntax-table)
+(modify-syntax-entry ?\; "@" css-syntax-table)
(eval-when-compile
(defvar css-scratch-val nil)
diff -Nru packages.orig/xemacs-packages/w3/lisp/w3-menu.el packages/xemacs-packages/w3/lisp/w3-menu.el
--- packages.orig/xemacs-packages/w3/lisp/w3-menu.el 1999-11-27 16:37:20.000000000 +0100
+++ packages/xemacs-packages/w3/lisp/w3-menu.el 2004-12-23 15:20:22.895721457 +0100
@@ -624,7 +624,8 @@
(lookup-key w3-mode-menu-map [rootmenu])))))
(defun w3-menu-install-menus ()
- (cond ((= emacs-minor-version 28) ; Hey, get with the times people!!
+ (cond ((and (= emacs-major-version 19)
+ (= emacs-minor-version 28)) ; Hey, get with the times people!!
nil)
((consp w3-use-menus)
(w3-menu-install-menubar))
