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 - werner@suse.de + +- 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 - ailin.nemui@gmail.com + +- 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 - ailin.nemui@gmail.com + +- 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 - ailin.nemui@gmail.com + +- 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 - ailin.nemui@gmail.com + +- 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 - ailin.nemui@gmail.com + +- 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 - werner@suse.de + +- Again, make it build with latest TeXLive 2012 + +------------------------------------------------------------------- +Wed Aug 8 14:16:07 UTC 2012 - ailin.nemui@gmail.com + +- 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 - werner@suse.de + +- Make it build with latest TeXLive 2012 + +------------------------------------------------------------------- +Sat Jun 30 18:09:30 UTC 2012 - i@marguerite.su + +- 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 - werner@suse.de + +- Make rpmlint happy + +------------------------------------------------------------------- +Fri Mar 2 12:25:51 UTC 2012 - werner@suse.de + +- 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 - coolo@novell.com + +- ignore subpackages required by xemacs to avoid build cycle + +------------------------------------------------------------------- +Wed Mar 31 14:56:07 CEST 2010 - werner@suse.de + +- Force build with newer test version instead of 25.5.29 (bnc#590429) + +------------------------------------------------------------------- +Mon Feb 22 16:39:28 CET 2010 - werner@suse.de + +- Update the sub package vc to 1.48 to fix a bug (bnc#568556) + +------------------------------------------------------------------- +Wed Dec 9 16:27:46 CET 2009 - werner@suse.de + +- 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 - werner@suse.de + +- Make it work with latest xemacs beta version + +------------------------------------------------------------------- +Wed Dec 2 15:50:56 CET 2009 - werner@suse.de + +- Add missing autoloads to fix nasty error message (bnc#557739) + +------------------------------------------------------------------- +Wed Aug 26 13:00:30 CEST 2009 - tiwai@suse.de + +- Add provides and obsoletes for apel-xemacs + +------------------------------------------------------------------- +Tue Aug 25 16:41:10 CEST 2009 - aj@suse.de + +- Apply patch for apel to make it build. +- Fix filelist. +- Fix some rpmlint warnings. + +------------------------------------------------------------------- +Mon Jun 22 12:14:08 CEST 2009 - coolo@novell.com + +- 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 - mfabian@suse.de + +- bnc#389154: add fix for fast-lock to avoid the possible + execution of arbitrary lisp code. + +------------------------------------------------------------------- +Fri Dec 21 19:39:24 CET 2007 - mfabian@suse.de + +- fix wrong property list entries for faces. + +------------------------------------------------------------------- +Wed Dec 05 16:12:09 CET 2007 - mfabian@suse.de + +- remove openldap2 from BuildRequires. + +------------------------------------------------------------------- +Fri Aug 10 23:42:12 CEST 2007 - mfabian@suse.de + +- update German app-defaults. + +------------------------------------------------------------------- +Wed Aug 08 15:21:39 CEST 2007 - mfabian@suse.de + +- 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/18106.11226.538195.43364@parhasard.net). + +------------------------------------------------------------------- +Mon Jul 16 12:19:24 CEST 2007 - mfabian@suse.de + +- 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 <mfabian@suse.de> +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +!! 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 <mfabian@suse.de> +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +!! 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 <tex@itap.physik.uni-stuttgart.de> ;; Please direct comments to him. +;; +;; Change to new dinbrief.sty -- Werner Fink <werner@suse.de> +;; ... 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: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org