Hello community,
here is the log from the commit of package xemacs-packages.3535 for
openSUSE:13.1:Update checked in at 2015-02-23 17:03:37
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:13.1:Update/xemacs-packages.3535 (Old)
and /work/SRC/openSUSE:13.1:Update/.xemacs-packages.3535.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "xemacs-packages.3535"
Changes:
--------
New Changes file:
--- /dev/null 2014-12-25 22:38:16.200041506 +0100
+++
/work/SRC/openSUSE:13.1:Update/.xemacs-packages.3535.new/xemacs-packages.changes
2015-02-23 17:03:39.000000000 +0100
@@ -0,0 +1,1127 @@
+-------------------------------------------------------------------
+Wed Feb 11 14:04:29 UTC 2015 - [email protected]
+
+- Add patch xemacs-packages-20130822-tramp.patch
+ to fix problem of not loaded subr-more (boo#857207)
+
+-------------------------------------------------------------------
+Fri Aug 23 15:17:17 UTC 2013 - [email protected]
+
+- update packages to latest xemacs versions:
+ * leim/quail warns about duplicate rules
+ * cc-mode 1.64 -> 1.69 (5.32.5): see individual ChangeLog
+ * edit-utils 2.50 -> 2.51: import find-lisp
+ * efs 1.34 -> 1.35: texinfo fix in docs...
+ * erc: fixes in log-file handling
+ * hyperbole 1.18 -> 1.19 (no source change)
+ * misc-games: fix name clash in doctor
+ * prog-modes 2.28 -> 2.29: go mode updated to 16503
+ * xemacs-base 2.35 -> 2.36: rcfiles added, subr-more learns
+ number-sequence, string-or-null-p, booleanp
+
+-------------------------------------------------------------------
+Tue Apr 2 13:41:50 UTC 2013 - [email protected]
+
+- update packages to latest xemacs versions:
+ * xemacs-base 2.32 -> 2.35: new core subr-more, new file-util
+ from GNU Emacs
+ * tramp 1.41 -> 1.45 (2.2.7): latest bugfixes, new gvfs backend
+ * scheme 1.18 -> 1.19: fix imenu-syntax-alist
+ * os-utils 1.41 -> 1.42: archive-mode also provide arc-mode for
+ GNU compat
+ * edit-utils 2.49 -> 2.50: added ido mode, which-func from GNU
+ * cc-mode 1.60 -> 1.64: small fixes, check
+ http://cc-mode.sourceforge.net for detailed changelog
+
+-------------------------------------------------------------------
+Wed Jan 30 09:00:40 UTC 2013 - [email protected]
+
+- update packages to latest xemacs versions:
+ * cc-mode 1.57 -> 1.60: small fixes, check
+ http://cc-mode.sourceforge.net for detailed changelog
+ * edit-utils 2.47 -> 2.49: add list-register
+ * prog-modes 2.27 -> 2.28: update go-mode to 14989
+ * tramp 1.40 (2.0.56) -> 1.41 (2.2.7-pre): major update,
+ details see ChangeLog.upstream
+ * ediff 1.81 -> 1.82, pcl-cvs 1.70 -> 1.71:
+ fix tramp compilation
+
+-------------------------------------------------------------------
+Mon Nov 19 13:02:26 UTC 2012 - [email protected]
+
+- update packages to latest xemacs versions:
+ * edit-utils 2.46 -> 2.47: support behavior in user-colors
+
+-------------------------------------------------------------------
+Tue Oct 2 13:34:29 UTC 2012 - [email protected]
+
+- update packages to latest xemacs versions:
+ * prog-modes 2.26 -> 2.27: go-mode update to 13677 (handle unit
+ test failure)
+ * cc-mode 1.55 -> 1.57: bug fixes
+
+-------------------------------------------------------------------
+Tue Sep 18 11:32:03 UTC 2012 - [email protected]
+
+- Again, make it build with latest TeXLive 2012
+
+-------------------------------------------------------------------
+Wed Aug 8 14:16:07 UTC 2012 - [email protected]
+
+- update packages to latest xemacs versions:
+ * auctex 1.49 -> 1.51 (11.84), details see doc/changes.texi
+ * cc-mode 1.51 -> 1.55 (5.32.2),
+ see http://cc-mode.sourceforge.net/changes-532.php
+ * gnus 1.94 -> 1.95 (5.10.10),
+ see http://gnus.org/manual/gnus_363.html#SEC366
+ * leim 1.32 -> 1.33, prog-modes 2.25 -> 2.26,
+ ruby-modes 1.04 -> 1.05 (1.8.7), w3 1.36 -> 1.38 (4.0pre47),
+ xemacs-base 2.31 -> 2.32,
+ for changes see the various ChangeLog files in the package
+- fix packaging bug that stop cperl-mode 6.2 from opening
+- upstream license change to GPLv3+
+- add patch for missing CVS keywords in hg checkout
+- add patch to update hg checkout of gnus to match release version
+
+-------------------------------------------------------------------
+Mon Jul 23 15:58:02 UTC 2012 - [email protected]
+
+- Make it build with latest TeXLive 2012
+
+-------------------------------------------------------------------
+Sat Jun 30 18:09:30 UTC 2012 - [email protected]
+
+- fix 12.2 builds.
+ * bdftopcf is now a separated package from xorg-x11.
+ * mkfontdir is now a separated package from xorg-x11-utils-devel.
+- fix sle builds.
+
+-------------------------------------------------------------------
+Thu Mar 22 08:14:36 UTC 2012 - [email protected]
+
+- Make rpmlint happy
+
+-------------------------------------------------------------------
+Fri Mar 2 12:25:51 UTC 2012 - [email protected]
+
+- Update to sumo-2012-02-14
+ * as there are a lot of changes you may read
+ https://bitbucket.org/xemacs/xemacs-packages/changesets
+
+-------------------------------------------------------------------
+Sat May 15 16:06:58 UTC 2010 - [email protected]
+
+- ignore subpackages required by xemacs to avoid build cycle
+
+-------------------------------------------------------------------
+Wed Mar 31 14:56:07 CEST 2010 - [email protected]
+
+- Force build with newer test version instead of 25.5.29 (bnc#590429)
+
+-------------------------------------------------------------------
+Mon Feb 22 16:39:28 CET 2010 - [email protected]
+
+- Update the sub package vc to 1.48 to fix a bug (bnc#568556)
+
+-------------------------------------------------------------------
+Wed Dec 9 16:27:46 CET 2009 - [email protected]
+
+- Fix the fix in the spec file to make semantic/auto-autoloads.el
+ work again (bnc#557739)
+
+-------------------------------------------------------------------
+Mon Dec 7 17:05:24 CET 2009 - [email protected]
+
+- Make it work with latest xemacs beta version
+
+-------------------------------------------------------------------
+Wed Dec 2 15:50:56 CET 2009 - [email protected]
+
+- Add missing autoloads to fix nasty error message (bnc#557739)
+
+-------------------------------------------------------------------
+Wed Aug 26 13:00:30 CEST 2009 - [email protected]
+
+- Add provides and obsoletes for apel-xemacs
+
+-------------------------------------------------------------------
+Tue Aug 25 16:41:10 CEST 2009 - [email protected]
+
+- Apply patch for apel to make it build.
+- Fix filelist.
+- Fix some rpmlint warnings.
+
+-------------------------------------------------------------------
+Mon Jun 22 12:14:08 CEST 2009 - [email protected]
+
+- update to sumo-2009-02-17.
+ * way too many changes to list them all, see
+ http://xemacs.org/Releases/2009-02-17.html
+
+-------------------------------------------------------------------
+Tue May 13 16:21:52 CEST 2008 - [email protected]
+
+- bnc#389154: add fix for fast-lock to avoid the possible
+ execution of arbitrary lisp code.
+
+-------------------------------------------------------------------
+Fri Dec 21 19:39:24 CET 2007 - [email protected]
+
+- fix wrong property list entries for faces.
+
+-------------------------------------------------------------------
+Wed Dec 05 16:12:09 CET 2007 - [email protected]
+
+- remove openldap2 from BuildRequires.
+
+-------------------------------------------------------------------
+Fri Aug 10 23:42:12 CEST 2007 - [email protected]
+
+- update German app-defaults.
+
+-------------------------------------------------------------------
+Wed Aug 08 15:21:39 CEST 2007 - [email protected]
+
+- add mule-lisp-directory to load-path in package-compile.el
+- add fix-build-failure-in-mule-ucs.patch by Aidan Kehoe to fix
+ build failure im mule-ucs with xemacs-21.5.28.20070807.
+ (see http://mid.gmane.org/[email protected]).
+
+-------------------------------------------------------------------
+Mon Jul 16 12:19:24 CEST 2007 - [email protected]
+
+- update to sumo-2007-04-27.
+ • remove
bugzilla-129874-do-not-output-useless-error-messages-when-using-cvs-status.patch
+ (included upstream).
+ • remove bugzilla-219217-w3-does-not-display-anything.patch
+ (not needed anymore because newer font.el is now in
++++ 930 more lines (skipped)
++++ between /dev/null
++++ and
/work/SRC/openSUSE:13.1:Update/.xemacs-packages.3535.new/xemacs-packages.changes
New:
----
app-defaults.patch
bugzilla-183805-missing-autoload-cookies.patch
dinbrief.patch
disable-skk.patch
edict-utf-8.patch
gnus-utf-8.patch
mode-local.patch
packages-cvs-sumo-2002-09-19-comint.patch
packages-cvs-sumo-2004-02-02-awk.patch
packages-cvs-xemacs-sumo-2002-03-29-ps-print.patch
packages-cvs-xemacs-sumo-2005-12-08-apel.patch
packages-cvs-xemacs-sumo-2005-12-08-diff-mode.patch
texi-coding.patch
texi.patch
texi2utf8
xe-list.el
xemacs-packages-20130822-tramp.patch
xemacs-packages-20130822.tar.bz2
xemacs-packages-expand-kw.diff
xemacs-packages-rpmlintrc
xemacs-packages.changes
xemacs-packages.patch
xemacs-packages.spec
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ xemacs-packages.spec ++++++
++++ 1092 lines (skipped)
++++++ app-defaults.patch ++++++
--- packages/mule-packages/locale/app-defaults/de/Emacs
+++ packages/mule-packages/locale/app-defaults/de/Emacs 2012-02-28
14:10:14.754434028 +0000
@@ -3,6 +3,20 @@
! German localization resources for XEmacs.
! updated Fri Aug 10 16:17:07 2007 by Mike FABIAN <[email protected]>
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! FontSet for menus when you use --with-xfs or --with-xim=xlib.
+XEmacs*fontSet:
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso10646-1,\
+
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*,\
+ -*-*-*-*-*-*-*-120-*-iso10646-1
+XEmacs*menubar*fontSet:
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso10646-1,\
+
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*,\
+ -*-*-*-*-*-*-*-120-*-iso10646-1
+XEmacs*popup*fontSet:
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso10646-1,\
+
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*,\
+ -*-*-*-*-*-*-*-120-*-iso10646-1
+XEmacs*menubar*Font: -*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*
+XEmacs*popup*Font: -*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*
+
! Pulldown menu internationalization. The first line of the file
! "*XlwMenu.resourceLabels: True" has to be there to make sure
! all the labelString will be read and displayed by X.
--- packages/mule-packages/locale/app-defaults/fr/Emacs
+++ packages/mule-packages/locale/app-defaults/fr/Emacs 2012-02-28
14:10:32.129993870 +0000
@@ -1,3 +1,18 @@
+! -*- coding: iso-8859-1 -*-
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! FontSet for menus when you use --with-xfs or --with-xim=xlib.
+XEmacs*fontSet:
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso10646-1,\
+
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*,\
+ -*-*-*-*-*-*-*-120-*-iso10646-1
+XEmacs*menubar*fontSet:
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso10646-1,\
+
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*,\
+ -*-*-*-*-*-*-*-120-*-iso10646-1
+XEmacs*popup*fontSet:
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso10646-1,\
+
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*,\
+ -*-*-*-*-*-*-*-120-*-iso10646-1
+XEmacs*menubar*Font: -*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*
+XEmacs*popup*Font: -*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*
+
*XlwMenu.resourceLabels: True
--- packages/mule-packages/locale/app-defaults/ja/Emacs
+++ packages/mule-packages/locale/app-defaults/ja/Emacs 2012-02-28
14:15:21.266434084 +0000
@@ -1,3 +1,4 @@
+! -*- coding: euc-jp -*-
! Japanese localization resources for XEmacs.
! @(#)Emacs 1.3 96/09/22
! Copyright (C) 1996 Sun Microsystems, Inc.
@@ -33,7 +34,50 @@
! And fontList is just used under Motif menubar.
*fontList: -*-gothic-medium-r-normal--14-120-75-75-c-*-*-*:
!! FontSet for menus when you use --with-xfs or --with-xim=xlib.
-*fontSet: -*-fixed-medium-r-normal--14-*
+XEmacs*fontSet:
-efont-biwidth-medium-r-normal--16-*-*-*-*-*-iso10646-1,\
+
-gnu-unifont-medium-r-normal--16-160-75-75-p-80-iso10646-1,\
+ -*-sazanami
gothic-medium-r-normal--16-*-*-*-*-*-iso10646-1,\
+
-kochi-gothic-medium-r-normal--16-*-*-*-*-*-iso10646-1,\
+
-*-gothic-medium-r-normal--16-*-*-*-*-*-iso10646-1,\
+ -*-*-medium-r-normal--16-*-*-*-*-*-iso10646-1,\
+ -*-sazanami
gothic-medium-r-normal--16-*-*-*-*-*-jisx0208.1983-0,\
+
-kochi-gothic-medium-r-normal--16-*-*-*-*-*-jisx0208.1983-0,\
+
-*-gothic-medium-r-normal--16-*-*-*-*-*-jisx0208.1983-0,\
+
-*-*-medium-r-normal--16-*-*-*-*-*-jisx0208.1983-0,\
+ -*-sazanami
gothic-medium-r-normal--16-*-*-*-*-*-jisx0201.1976-0,\
+
-kochi-gothic-medium-r-normal--16-*-*-*-*-*-jisx0201.1976-0,\
+
-*-gothic-medium-r-normal--16-*-*-*-*-*-jisx0201.1976-0,\
+
-*-*-medium-r-normal--16-*-*-*-*-*-jisx0201.1976-0
+XEmacs*menubar*fontSet:
-efont-biwidth-medium-r-normal--16-*-*-*-*-*-iso10646-1,\
+
-gnu-unifont-medium-r-normal--16-160-75-75-p-80-iso10646-1,\
+ -*-sazanami
gothic-medium-r-normal--16-*-*-*-*-*-iso10646-1,\
+
-kochi-gothic-medium-r-normal--16-*-*-*-*-*-iso10646-1,\
+
-*-gothic-medium-r-normal--16-*-*-*-*-*-iso10646-1,\
+ -*-*-medium-r-normal--16-*-*-*-*-*-iso10646-1,\
+ -*-sazanami
gothic-medium-r-normal--16-*-*-*-*-*-jisx0208.1983-0,\
+
-kochi-gothic-medium-r-normal--16-*-*-*-*-*-jisx0208.1983-0,\
+
-*-gothic-medium-r-normal--16-*-*-*-*-*-jisx0208.1983-0,\
+
-*-*-medium-r-normal--16-*-*-*-*-*-jisx0208.1983-0,\
+ -*-sazanami
gothic-medium-r-normal--16-*-*-*-*-*-jisx0201.1976-0,\
+
-kochi-gothic-medium-r-normal--16-*-*-*-*-*-jisx0201.1976-0,\
+
-*-gothic-medium-r-normal--16-*-*-*-*-*-jisx0201.1976-0,\
+
-*-*-medium-r-normal--16-*-*-*-*-*-jisx0201.1976-0
+XEmacs*popup*fontSet:
-efont-biwidth-medium-r-normal--16-*-*-*-*-*-iso10646-1,\
+
-gnu-unifont-medium-r-normal--16-160-75-75-p-80-iso10646-1,\
+ -*-sazanami
gothic-medium-r-normal--16-*-*-*-*-*-iso10646-1,\
+
-kochi-gothic-medium-r-normal--16-*-*-*-*-*-iso10646-1,\
+
-*-gothic-medium-r-normal--16-*-*-*-*-*-iso10646-1,\
+ -*-*-medium-r-normal--16-*-*-*-*-*-iso10646-1,\
+ -*-sazanami
gothic-medium-r-normal--16-*-*-*-*-*-jisx0208.1983-0,\
+
-kochi-gothic-medium-r-normal--16-*-*-*-*-*-jisx0208.1983-0,\
+
-*-gothic-medium-r-normal--16-*-*-*-*-*-jisx0208.1983-0,\
+
-*-*-medium-r-normal--16-*-*-*-*-*-jisx0208.1983-0,\
+ -*-sazanami
gothic-medium-r-normal--16-*-*-*-*-*-jisx0201.1976-0,\
+
-kochi-gothic-medium-r-normal--16-*-*-*-*-*-jisx0201.1976-0,\
+
-*-gothic-medium-r-normal--16-*-*-*-*-*-jisx0201.1976-0,\
+
-*-*-medium-r-normal--16-*-*-*-*-*-jisx0201.1976-0
+XEmacs*menubar*Font: -*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*
+XEmacs*popup*Font: -*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*
! Starting below here are menu label string which can be translated to
! different languages.
--- packages/mule-packages/locale/app-defaults/ro/Emacs
+++ packages/mule-packages/locale/app-defaults/ro/Emacs 2012-02-28
14:12:21.574433767 +0000
@@ -1,5 +1,19 @@
-*XlwMenu.resourceLabels: True
+! -*- coding: iso-8859-2 -*-
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! FontSet for menus when you use --with-xfs or --with-xim=xlib.
+XEmacs*fontSet:
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso10646-1,\
+
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*,\
+ -*-*-*-*-*-*-*-120-*-iso10646-1
+XEmacs*menubar*fontSet:
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso10646-1,\
+
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*,\
+ -*-*-*-*-*-*-*-120-*-iso10646-1
+XEmacs*popup*fontSet:
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso10646-1,\
+
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*,\
+ -*-*-*-*-*-*-*-120-*-iso10646-1
+XEmacs*menubar*Font: -*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*
+XEmacs*popup*Font: -*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*
+*XlwMenu.resourceLabels: True
! menu-apps
--- packages/mule-packages/locale/app-defaults/sv/Emacs
+++ packages/mule-packages/locale/app-defaults/sv/Emacs 2012-02-28
14:10:02.974433917 +0000
@@ -3,6 +3,20 @@
! Swedish localization resources for XEmacs.
! Based on german localization resources by Mike FABIAN <[email protected]>
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! FontSet for menus when you use --with-xfs or --with-xim=xlib.
+XEmacs*fontSet:
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso10646-1,\
+
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*,\
+ -*-*-*-*-*-*-*-120-*-iso10646-1
+XEmacs*menubar*fontSet:
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso10646-1,\
+
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*,\
+ -*-*-*-*-*-*-*-120-*-iso10646-1
+XEmacs*popup*fontSet:
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso10646-1,\
+
-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*,\
+ -*-*-*-*-*-*-*-120-*-iso10646-1
+XEmacs*menubar*Font: -*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*
+XEmacs*popup*Font: -*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*
+
! Pulldown menu internationalization. The first line of the file
! "*XlwMenu.resourceLabels: True" has to be there to make sure
! all the labelString will be read and displayed by X.
++++++ bugzilla-183805-missing-autoload-cookies.patch ++++++
diff -ru packages.orig/xemacs-packages/build/build.el
packages/xemacs-packages/build/build.el
--- packages/xemacs-packages/build/build.el 2003-10-13 17:52:13.000000000
+0200
+++ packages/xemacs-packages/build/build.el 2006-06-30 21:53:30.000000000
+0200
@@ -922,6 +922,7 @@
(match-string 2 (cdr result))) tags)))
(reverse tags))))
+;;;###autoload
(defun build-cvs-checkout-options-validate (sym val)
(cond
((string-match "-\\(d\\|N\\)\\b" val)
diff -ru packages.orig/xemacs-packages/ps-print/ps-mule.el
packages/xemacs-packages/ps-print/ps-mule.el
--- packages/xemacs-packages/ps-print/ps-mule.el 2002-07-30
14:40:40.000000000 +0200
+++ packages/xemacs-packages/ps-print/ps-mule.el 2006-06-30
19:22:32.000000000 +0200
@@ -298,6 +298,7 @@
See also the variable `ps-font-info-database'.")
+;;;###autoload
(defconst ps-mule-font-info-database-latin
'((latin-iso8859-1
(normal nil nil iso-8859-1)))
diff -ru packages.orig/xemacs-packages/ps-print/ps-print.el
packages/xemacs-packages/ps-print/ps-print.el
--- packages/xemacs-packages/ps-print/ps-print.el 2004-03-08
23:43:35.000000000 +0100
+++ packages/xemacs-packages/ps-print/ps-print.el 2006-07-01
12:30:51.000000000 +0200
@@ -1436,6 +1436,7 @@
;;; Code:
+;;;###autoload
(eval-and-compile
(require 'lpr)
++++++ dinbrief.patch ++++++
Index: packages/xemacs-packages/auctex/latex.el
===================================================================
--- packages/xemacs-packages/auctex/latex.el.orig
+++ packages/xemacs-packages/auctex/latex.el
@@ -1554,6 +1554,7 @@ ELSE as an argument list."
",")))))
(if (zerop (length style))
(setq style LaTeX-default-style))
+ (TeX-run-style-hooks style)
(if (not (zerop (length options)))
(insert LaTeX-optop options LaTeX-optcl))
(insert TeX-grop style TeX-grcl))
Index: packages/xemacs-packages/auctex/etc/dinbrief.el
===================================================================
--- packages/xemacs-packages/auctex/style/dinbrief.el.orig
+++ packages/xemacs-packages/auctex/style/dinbrief.el
@@ -2,6 +2,9 @@
;; Contributed by Werner Fink <[email protected]>
;; Please direct comments to him.
+;;
+;; Change to new dinbrief.sty -- Werner Fink <[email protected]>
+;; ... yes, we are identical
;;; Commentary:
@@ -14,80 +17,120 @@
(TeX-add-style-hook "dinbrief"
(function
(lambda ()
+ (add-hook 'LaTeX-document-style-hook
+ 'LaTeX-style-dinbrief)
(LaTeX-add-environments
- '("letter" LaTeX-recipient-hook))
+ '("letter" LaTeX-recipient-hook)
+ "dinquote")
(TeX-add-symbols
- '("Absender" "Absender: ")
- '("Postvermerk" "Postvermerk: ")
- '("Datum" "Datum: ")
- '("Betreff" "Betreff: ")
- '("Behandlungsvermerk" "Behandlungsvermerk: ")
- '("Verteiler" "Verteiler: ")
- "makelabel" "Retourlabel"
- '("Anlagen" "Anlagen: ")
- '("Fenster" "Fenster \(ja/nein\): ")
- '("Retouradresse" "Retouradresse: ")
+ '("address" "Absender: ")
+ '("postremark" "Postvermerk: ")
+ '("date" "Datum: ")
+ '("subject" "Betreff: ")
+ '("handling" "Behandlungsvermerk: ")
+ '("cc" "Verteiler: ")
+ '("place" "Heutiger Ort: ")
+ "makelabels"
+ "nowindowrules"
+ "windowrules"
+ "nowindowtics"
+ "windowtics"
+ "disabledraftstandard"
+ "enabledraftstandard"
+ "centeraddress"
+ "normaladdress"
+ '("encl" "Anlagen: ")
+ '("backaddress" "Retouradresse: ")
'("signature" "Unterschrift: ")
'("opening" "Anrede: ")
- '("closing" "Schlu\"s: ")))))
+ '("closing" "Schluss: ")))))
+
+(if (string-match "XEmacs" emacs-version)
+ (defun TeX-deactivate-mark () (zmacs-deactivate-region))
+ (defun TeX-deactivate-mark () (deactivate-mark)))
+
+(defmacro din-insert (&rest args)
+ "Insert text ignoring active markers."
+ `(progn (if (TeX-mark-active) (TeX-deactivate-mark))
+ (insert ,@args)))
+
+(defun LaTeX-style-dinbrief ()
+ "Insert some useful packages for writing german letters."
+ (if (equal LaTeX-version "2e")
+ (save-excursion
+ (goto-char (point-min)) ; insert before \begin{document}
+ (if (re-search-forward ".begin.document." (point-max) t)
+ (beginning-of-line 1))
+ (open-line 2)
+ (indent-relative-maybe)
+ (din-insert TeX-esc "usepackage"
+ LaTeX-optop "latin1" LaTeX-optcl
+ TeX-grop "inputenc" TeX-grcl)
+ (newline-and-indent)
+ (din-insert TeX-esc "usepackage"
+ LaTeX-optop "T1" LaTeX-optcl
+ TeX-grop "fontenc" TeX-grcl)
+ (newline-and-indent)
+ (din-insert TeX-esc "usepackage"
+ TeX-grop "ngerman" TeX-grcl)
+ (newline-and-indent)
+ (din-insert TeX-esc "usepackage"
+ TeX-grop "umlaut" TeX-grcl)
+ (TeX-run-style-hooks "inputenc")
+ (TeX-run-style-hooks "fontenc")
+ (TeX-run-style-hooks "ngerman")
+ (TeX-run-style-hooks "umlaut"))))
(defun LaTeX-recipient-hook (environment)
"Insert ENVIRONMENT and prompt for recipient and address."
- (let ((sender (read-input "Absender: " (user-full-name)))
- (recipient (read-input "Empf\"anger: "))
- (address (read-input "Anschrift: "))
- (postvermerk (read-input "Postvermerk: "))
- (date (read-input "Datum: " (LaTeX-today)))
- (betreff (read-input "Betreff: "))
- (vermerk (read-input "Behandlungsvermerk: "))
- (verteil (read-input "Verteiler: "))
- (anlage (read-input "Anlagen: "))
- (opening (read-input "Anrede: "))
- (closing (read-input "Schlu\"s: "))
- (fenster (read-input "Fenster \(ja/nein\): "))
- (signature (read-input "Unterschrift: "))
+ (let (
+ (sender (LaTeX-sender))
+ (recipient (read-string "Empfänger: "))
+ (address (LaTeX-recipient))
+ (date (read-string "Datum: " (LaTeX-today)))
+ (postremark (read-string "Postvermerk: "))
+ (fenster (read-string "Fenster \(ja/nein\): "))
+ (vermerk (read-string "Behandlungsvermerk: "))
+ (verteil (read-string "Verteiler: "))
+ (betreff (read-string "Betreff: "))
+ (opening (read-string "Anrede: "))
+ (closing (read-string "Schluss: "))
+ (signature (read-string "Unterschrift: "))
+ (anlage (read-string "Anlagen: "))
)
- (if (not (zerop (length sender)))
- (progn
- (insert TeX-esc "Absender" TeX-grop sender TeX-grcl)
- (newline-and-indent)))
- (if (not (zerop (length postvermerk)))
- (progn
- (insert TeX-esc "Postvermerk" TeX-grop postvermerk TeX-grcl)
- (newline-and-indent)))
- (if (not (zerop (length betreff)))
- (progn
- (insert TeX-esc "Betreff" TeX-grop betreff TeX-grcl)
- (newline-and-indent)))
- (if (not (zerop (length vermerk)))
- (progn
- (insert TeX-esc "Behandlungsvermerk" TeX-grop vermerk TeX-grcl)
- (newline-and-indent)))
- (if (not (zerop (length verteil)))
- (progn
- (insert TeX-esc "Verteiler" TeX-grop verteil TeX-grcl)
- (newline-and-indent)))
- (if (not (zerop (length anlage)))
- (progn
- (insert TeX-esc "Anlagen" TeX-grop anlage TeX-grcl)
- (newline-and-indent)))
(if (string= fenster "ja")
(progn
- (insert TeX-esc "Fenster")
- (let ((retouradr (read-input "Retouradresse: " (user-full-name))))
+ (din-insert TeX-esc "enabledraftstandard")
+ (newline-and-indent)
+ (din-insert TeX-esc "centeraddress")
+ (newline-and-indent)
+ (din-insert TeX-esc "nowindowrules")
+ (newline-and-indent)
+ (din-insert TeX-esc "windowtics")
+ (newline-and-indent)
+ (let ((retouradr (read-string "Retouradresse: " sender)))
(newline-and-indent)
(if (not (zerop (length retouradr)))
(progn
- (insert TeX-esc "Retouradresse" TeX-grop retouradr TeX-grcl)
- (newline-and-indent))))))
+ (if (TeX-mark-active) (TeX-deactivate-mark))
+ (din-insert TeX-esc "backaddress" TeX-grop retouradr TeX-grcl)
+ (newline-and-indent)))))
+ (din-insert TeX-esc "enabledraftstandard")
+ (newline-and-indent)
+ (din-insert TeX-esc "centeraddress")
+ (newline-and-indent)
+ (din-insert TeX-esc "nowindowrules")
+ (newline-and-indent)
+ (din-insert TeX-esc "windowtics"))
+ (newline-and-indent)
(if (not (zerop (length signature)))
(progn
- (insert TeX-esc "signature" TeX-grop signature TeX-grcl)
+ (din-insert TeX-esc "signature" TeX-grop signature TeX-grcl)
(newline-and-indent)))
(if (not (zerop (length date)))
(progn
- (insert TeX-esc "Datum" TeX-grop date TeX-grcl)
+ (din-insert TeX-esc "date" TeX-grop date TeX-grcl)
(newline-and-indent)))
(newline-and-indent)
@@ -112,9 +155,32 @@
(progn
(newline)
(indent-to addr-column))))))))
- (insert "\n")
+ (din-insert "\n")
(indent-to indentation))
- (insert TeX-esc "opening"
+ (if (not (zerop (length postremark)))
+ (progn
+ (din-insert TeX-esc "postremark" TeX-grop postremark TeX-grcl)
+ (newline-and-indent)))
+ (if (not (zerop (length betreff)))
+ (progn
+ (din-insert TeX-esc "subject" TeX-grop)
+ (if (equal LaTeX-version "2e")
+ (din-insert TeX-esc "textbf" TeX-grop betreff TeX-grcl TeX-grcl)
+ (din-insert betreff TeX-grcl))
+ (newline-and-indent)))
+ (if (not (zerop (length vermerk)))
+ (progn
+ (din-insert TeX-esc "handling" TeX-grop vermerk TeX-grcl)
+ (newline-and-indent)))
+ (if (not (zerop (length verteil)))
+ (progn
+ (din-insert TeX-esc "cc" TeX-grop verteil TeX-grcl)
+ (newline-and-indent)))
+ (if (not (zerop (length anlage)))
+ (progn
+ (din-insert TeX-esc "encl" TeX-grop anlage TeX-grcl)
+ (newline-and-indent)))
+ (din-insert TeX-esc "opening"
TeX-grop
(if (zerop (length opening))
(concat TeX-esc " ")
@@ -123,7 +189,7 @@
(indent-relative-maybe)
(save-excursion
- (insert "\n" TeX-esc "closing"
+ (din-insert "\n" TeX-esc "closing"
TeX-grop
(if (zerop (length closing))
(concat TeX-esc " ")
@@ -131,6 +197,47 @@
TeX-grcl "\n")
(indent-relative-maybe))))
+(defun LaTeX-sender nil
+ "Read and writes the senders address"
+ (interactive)
+ (let ((name (read-string "Absender: " (user-full-name)))
+ (str (read-string "Meine Strasse: "))
+ (ort (read-string "Mein Wohnort: ")))
+ (if (not (zerop (length name)))
+ (progn
+ (goto-char (point-min)) ; insert before \end{document}
+ (if (re-search-forward ".end.document." (point-max) t)
+ (beginning-of-line 1))
+ (previous-line 1)
+ (din-insert TeX-esc "address" TeX-grop name)
+ (if (not (zerop (length str)))
+ (progn
+ (din-insert " " TeX-esc TeX-esc)
+ (newline-and-indent)
+ (din-insert str)))
+ (if (not (zerop (length ort)))
+ (progn
+ (din-insert " " TeX-esc "par")
+ (newline-and-indent)
+ (din-insert ort)))
+ (din-insert TeX-grcl)
+ (newline-and-indent)
+ (concat name ", " str ", " ort)))))
+
+(defun LaTeX-recipient nil
+ "Read and returns the recipient address"
+ (interactive)
+ (let ((str (read-string "Wohnhaft in Strasse: "))
+ (ort (read-string "Aus der Ortschaft: ")))
+ (if (not (zerop (length str)))
+ (if (not (zerop (length ort)))
+ (concat str " " TeX-esc TeX-esc " " ort)
+ str)
+ (if (not (zerop (length ort)))
+ ort))
+ )
+)
+
(defun LaTeX-today nil
"Return a string representing todays date according to flavor."
(interactive)
@@ -152,12 +259,13 @@
ctime-string)
(let ((year (substring ctime-string (match-beginning 3) (match-end 3)))
(month (substring ctime-string (match-beginning 1) (match-end 1)))
- (day (substring ctime-string (match-beginning 2) (match-end 2))))
+ (day (substring ctime-string (match-beginning 2) (match-end 2)))
+ (place (read-string "Heutiger Ort: ")))
(if (assoc month month-alist)
(progn
(setq month (cdr (assoc month month-alist)))
(if (> 2 (length day))
(setq day (concat "0" day)))))
- (format "Stuttgart, den %s. %s %s" day month year))))
+ (format "%s, den %s. %s %s" place day month year))))
;;; dinbrief.el ends here
++++++ disable-skk.patch ++++++
--- packges/package-compile.el.orig
+++ packges/package-compile.el
@@ -220,7 +220,6 @@
("lookup" . "mule-packages")
("mule-base" . "mule-packages")
("mule-ucs" . "mule-packages")
- ("skk" . "mule-packages")
))
(defvar package-source-root nil)
--- packges/mule-packages/Makefile.orig
+++ packges/mule-packages/Makefile
@@ -19,7 +19,7 @@
include ../Local.rules.inc
ifeq ('$(MULE_PACKAGES)','mule-packages')
-PACKAGES := mule-base locale leim lookup edict egg-its skk \
+PACKAGES := mule-base locale leim lookup edict egg-its \
latin-unity latin-euro-standards mule-ucs
else
PACKAGES := $(MULE_PACKAGES)
++++++ edict-utf-8.patch ++++++
packages/mule-packages/edict/CVSだけに発見: Base
packages/mule-packages/edict/CVSだけに発見: Baserev
diff -ru packages.orig/mule-packages/edict/edict.el
packages/mule-packages/edict/edict.el
--- packages/mule-packages/edict/edict.el 2002-01-31 11:08:35.000000000
+0100
+++ packages/mule-packages/edict/edict.el 2003-08-23 23:57:05.000000000
+0200
@@ -181,11 +181,12 @@
"The variable edict-version contains a string that describes
what version of the edict software that you are running.")
-(defcustom edict-default-coding-system 'euc-jp
+(defcustom edict-default-coding-system 'utf-8
"Default coding system for reading dictionary files.
-On Unix systems, EDICT is distributed as an EUC file. For Windows systems
-'shift_jis is may be preferable."
+On SuSE Linux >= 9.0, EDICT is distributed as an 'utf-8 encoded file.
+For SuSE Linux <= 8.2 or other Linux like systems, 'euc-jp may be used
+for EDICT. For Windows systems 'shift_jis is may be preferable."
:type 'symbol
:group 'edict)
++++++ gnus-utf-8.patch ++++++
diff -ru packages.orig/xemacs-packages/gnus/lisp/mm-util.el
packages/xemacs-packages/gnus/lisp/mm-util.el
--- packages/xemacs-packages/gnus/lisp/mm-util.el 2005-11-15
04:45:54.000000000 +0100
+++ packages/xemacs-packages/gnus/lisp/mm-util.el 2005-12-14
16:58:44.000000000 +0100
@@ -785,7 +785,9 @@
(mapcar 'mm-mime-charset
(delq 'ascii
(mm-find-charset-region b e)))))))
- charsets))
+ (if (> (length charsets) 1)
+ '(utf-8)
+ charsets)))
(defmacro mm-with-unibyte-buffer (&rest forms)
"Create a temporary buffer, and evaluate FORMS there like `progn'.
++++++ mode-local.patch ++++++
--- packages/xemacs-packages/cedet-common/mode-local.el
+++ packages/xemacs-packages/cedet-common/mode-local.el 2009-12-02
14:28:01.979929810 +0000
@@ -49,7 +49,9 @@
;;
;;; Code:
-(eval-when-compile (require 'cl))
+(eval-when-compile
+ (autoload 'ad-add-advice "advice")
+ (require 'cl))
;;; Compatibility
;;
@@ -189,6 +191,7 @@ behaviors. Use the function `mode-local
"Return a new empty mode bindings symbol table."
(make-vector 13 0))
+;;;###autoload
(defun mode-local-bind (bindings &optional plist mode)
"Define BINDINGS in the specified environment.
BINDINGS is a list of (VARIABLE . VALUE).
@@ -455,6 +458,7 @@ in those bound in current `major-mode' a
(mode-local-symbol-value
(overload-obsoleted-by overload) nil 'override-flag))))
+;;;###autoload
(defun mode-local--override (name args body)
"Return the form that handles overloading of function NAME.
ARGS are the arguments to the function.
@@ -471,6 +475,7 @@ See also the function `define-overload'.
,@(or body `((,default ,@overargs)))))
))
+;;;###autoload
(defun mode-local--expand-overrides (name args body)
"Expand override forms that overload function NAME.
ARGS are the arguments to the function NAME.
@@ -494,6 +499,7 @@ See also the function `define-overload'.
forms (cdr forms)))
(if ditto body (nreverse xbody))))
+;;;###autoload
(defun mode-local--overload-body (name args body)
"Return the code that implements overloading of function NAME.
ARGS are the arguments to the function NAME.
@@ -504,6 +510,7 @@ See also the function `define-overload'.
(list (mode-local--override name args body))
result)))
+;;;###autoload
(defmacro define-overload (name args docstring &rest body)
"Define a new function, as with `defun' which can be overloaded.
NAME is the name of the function to create.
++++++ packages-cvs-sumo-2002-09-19-comint.patch ++++++
--- packages/xemacs-packages/lisp/xemacs-base/comint.el 2002-08-30
18:56:48.000000000 +0200
+++ packages/xemacs-packages/lisp/xemacs-base/comint.el 2003-01-30
13:09:27.000000000 +0100
@@ -143,6 +143,12 @@
;; comint-completion-autolist boolean completion behavior
;; comint-completion-recexact boolean ...
+;; to use terminal type 'dumb' instead of 'emacs', system-uses-terminfo
+;; must not be nil:
+(defvar system-uses-terminfo t
+ "Non-nil means the system uses terminfo rather than termcap.
+This variable can be used by terminal emulator packages.")
+
(defvar comint-prompt-regexp "^"
"Regexp to recognise prompts in the inferior process.
Defaults to \"^\", the null string at BOL.
++++++ packages-cvs-sumo-2004-02-02-awk.patch ++++++
--- packages/xemacs-packages/prog-modes/awk-mode.el
+++ packages/xemacs-packages/prog-modes/awk-mode.el Mon Oct 4 19:52:23 2004
@@ -138,9 +138,9 @@
(interactive)
(kill-all-local-variables)
(require 'cc-mode)
- (c-initialize-cc-mode)
+ (c-initialize-cc-mode t)
(use-local-map c-mode-map)
- (c-common-init)
+ (c-common-init 'awk-mode)
(setq major-mode 'awk-mode)
(setq mode-name "AWK")
(setq local-abbrev-table awk-mode-abbrev-table)
--- packages/xemacs-packages/prog-modes/uil-mode.el
+++ packages/xemacs-packages/prog-modes/uil-mode.el Mon Oct 4 19:56:59 2004
@@ -76,7 +76,7 @@
(interactive)
(kill-all-local-variables)
(require 'cc-mode)
- (c-initialize-cc-mode)
+ (c-initialize-cc-mode t)
(use-local-map c-mode-map)
(c-common-init)
(setq major-mode 'uil-mode)
++++++ packages-cvs-xemacs-sumo-2002-03-29-ps-print.patch ++++++
--- packages/xemacs-packages/ps-print/ps-mule.el Fri Apr 26 11:21:07 2002
+++ packages/xemacs-packages/ps-print/ps-mule.el Tue Apr 30 17:19:40 2002
@@ -328,6 +328,14 @@
Currently, data for Japanese and Korean PostScript printers are listed.")
+(define-coding-system-alias 'greek-iso-8bit 'iso-8859-7)
+(define-coding-system-alias 'hebrew-iso-8bit 'iso-8859-8)
+(define-coding-system-alias 'cyrillic-iso-8bit 'iso-8859-5)
+(define-coding-system-alias 'vietnamese-viscii 'viscii)
+(define-coding-system-alias 'chinese-big5 'big5)
+(define-coding-system-alias 'thai-tis620 'tis-620)
+
+
(defconst ps-mule-font-info-database-bdf
'((ascii
(normal bdf ("lt1-24-etl.bdf" "etl24-latin1.bdf") nil 1)
++++++ packages-cvs-xemacs-sumo-2005-12-08-apel.patch ++++++
Index: packages/xemacs-packages/apel/install.el
===================================================================
--- packages/xemacs-packages/apel/install.el.orig
+++ packages/xemacs-packages/apel/install.el
@@ -149,14 +149,17 @@
(featurep 'meadow) ; for Meadow
(and (eq system-type 'windows-nt) ; for NTEmacs
(>= emacs-major-version 20)))
- (expand-file-name "../../.." exec-directory)
+;; (expand-file-name "../../.." exec-directory)
+ (expand-file-name "../../.." data-directory)
(expand-file-name "../../../.." data-directory)))
(defvar install-elisp-prefix
- (if (>= emacs-major-version 19)
+ (if (and (not (featurep 'xemacs)) (>= emacs-major-version 19))
"site-lisp"
+ (if (featurep 'xemacs)
+ "xemacs-packages"
;; v18 does not have standard site directory.
- "local.lisp"))
+ "local.lisp")))
(defun install-detect-elisp-directory (&optional prefix elisp-prefix
allow-version-specific)
@@ -189,16 +192,15 @@
"\\\\" "/"))))
(throw 'tag (car rest))))
(setq rest (cdr rest)))))
- (expand-file-name (concat (if (and (not (featurep 'xemacs))
- (or (>= emacs-major-version 20)
- (and (= emacs-major-version 19)
- (> emacs-minor-version 28))))
+ (expand-file-name (concat (if (or (>= emacs-major-version 20)
+ (and (= emacs-major-version 19)
+ (> emacs-minor-version 28)))
"share/"
"lib/")
(cond
((featurep 'xemacs)
(if (featurep 'mule)
- "xmule/"
+ "xemacs/"
"xemacs/"))
;; unfortunately, unofficial mule based on
;; 19.29 and later use "emacs/" by default.
++++++ packages-cvs-xemacs-sumo-2005-12-08-diff-mode.patch ++++++
diff -ru packages.orig/xemacs-packages/prog-modes/diff-mode.el
packages/xemacs-packages/prog-modes/diff-mode.el
--- packages/xemacs-packages/prog-modes/diff-mode.el 2005-12-02
10:54:34.000000000 +0100
+++ packages/xemacs-packages/prog-modes/diff-mode.el 2005-12-13
17:18:21.000000000 +0100
@@ -914,6 +914,26 @@
(equal ?\ c)))
(forward-line 1))))))))))
+(defvar diff-fixup-modif-regexp
+ (concat
+ ;; start
+ "\\("
+ ;; unified hunk start
+ "@@ -[0-9,]+ \\+[0-9,]+ @@.*"
+ ;; or
+ "\\|"
+ ;; unified hunk+file start
+ ;; --- .*
+ ;; +++ .*
+ ;; @@ ...
+ "--- .+\n\\+\\+\\+ .+\n@@ -[0-9,]+ \\+[0-9,]+ @@"
+ ;; or
+ "\\|"
+ ;; context start
+ "[-*][-*][-*] .+ [-*][-*][-*][-*]"
+ ;; end
+ "\\)$"))
+
(defun diff-fixup-modifs (start end)
"Fixup the hunk headers (in case the buffer was modified).
START and END are either taken from the region (if a prefix arg is given) or
@@ -926,10 +946,7 @@
(goto-char end) (diff-end-of-hunk)
(let ((plus 0) (minus 0) (space 0) (bang 0))
(while (and (= (forward-line -1) 0) (<= start (point)))
- (if (not (looking-at
- (concat "@@ -[0-9,]+ \\+[0-9,]+ @@"
- "\\|[-*][-*][-*] [0-9,]+ [-*][-*][-*][-*]$"
- "\\|--- .+\n\\+\\+\\+ ")))
+ (if (not (looking-at diff-fixup-modif-regexp))
(case (char-after)
(?\ (incf space))
(?+ (incf plus))
++++++ texi-coding.patch ++++++
Index: packages/xemacs-packages/ecb/ecb.texi
===================================================================
--- packages/xemacs-packages/ecb/ecb.texi.orig
+++ packages/xemacs-packages/ecb/ecb.texi
@@ -1,4 +1,4 @@
-\input texinfo @c -*-texinfo-*-
+\input texinfo @c -*- mode: texinfo; coding: iso-8859-1; -*-
@c Copyright (C) 2000 - 2003 Jesper Nordenberg,
@c Klaus Berndl,
@@ -1380,7 +1380,7 @@ the value of @code{case-fold-search}.
Tip: The @code{ecb-minor-mode} offers you in the @code{ecb-mode-map}
(customizable via @code{ecb-key-map}) some keys for selecting every window
-of the ecb-frame. This makes window-selection a child�s play. For
+of the ecb-frame. This makes window-selection a child's play. For
example you can jump into the method-window by hitting @kbd{C-c . gm}.
@node Personal keybindings, Using popup-menus, Incremental search, Using the
keyboard
@@ -1556,7 +1556,7 @@ of the current ECB-layout there are two
@item If the function is contained in
@code{ecb-layout-always-operate-in-edit-window} the right edit-window
is selected (depends on the value of the option
-@code{ecb-mouse-click-destination}) and does then it�s job.
+@code{ecb-mouse-click-destination}) and does then it's job.
@item Otherwise the behavior depends on the value of the option
@code{ecb-advice-window-functions-signal-error}.
@@ -1599,7 +1599,7 @@ If called in the compile window there ar
If the function is contained in
@code{ecb-layout-always-operate-in-edit-window} the right edit-window
is selected (depends on the value of the option
-@code{ecb-mouse-click-destination}) and then it does it�s job.
+@code{ecb-mouse-click-destination}) and then it does it's job.
@item
Otherwise the behavior depends on the value of the option
@@ -7071,7 +7071,7 @@ the ECB-frame they behave all exactly li
But please read also the following:
-Normally all packages should work correct with ECB and it�s adviced
+Normally all packages should work correct with ECB and it's adviced
functions but if there occur problems with a package cause of some of
these adviced functions ECB offers the following fall-back solution:
@@ -8019,7 +8019,7 @@ GNU Emacs 20.X the basic face-settings c
customizing the face @code{ecb-default-highlight-face}!
@item ecb-directories-general-face:
-Basic face for the ECB directories buffer. It�s recommended to define
+Basic face for the ECB directories buffer. It's recommended to define
here the font-family, the font-size, the basic color etc.
@item ecb-directory-face:
@@ -8034,7 +8034,7 @@ Define face used for highlighting curren
buffer.
@item ecb-history-general-face:
-Basic face for the ECB history buffer. It�s recommended to define here
+Basic face for the ECB history buffer. It's recommended to define here
the font-family, the font-size, the basic color etc.
@item ecb-method-face:
@@ -8042,7 +8042,7 @@ Define face used for highlighting curren
the methods buffer.
@item ecb-methods-general-face:
-Basic face for the ECB methods buffer. It�s recommended to define here
+Basic face for the ECB methods buffer. It's recommended to define here
the font-family, the font-size, the basic color etc.
@item ecb-method-non-semantic-face:
@@ -8064,7 +8064,7 @@ buffer.
Define a face for displaying sources in the directories buffer.
@item ecb-sources-general-face:
-Basic face for the ECB sources buffer. It�s recommended to define here
+Basic face for the ECB sources buffer. It's recommended to define here
the font-family, the font-size, the basic color etc.
@item ecb-source-read-only-face
@@ -8713,7 +8713,7 @@ This command creates a problem-report bu
get a menu ``Mail'' (dependent on the mail-package used, the menu can
have a different name) with commands to send the problem report. But
for this the variable @code{mail-user-agent} must be configured right for
-your system. If you can�t get working this mechanism you can simply
+your system. If you can't get working this mechanism you can simply
copy the whole problem-report buffer after filling it out and sending
it with your standard mail-client to
@email{ecb-list@@lists.sourceforge.net}!
@@ -9004,7 +9004,7 @@ There are two basic faces:
@item @code{ecb-default-general-face}:
Basic face for displaying an ECB-tree-buffer.
-It�s recommended to define the font-family, the font-size, the basic
+It's recommended to define the font-family, the font-size, the basic
color etc. with this face.
In GNU Emacs 21.X all faces (even the face
@@ -11640,7 +11640,7 @@ very well under all circumstances!
@subsubsection Package calendar.el
@cindex calendar package
-With activated ECB @code{calendar} does not shrink it�s window to the small
+With activated ECB @code{calendar} does not shrink it's window to the small
size but splits the window equally. But if you add this to your
@file{.emacs} it works:
Index: packages/xemacs-packages/edit-utils/tempo.texi
===================================================================
--- packages/xemacs-packages/edit-utils/tempo.texi.orig
+++ packages/xemacs-packages/edit-utils/tempo.texi
@@ -1,4 +1,4 @@
-\input texinfo @c -*-texinfo-*-
+\input texinfo @c -*- mode: texinfo; coding: iso-8859-1; -*-
@c %**start of header
@setfilename tempo.info
@settitle Tempo manual
Index: packages/xemacs-packages/hm--html-menus/hm--html-mode.texi
===================================================================
--- packages/xemacs-packages/hm--html-menus/hm--html-mode.texi.orig
+++ packages/xemacs-packages/hm--html-menus/hm--html-mode.texi
@@ -1,4 +1,4 @@
-\input texinfo @c -*-texinfo-*-
+\input texinfo @c -*- mode: texinfo; coding: iso-8859-1; -*-
@comment %**start of header (This is for running Texinfo on a region.)
@setfilename hm--html-mode.info
@settitle HM HTML Mode
++++++ texi.patch ++++++
diff -ru packages.orig/xemacs-packages/tm/texi/tm-ja.texi
packages/xemacs-packages/tm/texi/tm-ja.texi
--- packages/xemacs-packages/tm/texi/tm-ja.texi 1998-06-15 07:54:30.000000000
+0200
+++ packages/xemacs-packages/tm/texi/tm-ja.texi 2005-02-15 11:21:45.000000000
+0100
@@ -340,7 +340,7 @@
$BBfOQ$d9a9A$GMQ$$$i$l$F$$$k<g$KHKBN;z$GI=5-$5$l$kCf9q8l$rI=8=$9$k$?$a$N(B
$B?^7AJ8;z=89g(B(@ref{Graphic character
set})$B!#BfOQ$NI8=`!#8=:_!"(B94$B!_(B94
-(@ref{94x94 character set}) $B$NLL$,Bh#1LL$+$iBh#7LL$^$G$"$k!#(B@refill
+(@ref{94x94-character set}) $B$NLL$,Bh#1LL$+$iBh#7LL$^$G$"$k!#(B@refill
ISO 2022 (@ref{ISO 2022}) $B$G$N=*C<J8;z$O(B
@@ -1492,7 +1492,7 @@
$B$a$NJ}K!$r$3$3$G$O(B @strong{PGP-kazu} $B$H8F$V$3$H$K$9$k!#(B@refill
PGP-kazu $B$O(B @strong{application/pgp} $B$H$$$&(B content-type
-(@ref{content-type}) $B$rDj5A$9$k!#(B@refill
+(@ref{Content-Type field}) $B$rDj5A$9$k!#(B@refill
application/pgp $B$N(B part $B$G$O(B PGP $B$N(B encapsulation
(@ref{encapsulation})
$B$,MQ$$$i$l$k!#(BPGP $B$N(B encapsulation (cf. @ref{RFC 934})
@@ -1546,7 +1546,7 @@
@subsection Quoted-Printable
RFC 2045 (@ref{RFC 2045}) $B$GDj5A$5$l$F$$$k(B MIME (@ref{MIME})
$B$K$*$1$k(B
-binary data (@ref{binary data}) $B$N(B network
$B$G$NJQ49K!$N#1$D!#(B@refill
+binary data (@ref{binary}) $B$N(B network $B$G$NJQ49K!$N#1$D!#(B@refill
`=' $B$d@)8fJ8;z$d(B 128 $B0J>e$NJ8;z$J$I$O(B `=AF' $B$N$h$&$K(B `='
$B$N8e$KB3$/(B 16
$B?J?t$GI=8=$9$k!#$3$N$?$a!"(BASCII (@ref{ASCII}) $BJ8;zCf?4$N(B data
$B$G$O(B
++++++ texi2utf8 ++++++
#!/bin/sh
for i in $(find . -name "*.texi*")
do
xemacs -q -batch \
-eval '(setq load-path (append (list "xemacs-packages/xemacs-base/")
load-path)))' \
-eval '(setq load-path (append (list "xemacs-packages/sgml/")
load-path)))' \
-eval '(setq load-path (append (list "xemacs-packages/texinfo/")
load-path)))' \
-eval '(load-library "skeleton")' \
-eval '(load-library "outline")' \
-eval '(load-library "texinfo")' \
$i \
-eval '(set-language-environment "Japanese")' \
-eval '(replace-regexp
"\\(-\\*-.*coding:\\s-*\\)\\(\\S-+\\)\\(\\s-*-\\*-\\)" "\\1utf-8\\3")' \
-eval '(set-buffer-file-coding-system (quote utf-8))' \
-eval '(set-buffer-modified-p t (current-buffer))' \
-eval '(save-buffer 0)'
done
++++++ xe-list.el ++++++
(defvar xe-list-file-name "xe-list")
(defun xe-list-find-el (&optional buffer)
(interactive)
(let ((el-with-elc)
(el-without-elc))
(save-excursion
(if buffer
(set-buffer buffer))
(goto-char (point-min))
(while (re-search-forward "^\\(.*\\.el\\)$" nil t)
(let ((el (match-string 1)))
(save-excursion
(goto-char (point-min))
(if (re-search-forward (concat "^" (regexp-quote el) "c$") nil t)
(setq el-with-elc (cons el el-with-elc))
(setq el-without-elc (cons el el-without-elc)))))))
(list (nreverse el-with-elc) (nreverse el-without-elc))))
(defun xe-list-find-elc (&optional buffer)
(interactive)
(let ((elc-with-el)
(elc-without-el))
(save-excursion
(if buffer
(set-buffer buffer))
(goto-char (point-min))
(while (re-search-forward "^\\(.*\\.elc\\)$" nil t)
(let ((elc (match-string 1))
(el (replace-in-string (match-string 1) "\\.elc$" ".el")))
(save-excursion
(goto-char (point-min))
(if (re-search-forward (concat "^" (regexp-quote el) "$") nil t)
(setq elc-with-el (cons elc elc-with-el))
(setq elc-without-el (cons elc elc-without-el)))))))
(list (nreverse elc-with-el) (nreverse elc-without-el))))
(defun xe-list-write-list-to-file (list file)
(interactive)
(with-temp-buffer
(mapcar (lambda (x) (insert x) (insert "\n"))
list)
(write-file file)))
(defun xe-list-generate-list-files ()
(interactive)
(let ((el-lists)
(elc-lists))
(find-file xe-list-file-name)
(setq el-lists (xe-list-find-el xe-list-file-name))
(setq elc-lists (xe-list-find-elc xe-list-file-name))
(xe-list-write-list-to-file (car el-lists)
(concat xe-list-file-name "-el-with-elc"))
(xe-list-write-list-to-file (car (cdr el-lists))
(concat xe-list-file-name "-el-without-elc"))
(xe-list-write-list-to-file (car elc-lists)
(concat xe-list-file-name "-elc-with-el"))
(xe-list-write-list-to-file (car (cdr elc-lists))
(concat xe-list-file-name "-elc-without-el"))))
++++++ xemacs-packages-20130822-tramp.patch ++++++
---
xemacs-packages-20130822/xemacs-packages/tramp/lisp/tramp-compat.el | 3 +++
1 file changed, 3 insertions(+)
--- xemacs-packages-20130822/xemacs-packages/tramp/lisp/tramp-compat.el
+++ xemacs-packages-20130822/xemacs-packages/tramp/lisp/tramp-compat.el
2015-02-11 13:47:13.405517971 +0000
@@ -55,6 +55,9 @@
(require 'trampver)
(require 'tramp-loaddefs)
+ (if (featurep 'xemacs)
+ (load "subr-more" 'noerror t))
+
;; As long as password.el is not part of (X)Emacs, it shouldn't be
;; mandatory.
(if (featurep 'xemacs)
++++++ xemacs-packages-expand-kw.diff ++++++
++++ 608 lines (skipped)
++++++ xemacs-packages-rpmlintrc ++++++
addFilter(".*zero-length.*auto-autoloads\.el.*")
addFilter(".*zero-length.*custom-load\.el.*")
addFilter(".*zero-length.*ecb-buffertab\.el.*")
addFilter(".*non-etc-or-var-file-marked-as-conffile.*/Emacs.*")
addFilter(".*devel-file-in-non-devel-package.*/MANIFEST.pc.*")
addFilter(".*hidden-file-or-dir.*/var/.dummy.*")
addFilter(".*hidden-file-or-dir.*/x-symbol/.ispell_xsymb.*")
addFilter(".*patch-not-applied.*comint.patch.*")
addFilter(".*macro-in-comment.*%patch.*")
addFilter(".*macro-in-comment.*%{buildroot}.*")
addFilter(".*files-duplicate.*/.*\.el.*")
addFilter(".*incorrect-fsf-address.*")
++++++ xemacs-packages.patch ++++++
Index: packages/xemacs-packages/calc/calc-ext.el
===================================================================
--- packages/xemacs-packages/calc/calc-ext.el.orig
+++ packages/xemacs-packages/calc/calc-ext.el
@@ -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)
Index: packages/xemacs-packages/calc/calc.el
===================================================================
--- packages/xemacs-packages/calc/calc.el.orig
+++ packages/xemacs-packages/calc/calc.el
@@ -64,7 +64,7 @@
;;; "report-calc-bug", and "defmath". User-accessible variables begin
;;; with "var-".
-
+(require 'calc-macs)
(provide 'calc)
Index: packages/xemacs-packages/edit-utils/paren.el
===================================================================
--- packages/xemacs-packages/edit-utils/paren.el.orig
+++ packages/xemacs-packages/edit-utils/paren.el
@@ -147,7 +147,7 @@ appropriate for the syntax of a program
"*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...
Index: packages/xemacs-packages/gnats/lib-src/install-sid
===================================================================
--- packages/xemacs-packages/gnats/lib-src/install-sid.orig
+++ packages/xemacs-packages/gnats/lib-src/install-sid
@@ -29,6 +29,14 @@ BINDIR=/usr/bin
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"
Index: packages/xemacs-packages/gnats/lib-src/send-pr
===================================================================
--- packages/xemacs-packages/gnats/lib-src/send-pr.orig
+++ packages/xemacs-packages/gnats/lib-src/send-pr
@@ -76,18 +76,25 @@ fi
#
-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 @@ DESCRIPTION_C='<precise description of t
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
Index: packages/xemacs-packages/ispell/ispell.el
===================================================================
--- packages/xemacs-packages/ispell/ispell.el.orig
+++ packages/xemacs-packages/ispell/ispell.el
@@ -523,7 +523,7 @@ and then re-start emacs."
;;; 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 @@ and then re-start emacs."
;;; 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 @@ and then re-start emacs."
;;; 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 @@ and then re-start emacs."
;;; 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 @@ and then re-start emacs."
;;; 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 @@ and then re-start emacs."
;;; 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 @@ LANGUAGE.aff file \(e.g., english.aff\).
(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))
Index: packages/xemacs-packages/speedbar/speedbar.el
===================================================================
--- packages/xemacs-packages/speedbar/speedbar.el.orig
+++ packages/xemacs-packages/speedbar/speedbar.el
@@ -1640,11 +1640,11 @@ Images are not available in Emacs 20 or
(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)
Index: packages/xemacs-packages/tm/lib-src/pstogif
===================================================================
--- packages/xemacs-packages/tm/lib-src/pstogif.orig
+++ packages/xemacs-packages/tm/lib-src/pstogif
@@ -45,6 +45,15 @@ eval 'exec perl -w -S $0 ${1+"$@"}' # Po
#
#####################################################################
+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 @@ $PNMCROP=$ENV{'PNMCROP'} || 'pnmcrop' ;
# 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 @@ sub crop_scale_etc {
local($tmp) = $in . ".tmp";
open(STDERR, ">/dev/null") unless $DEBUG;
+ unlink $tmp;
if ($flip) {
rename($tmp, $in) unless system("$PNMFLIP -$flip $in > $tmp");
}
Index: packages/xemacs-packages/tm/lib-src/tm-au
===================================================================
--- packages/xemacs-packages/tm/lib-src/tm-au.orig
+++ packages/xemacs-packages/tm/lib-src/tm-au
@@ -28,6 +28,10 @@ fi
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 @@ fi
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 @@ case "$4" in
else
autool -v 40 $filename
fi
-
- trap 'rm -f $filename' 0 1 2 3 13 15
;;
"extract")
echo "$2; $3 -> $filename"
Index: packages/xemacs-packages/tm/lib-src/tm-file
===================================================================
--- packages/xemacs-packages/tm/lib-src/tm-file.orig
+++ packages/xemacs-packages/tm/lib-src/tm-file
@@ -28,6 +28,10 @@ fi
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
Index: packages/xemacs-packages/tm/lib-src/tm-html
===================================================================
--- packages/xemacs-packages/tm/lib-src/tm-html.orig
+++ packages/xemacs-packages/tm/lib-src/tm-html
@@ -33,6 +33,10 @@ fi
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 @@ tmdecode "$3" $1 $filename
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 @@ case "$4" in
echo not netscape
$TM_WWW_BROWSER $filename
fi
- trap 'rm -f $filename' 0 1 2 3 13 15
;;
"extract")
echo "extract to $filename"
Index: packages/xemacs-packages/tm/lib-src/tm-image
===================================================================
--- packages/xemacs-packages/tm/lib-src/tm-image.orig
+++ packages/xemacs-packages/tm/lib-src/tm-image
@@ -52,6 +52,11 @@ if [ "$5" = "" ]; then
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 @@ tmdecode $3 $1 $filename
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"
Index: packages/xemacs-packages/tm/lib-src/tm-mpeg
===================================================================
--- packages/xemacs-packages/tm/lib-src/tm-mpeg.orig
+++ packages/xemacs-packages/tm/lib-src/tm-mpeg
@@ -27,6 +27,10 @@ if [ "$TM_TMP_DIR" = "" ]; then
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 @@ tmdecode $3 $1 $filename
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"
Index: packages/xemacs-packages/tm/lib-src/tm-plain
===================================================================
--- packages/xemacs-packages/tm/lib-src/tm-plain.orig
+++ packages/xemacs-packages/tm/lib-src/tm-plain
@@ -27,12 +27,18 @@ if [ "$TM_TMP_DIR" = "" ]; then
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 @@ case "$4" in
tmdecode "$3" "$1" $filename
;;
"print")
+ trap 'rm -f $filename' 0 1 2 3 13 15
+
echo "$2; $3 ->"
tmdecode "$3" "$1" /dev/stdout | lpr
;;
Index: packages/xemacs-packages/tm/lib-src/tm-ps
===================================================================
--- packages/xemacs-packages/tm/lib-src/tm-ps.orig
+++ packages/xemacs-packages/tm/lib-src/tm-ps
@@ -27,16 +27,21 @@ if [ "$TM_TMP_DIR" = "" ]; then
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 @@ case "$4" in
tmdecode "$3" "$1" $filename
;;
"print")
+ trap 'rm -f $filename' 0 1 2 3 13 15
+
echo "$2; $3 ->"
tmdecode "$3" "$1" /dev/stdout | lpr
;;
Index: packages/xemacs-packages/tm/lib-src/tmdecode
===================================================================
--- packages/xemacs-packages/tm/lib-src/tmdecode.orig
+++ packages/xemacs-packages/tm/lib-src/tmdecode
@@ -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 @@ case "$3" in
OUTPUT=
;;
*)
- OUTPUT='> $3'
+ OUTPUT='-o $3'
;;
esac
@@ -37,17 +39,18 @@ case "$1" in
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"
;;
*)
Index: packages/xemacs-packages/tm/mel-u.el
===================================================================
--- packages/xemacs-packages/tm/mel-u.el.orig
+++ packages/xemacs-packages/tm/mel-u.el
@@ -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 @@ This function uses external uuencode dec
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 @@ variable `uuencode-external-decoder'."
(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)
Index: packages/xemacs-packages/tm/tm-play.el
===================================================================
--- packages/xemacs-packages/tm/tm-play.el.orig
+++ packages/xemacs-packages/tm/tm-play.el
@@ -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))
Index: packages/xemacs-packages/viper/viper-ex.el
===================================================================
--- packages/xemacs-packages/viper/viper-ex.el.orig
+++ packages/xemacs-packages/viper/viper-ex.el
@@ -1870,7 +1870,7 @@ reversed."
(condition-case nil
(progn
(pop-to-buffer (get-buffer-create "*info*"))
- (info (if (featurep 'xemacs) "viper.info" "viper"))
+ (info (if (featurep 'xemacs) "/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*"
Index: packages/xemacs-packages/w3/lisp/css.el
===================================================================
--- packages/xemacs-packages/w3/lisp/css.el.orig
+++ packages/xemacs-packages/w3/lisp/css.el
@@ -208,8 +208,9 @@ For a terminal screen, the value is alwa
(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)
Index: packages/package-compile.el
===================================================================
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
