2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

xemacs-cvs December 2005

xemacs-cvs@xemacs.org

1 participants
168 discussions

Start a nNew thread

CVS update by vins xemacs/nt ... 19 years, 3 months

CVS Monitor

User: vins Date: 05/12/18 02:28:50 Branch: xemacs/nt release-21-4 Modified: xemacs/nt ChangeLog XEmacs.iss Log: Updated install script for Windows native kit. Revision Changes Path 1.89.2.38 +4 -0 XEmacs/xemacs/nt/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/nt/ChangeLog,v retrieving revision 1.89.2.37 retrieving revision 1.89.2.38 diff -u -p -r1.89.2.37 -r1.89.2.38 --- … [View More]ChangeLog 2005/12/16 01:12:14 1.89.2.37 +++ ChangeLog 2005/12/18 01:28:46 1.89.2.38 ＠＠ -1,3 +1,7 ＠＠ +2005-12-17 Vin Shelton <acs(a)xemacs.org> + + * XEmacs.iss: Move packages out of version-specific location. + 2005-12-15 Vin Shelton <acs(a)xemacs.org> * XEmacs.iss: Created for generating winoze setup kits. 1.1.2.2 +27 -22 XEmacs/xemacs/nt/Attic/XEmacs.iss Index: XEmacs.iss =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/nt/Attic/XEmacs.iss,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -u -p -r1.1.2.1 -r1.1.2.2 --- XEmacs.iss 2005/12/16 01:12:15 1.1.2.1 +++ XEmacs.iss 2005/12/18 01:28:48 1.1.2.2 ＠＠ -1,5 +1,8 ＠＠ ; This script generates an installation kit for a Windows-native XEmacs, version 21.4. ; This script runs with Inno Setup version 5.1.6, see http://www.jrsoftware.org/ for more info. +; +; Version History +; 2005-12-17 Vin Shelton <acs(a)xemacs.org> Move packages out of the version-specific tree ; 2005-12-13 Vin Shelton <acs(a)xemacs.org> Created. [Setup] ＠＠ -10,11 +13,11 ＠＠ AppPublisher=The XEmacs Development Team AppPublisherURL=http://www.xemacs.org AppSupportURL=http://www.xemacs.org AppUpdatesURL=http://www.xemacs.org -DefaultDirName={sd}\XEmacs-{code:XEmacsVersion} +DefaultDirName={sd}\XEmacs DefaultGroupName=XEmacs AllowNoIcons=yes OutputDir=. -OutputBaseFilename=XEmacs Setup 21.4.18 +OutputBaseFilename=XEmacs Setup 21.4.18-1 Compression=lzma SolidCompression=yes ＠＠ -26,60 +29,62 ＠＠ Name: "desktopicon"; Description: "{cm:C Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked [Files] -Source: "C:\XEmacs-21.4.18\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs +; Before you run this script, XEmacs-21.4 must be installed in c:\XEmacs\XEmacs-21.4.xx +; and any packages you want to include must be installed in c:\XEmacs\Packages +Source: "C:\XEmacs\XEmacs-21.4.18\*"; DestDir: "{app}\XEmacs-{code:XEmacsVersion}"; Flags: ignoreversion recursesubdirs createallsubdirs +Source: "C:\XEmacs\Packages\*"; DestDir: "{app}\Packages"; Flags: ignoreversion recursesubdirs createallsubdirs ; NOTE: Don't use "Flags: ignoreversion" on any shared system files [INI] Filename: "{app}\xemacs.url"; Section: "InternetShortcut"; Key: "URL"; String: "http://www.xemacs.org" [Icons] -Name: "{group}\XEmacs"; Filename: "{app}\i586-pc-win32\xemacs.exe" +Name: "{group}\XEmacs"; Filename: "{app}\XEmacs-{code:XEmacsVersion}\i586-pc-win32\xemacs.exe" Name: "{group}\{cm:ProgramOnTheWeb,XEmacs}"; Filename: "{app}\xemacs.url" Name: "{group}\{cm:UninstallProgram,XEmacs}"; Filename: "{uninstallexe}" -Name: "{userdesktop}\XEmacs"; Filename: "{app}\i586-pc-win32\xemacs.exe"; Tasks: desktopicon -Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\XEmacs"; Filename: "{app}\i586-pc-win32\xemacs.exe"; Tasks: quicklaunchicon +Name: "{userdesktop}\XEmacs"; Filename: "{app}\XEmacs-{code:XEmacsVersion}\i586-pc-win32\xemacs.exe"; Tasks: desktopicon +Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\XEmacs"; Filename: "{app}\XEmacs-{code:XEmacsVersion}\i586-pc-win32\xemacs.exe"; Tasks: quicklaunchicon +[Registry] +; Set a registry key to point to the packages so they can be shared between multiple installed versions of XEmacs +Root: HKLM; Subkey: "Software\XEmacs\XEmacs"; ValueType: string; ValueName: "EMACSPACKAGEPATH"; ValueData: "{app}\Packages"; Flags: uninsdeletekey + [Run] -Filename: "{app}\i586-pc-win32\xemacs.exe"; Description: "{cm:LaunchProgram,XEmacs}"; Flags: nowait postinstall skipifsilent +Filename: "{app}\XEmacs-{code:XEmacsVersion}\i586-pc-win32\xemacs.exe"; Description: "{cm:LaunchProgram,XEmacs}"; Flags: nowait postinstall skipifsilent [UninstallDelete] Type: files; Name: "{app}\xemacs.url" [Code] -var - FinishedInstall: Boolean; - -procedure CurStepChanged(CurStep: TSetupStep); +function XEmacsVersion(Param: String): String; begin - if CurStep = ssPostInstall then - FinishedInstall := True; + Result := '21.4.18'; end; -procedure DeinitializeSetup(); +procedure CurStepChanged(CurStep: TSetupStep); var EtcDir: String; SiteStart: String; begin + // Create a site-start.el file to allow easy package downloading in the future. // E.g, here's what we're going to add to lisp\site-start.el: - // (setq package-get-package-index-file-location "C:\\XEmacs-21.4.18\\etc") + // (setq package-get-package-index-file-location "C:\\XEmacs\\XEmacs-21.4.18\\etc") // ; Uncomment the next line to select the primary XEmacs package download site // ;(setq package-get-remote '("ftp.xemacs.org" "pub/xemacs/packages")) - if FinishedInstall = True then begin + if CurStep = ssPostInstall then begin // Convert etc directory name to lisp format by doubling each backslash - EtcDir := WizardDirValue + '\etc'; + EtcDir := WizardDirValue + '\XEmacs-' + XEmacsVersion('') + '\etc'; StringChange(EtcDir, '\', '\\'); - SiteStart := WizardDirValue + '\lisp\site-start.el'; + SiteStart := WizardDirValue + '\Packages\site-packages\lisp'; + CreateDir(SiteStart); + SiteStart := SiteStart + '\site-start.el'; SaveStringToFile(SiteStart, #13#10 + '(setq package-get-package-index-file-location "' + EtcDir + '")' + #13#10, True); SaveStringToFile(SiteStart, '; Uncomment the next line to select the primary XEmacs package download site' + #13#10, True); SaveStringToFile(SiteStart, ';(setq package-get-remote ' + Chr(39) + '("ftp.xemacs.org" "pub/xemacs/packages"))' + #13#10, True); end; end; -function XEmacsVersion(Param: String): String; -begin - Result := '21.4.18'; -end; [View Less]

1 participants
0 comments

CVS update by viteno xemacs ... 19 years, 3 months

CVS Monitor

User: viteno Date: 05/12/17 23:51:07 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1379 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1378 retrieving revision 1.1379 diff -u -p -r1.1378 -r1.1379 --- version.sh 2005/12/16 22:51:11 1.1378 +++ version.sh 2005/12/17 22:51:07 1.1379 ＠＠ -8,5 +8,… [View More]

1 participants
0 comments

CVS update by aidan xemacs/src ... 19 years, 3 months

CVS Monitor

User: aidan Date: 05/12/17 22:04:18 Modified: xemacs/src ChangeLog buffer.c Log: standard-syntax-table, standard-category-table are not in Lisp Revision Changes Path 1.904 +6 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.903 retrieving revision 1.904 diff -u -p -r1.903 -r1.904 --- ChangeLog 2005/12/17 19:47:01 1.903 +++ … [View More]

1 participants
0 comments

CVS update by aidan xemacs/src ... 19 years, 3 months

CVS Monitor

User: aidan Date: 05/12/17 20:47:05 Modified: xemacs/src ChangeLog console-x.c event-Xt.c file-coding.c Log: Fix self-insert-command with X11 input methods. Addresses Zhang Wei's problem of 871x118lc4.fsf(a)gmail.com. Revision Changes Path 1.710 +12 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.709 retrieving revision 1.… [View More]710 diff -u -p -r1.709 -r1.710 --- ChangeLog 2005/12/16 23:52:22 1.709 +++ ChangeLog 2005/12/17 19:46:57 1.710 ＠＠ -1,3 +1,15 ＠＠ +2005-12-17 Aidan Kehoe <kehoea(a)parhasard.net> + + * mule/mule-cmds.el (set-language-environment-coding-systems): + Initialise keyboard-coding-system, terminal-coding-system when + applying a language environment, together with the input and + output coding systems for any active TTY console. + * mule/mule-cmds.el (init-locale-at-early-startup): + If set-current-locale returns a `more-specified version' of the + current locale when passed a zero length argument, the magic used + to work out the current language environment from the C locale + will fail. Call current-locale instead. + 2005-12-17 Adrian Aichner <adrian(a)xemacs.org> * package-get.el (package-get-download-sites): Add Hong Kong 1.26 +15 -1 XEmacs/xemacs/lisp/mule/mule-cmds.el Index: mule-cmds.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/mule-cmds.el,v retrieving revision 1.25 retrieving revision 1.26 diff -u -p -r1.25 -r1.26 --- mule-cmds.el 2005/10/04 16:43:36 1.25 +++ mule-cmds.el 2005/12/17 19:47:00 1.26 ＠＠ -1271,6 +1271,20 ＠＠ of buffer-file-coding-system set by this (warn "Invalid native-coding-system %s in language environment %s" native language-name))) (define-coding-system-alias 'file-name 'native) + ;; Set the default keyboard and terminal coding systems to the native + ;; coding system of the language environment. + ;; + (setq keyboard-coding-system native + terminal-coding-system native) + + ;; And do the same for any TTYs. + (dolist (con (console-list)) + (when (eq 'tty (device-type (car (console-device-list con)))) + ;; Calling set-input-mode at the same time would be a sane thing + ;; to do here. I would prefer to default to accepting eight bit + ;; input and not using the top bit for Meta. + (set-console-tty-coding-system con native))) + ;; process output should not have EOL conversion. under MS Windows ;; and Cygwin, this screws things up (`cmd' is fine with just LF and ;; `bash' chokes on CR-LF). ＠＠ -1327,7 +1341,7 ＠＠ of buffer-file-coding-system set by this ;; locale but we should still use the right code page, etc. (declare-fboundp (mswindows-set-current-locale userdef))) ;; Unix: - (let ((locstring (set-current-locale ""))) + (let ((locstring (current-locale))) ;; assume C lib locale and LANG env var are set correctly. use ;; them to find the langenv. (setq langenv 1.903 +15 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.902 retrieving revision 1.903 diff -u -p -r1.902 -r1.903 --- ChangeLog 2005/11/30 11:28:56 1.902 +++ ChangeLog 2005/12/17 19:47:01 1.903 ＠＠ -1,3 +1,18 ＠＠ +2005-12-17 Aidan Kehoe <kehoea(a)parhasard.net> + + * console-x.c (x_perhaps_init_unseen_key_defaults): + If the key name is a single character, and the keysym is NoSymbol, + give it a default binding, if that is possible. This addresses the + problem Zhang Wei points out in <871x118lc4.fsf(a)gmail.com> + * event-Xt.c (x_to_emacs_keysym): + Print the characters of a keysym's name directly if it's printable + ASCII, or as an octal escape if it's not. + + Use keyboard-coding-system rather than undecided for decoding the + keysym name passed to us by an input method. + * file-coding.c (vars_of_file_coding): + Document that keyboard-coding-system is also used for X11. + 2005-11-29 Marcus Crestani <crestani(a)xemacs.org> * xemacs.def.in.in: Condition error_check_* symbols on 1.16 +20 -0 XEmacs/xemacs/src/console-x.c Index: console-x.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/console-x.c,v retrieving revision 1.15 retrieving revision 1.16 diff -u -p -r1.15 -r1.16 --- console-x.c 2005/06/29 09:47:35 1.15 +++ console-x.c 2005/12/17 19:47:02 1.16 ＠＠ -349,6 +349,26 ＠＠ x_perhaps_init_unseen_key_defaults (stru xkeysym = XStringToKeysym(keysym_ext); if (NoSymbol == xkeysym) { + /* Keysym is NoSymbol; this may mean the key event passed to us came + from an input method, which stored the actual character intended to + be inserted in the key name, and didn't trouble itself to set the + keycode to anything useful. Thus, if the key name is a single + character, and the keysym is NoSymbol, give it a default binding, + if that is possible. */ + Lisp_Object keychar; + + if (1 != string_char_length(key_name)) + { + /* Don't let them pass us more than one character. */ + return Qnil; + } + keychar = make_char(itext_ichar(XSTRING_DATA(key_name))); + if (NILP (Flookup_key (Vcurrent_global_map, keychar, Qnil))) + { + Fdefine_key (Vcurrent_global_map, keychar, Qself_insert_command); + Fputhash (keychar, Qt, DEVICE_X_KEYSYM_MAP_HASH_TABLE (d)); + return Qt; + } return Qnil; } 1.90 +20 -3 XEmacs/xemacs/src/event-Xt.c Index: event-Xt.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/event-Xt.c,v retrieving revision 1.89 retrieving revision 1.90 diff -u -p -r1.89 -r1.90 --- event-Xt.c 2005/11/26 11:46:07 1.89 +++ event-Xt.c 2005/12/17 19:47:03 1.90 ＠＠ -898,7 +898,16 ＠＠ x_to_emacs_keysym (XKeyPressedEvent *eve int j; stderr_out (" chars=\""); for (j=0; j<len; j++) - stderr_out ("%c", bufptr[j]); + { + if (040 <= bufptr[j] && bufptr[j] >= 0177) + { + stderr_out ("%c", bufptr[j]); + } + else + { + stderr_out ("\\%o", (unsigned)(bufptr[j])); + } + } stderr_out ("\""); } else if (bufptr[0] <= 32 || bufptr[0] >= 127) ＠＠ -928,10 +937,18 ＠＠ x_to_emacs_keysym (XKeyPressedEvent *eve fb_instream = make_fixed_buffer_input_stream (bufptr, len); - /* #### Use get_coding_system_for_text_file (Vcomposed_input_coding_system, 0) */ + /* [[ Use get_coding_system_for_text_file + (Vcomposed_input_coding_system, 0) ]] + + Nope. If it is possible for the X libraries to have multiple IM + connections on different DISPLAYs active at once, this should be + a console-specific variable (like a TTY's coding system) but I've + seen no evidence that that is possible. Aidan Kehoe, + 2005-12-17. */ + instream = make_coding_input_stream - (XLSTREAM (fb_instream), Qundecided, CODING_DECODE, 0); + (XLSTREAM (fb_instream), Qkeyboard, CODING_DECODE, 0); istr = XLSTREAM (instream); 1.50 +8 -2 XEmacs/xemacs/src/file-coding.c Index: file-coding.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/file-coding.c,v retrieving revision 1.49 retrieving revision 1.50 diff -u -p -r1.49 -r1.50 --- file-coding.c 2005/10/25 11:16:24 1.49 +++ file-coding.c 2005/12/17 19:47:03 1.50 ＠＠ -4600,8 +4600,14 ＠＠ vars_of_file_coding (void) #endif DEFVAR_LISP ("keyboard-coding-system", &Vkeyboard_coding_system /* -Coding system used for TTY keyboard input. -Not used under a windowing system. +Default coding system used for TTY and X11 keyboard input. +Under X11, used only to interpet the character for a key event when that +event has a KeySym of NoSymbol but does have an associated string keysym, +something that's seen with input methods. + +If you need to set these things to different coding systems, call the +function `set-console-tty-coding-system' for the TTY and use this variable +for X11. */ ); Vkeyboard_coding_system = Qnil; [View Less]

1 participants
0 comments

CVS update by scop packages/xemacs-packages/python-modes, pydoc.el ... 19 years, 3 months

CVS Monitor

User: scop Date: 05/12/17 11:03:17 Modified: packages/xemacs-packages/python-modes ChangeLog Makefile pydoc.el Log: Find pydoc_lisp.py out of the box <1134170914.8084.41.camel(a)localhost.localdomain> Revision Changes Path 1.16 +9 -0 XEmacs/packages/xemacs-packages/python-modes/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/python-… [View More]modes/ChangeLog,v retrieving revision 1.15 retrieving revision 1.16 diff -u -p -r1.15 -r1.16 --- ChangeLog 2004/04/13 08:50:19 1.15 +++ ChangeLog 2005/12/17 10:03:17 1.16 ＠＠ -1,3 +1,12 ＠＠ +2005-12-10 Ville Skyttä <scop(a)xemacs.org> + + * pydoc.el (pydoc-initialize): Make python search for + pydoc_lisp.py* from the package data dir. + + * Makefile (DATA_FILES): New, add pydoc_lisp.py. + (DATA_DEST): New, set to $(PACKAGE). + (EXTRA_SOURCES): Remove pydoc_lisp.py. + 2004-04-13 Norbert Koch <viteno(a)xemacs.org> * Makefile (VERSION): XEmacs package 1.06 released. 1.14 +4 -1 XEmacs/packages/xemacs-packages/python-modes/Makefile Index: Makefile =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/python-modes/Makefile,v retrieving revision 1.13 retrieving revision 1.14 diff -u -p -r1.13 -r1.14 --- Makefile 2004/04/13 08:50:19 1.13 +++ Makefile 2005/12/17 10:03:17 1.14 ＠＠ -27,6 +27,9 ＠＠ CATEGORY = standard ELCS = pydoc.elc python-mode.elc -EXTRA_SOURCES = pydoc-el-README pydoc_lisp.py +EXTRA_SOURCES = pydoc-el-README + +DATA_FILES = pydoc_lisp.py +DATA_DEST = $(PACKAGE) include ../../XEmacs.rules 1.2 +9 -3 XEmacs/packages/xemacs-packages/python-modes/pydoc.el Index: pydoc.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/python-modes/pydoc.el,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- pydoc.el 2002/09/18 06:04:19 1.1 +++ pydoc.el 2005/12/17 10:03:17 1.2 ＠＠ -383,18 +383,24 ＠＠ Assumes caller has checked that `dialog- (defun pydoc-initialize() (message "Please wait a moment while the Python help system is initialized...") - (let (output-buf) + ;; XEmacs change: help python find pydoc_lisp.py OOTB. + (let ((output-buf) + (pydir (locate-data-directory "python-modes"))) (save-window-excursion ;; Start a Python interpreter if not already running. (py-shell) (pydoc-wait-for-output (current-buffer) 3.0) (setq output-buf (py-execute-string - "if not vars().has_key('pydoc_lisp'): + (format + "if not vars().has_key('pydoc_lisp'): + import sys + if not '%s' in sys.path: + sys.path.append('%s') import pydoc_lisp pydoc_lisp.pydoc_output_lisp() -")) +" pydir pydir))) ;; current vintages of python-mode.el (4.6 at least) ;; no longer return a buffer [name]. We get t from the ;; final kill-buffer instead. If we see t we use the [View Less]

1 participants
0 comments

CVS update by adrian xemacsweb/Documentation ... 19 years, 3 months

CVS Monitor

User: adrian Date: 05/12/17 02:04:57 Modified: xemacsweb/Documentation ChangeLog packageGuide.content Log: xemacsweb: Update to "Set Download Site" menu name in packageGuide.content -------------------- ChangeLog entries follow: -------------------- Documentation/ChangeLog addition: 2005-12-17 Adrian Aichner <adrian(a)xemacs.org> * packageGuide.content: Update to "Set Download Site" menu name. Revision Changes Path 1.65 +4 -0 XEmacs/xemacsweb/Documentation/… [View More]

1 participants
0 comments

CVS update by adrian xemacsweb ... 19 years, 3 months

CVS Monitor

User: adrian Date: 05/12/17 01:29:45 Modified: xemacsweb ChangeLog index.content Log: xemacsweb: markup typo fix in /index.content -------------------- ChangeLog entries follow: -------------------- ChangeLog addition: 2005-12-17 Adrian Aichner <adrian(a)xemacs.org> * index.content: Markup typo fix. Revision Changes Path 1.237 +4 -0 XEmacs/xemacsweb/ChangeLog Index: ChangeLog =================================================================== RCS file: /… [View More]

1 participants
0 comments

CVS update by adrian xemacsweb/Releases, packages-official.txt ... 19 years, 3 months

CVS Monitor

User: adrian Date: 05/12/17 01:05:20 Modified: xemacsweb/Releases ChangeLog packages-pre-release.txt packages-official.txt core-stable.txt core-beta.txt Log: xemacsweb: Add hk.xemacs.org -------------------- ChangeLog entries follow: -------------------- Releases/ChangeLog addition: 2005-12-17 Adrian Aichner <adrian(a)xemacs.org> * packages-pre-release.txt: Add hk.xemacs.org. * packages-official.txt: Ditto. * core-stable.txt: Ditto. * core-beta.… [View More]

1 participants
0 comments

CVS update by adrian xemacs-builds/adrian/website ... 19 years, 3 months

CVS Monitor

User: adrian Date: 05/12/17 00:57:17 Modified: xemacs-builds/adrian/website package-get-2-download-sites.el Log: xemacs-builds: Improve package-get-2-download-sites-map-ftp-to-http to support mapping of host names as well -------------------- ChangeLog entries follow: -------------------- ChangeLog addition: 2005-12-17 Adrian Aichner <adrian(a)xemacs.org> * adrian/website/package-get-2-download-sites.el (package-get-2-download-sites-map-ftp-to-http): Support mapping of … [View More]host names as well. * adrian/website/package-get-2-download-sites.el (package-get-2-download-sites-file): Adjust use of package-get-2-download-sites-map-ftp-to-http. Revision Changes Path 1.69 +9 -0 XEmacs/xemacs-builds/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/ChangeLog,v retrieving revision 1.68 retrieving revision 1.69 diff -u -p -r1.68 -r1.69 --- ChangeLog 2005/06/18 09:49:33 1.68 +++ ChangeLog 2005/12/16 23:57:15 1.69 ＠＠ -1,3 +1,12 ＠＠ +2005-12-17 Adrian Aichner <adrian(a)xemacs.org> + + * adrian/website/package-get-2-download-sites.el + (package-get-2-download-sites-map-ftp-to-http): Support mapping of + host names as well. + * adrian/website/package-get-2-download-sites.el + (package-get-2-download-sites-file): Adjust use of + package-get-2-download-sites-map-ftp-to-http. + 2005-06-18 Adrian Aichner <adrian(a)xemacs.org> * adrian/website/package-info2table.pl (main): Add $produced_by 1.3 +9 -6 XEmacs/xemacs-builds/adrian/website/package-get-2-download-sites.el Index: package-get-2-download-sites.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/adrian/website/package-get-2-download-sites.el,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- package-get-2-download-sites.el 2005/10/27 23:20:32 1.2 +++ package-get-2-download-sites.el 2005/12/16 23:57:16 1.3 ＠＠ -67,11 +67,15 ＠＠ "ftp.ch.xemacs.org" "ftp.us.xemacs.org") 'words) host) - (concat "ftp/" path)) - ((string-match "ftp.it.xemacs.org" host) - (substring path (length "unix/packages/XEMACS/"))) + (concat host "/ftp/" path)) + ((string-match "ftp\\.it\\.xemacs\\.org" host) + (concat host "/" + (substring path (length "unix/packages/XEMACS/")))) + ((string-match "ftp\\.hk\\.xemacs\\.org" host) + (concat "xemacsftp.hkmirror.org/" + (substring path (length "pub/xemacsftp/")))) (t - path))) + (concat host "/" path)))) (defun package-get-2-download-sites-file (file site-list) (with-temp-file ＠＠ -88,8 +92,7 ＠＠ (format " <li><a href=\"ftp://%s/%s\">%s</a></li>\n" (second e) (third e) (first e))) (insert - (format " <li><a href=\"http://%s/%s\">%s</a></li>\n" - (second e) + (format " <li><a href=\"http://%s\">%s</a></li>\n" (package-get-2-download-sites-map-ftp-to-http (second e) (third e)) (first e))))) site-list) [View Less]

1 participants
0 comments

CVS update by adrian xemacs/lisp ... 19 years, 3 months

CVS Monitor

User: adrian Date: 05/12/17 00:52:25 Modified: xemacs/lisp ChangeLog package-get.el Log: xemacs-21.5-clean: Add Hong Kong download site -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2005-12-17 Adrian Aichner <adrian(a)xemacs.org> * package-get.el (package-get-download-sites): Add Hong Kong download site. * package-get.el (package-get-pre-release-download-sites): Ditto. Revision Changes Path 1.709 +6 -0 XEmacs/… [View More]xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.708 retrieving revision 1.709 diff -u -p -r1.708 -r1.709 --- ChangeLog 2005/12/10 07:43:04 1.708 +++ ChangeLog 2005/12/16 23:52:22 1.709 ＠＠ -1,3 +1,9 ＠＠ +2005-12-17 Adrian Aichner <adrian(a)xemacs.org> + + * package-get.el (package-get-download-sites): Add Hong Kong + download site. + * package-get.el (package-get-pre-release-download-sites): Ditto. + 2005-12-10 Malcolm Purvis <malcolmp(a)xemacs.org> * about.el (about-personal-info, about-hacker-contribution): 1.73 +3 -0 XEmacs/xemacs/lisp/package-get.el Index: package-get.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/package-get.el,v retrieving revision 1.72 retrieving revision 1.73 diff -u -p -r1.72 -r1.73 --- package-get.el 2005/11/29 21:00:30 1.72 +++ package-get.el 2005/12/16 23:52:23 1.73 ＠＠ -220,6 +220,7 ＠＠ directory." ("France (mirror.cict.fr)" "mirror.cict.fr" "xemacs/packages") ("France (pasteur.fr)" "ftp.pasteur.fr" "pub/computing/xemacs/packages") ("Germany (de.xemacs.org)" "ftp.de.xemacs.org" "pub/ftp.xemacs.org/tux/xemacs/packages") + ("Hong Kong (hk.xemacs.org)" "ftp.hk.xemacs.org" "pub/xemacsftp/packages") ("Iceland (is.xemacs.org)" "ftp.is.xemacs.org" "pub/xemacs/packages") ("Ireland (ie.xemacs.org)" "ftp.ie.xemacs.org" "mirrors/ftp.xemacs.org/pub/xemacs/packages") ("Ireland (heanet.ie)" "ftp.heanet.ie" "mirrors/ftp.xemacs.org/packages") ＠＠ -297,6 +298,8 ＠＠ variable actually used to specify packag "pub/computing/xemacs/beta/experimental/packages") ("Germany Pre-Releases (de.xemacs.org)" "ftp.de.xemacs.org" "pub/ftp.xemacs.org/tux/xemacs/beta/experimental/packages") + ("Hong Kong Pre-Releases (hk.xemacs.org)" "ftp.hk.xemacs.org" + "pub/xemacsftp/beta/experimental/packages") ("Iceland Pre-Releases (is.xemacs.org)" "ftp.is.xemacs.org" "pub/xemacs/beta/experimental/packages") ("Ireland Pre-Releases (ie.xemacs.org)" "ftp.ie.xemacs.org" [View Less]

1 participants
0 comments