# HG changeset patch
# User adrian
# Date 1181644336 0
# Node ID 7147a4dabc02a6496d2468e85ded3bd5ac34fbb4
# Parent  2aa7da5c70a57c769dfacc2fb427f8a83cf21d8e
[xemacs-hg @ 2007-06-12 10:32:15 by adrian]

diff -r 2aa7da5c70a5 -r 7147a4dabc02 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jun 11 21:51:53 2007 +0000
+++ b/lisp/ChangeLog	Tue Jun 12 10:32:16 2007 +0000
@@ -1,3 +1,16 @@
+2007-06-12  Adrian Aichner  <adrian@xemacs.org>
+
+	* package-get.el (package-get-download-sites): Add mirror in Saudi
+	Arabia.
+	* package-get.el (package-get-pre-release-download-sites): Ditto.
+
+2007-05-29  Adrian Aichner  <adrian@xemacs.org>
+
+	* abbrev.el (expand-region-abbrevs): Downcase word before
+	abbreviation lookup, since `inverse-add-abbrev', `add-abbrev',
+	`define-mode-abbrev', and `define-global-abbrev' also downcase to
+	normalize abbreviations.
+
 2007-06-03  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* mule/mule-cmds.el:
diff -r 2aa7da5c70a5 -r 7147a4dabc02 lisp/abbrev.el
--- a/lisp/abbrev.el	Mon Jun 11 21:51:53 2007 +0000
+++ b/lisp/abbrev.el	Tue Jun 12 10:32:16 2007 +0000
@@ -582,9 +582,9 @@
 			 (<= (setq pnt (point)) (- (point-max) lim))))
 	(if (abbrev-expansion
 	     (setq string
-		   (buffer-substring
-		    (save-excursion (backward-word) (point))
-		    pnt)))
+		   (downcase (buffer-substring
+			      (save-excursion (backward-word) (point))
+			      pnt))))
 	    (if (or noquery (y-or-n-p (format "Expand `%s'? " string)))
 		(expand-abbrev)))))))
 
diff -r 2aa7da5c70a5 -r 7147a4dabc02 lisp/package-get.el
--- a/lisp/package-get.el	Mon Jun 11 21:51:53 2007 +0000
+++ b/lisp/package-get.el	Tue Jun 12 10:32:16 2007 +0000
@@ -248,6 +248,7 @@
     ("Poland (pl.xemacs.org)" "ftp.pl.xemacs.org" "pub/unix/editors/xemacs/packages")
     ("Portugal (pt.xemacs.org)" "ftp.pt.xemacs.org" "pub/MIRRORS/ftp.xemacs.org/packages")
     ("Russia (ru.xemacs.org)" "ftp.ru.xemacs.org" "pub/emacs/xemacs/packages")
+    ("Saudi Arabia (sa.xemacs.org)" "ftp.sa.xemacs.org" "pub/xemacs.org/packages")
 ;   ("South Africa (za.xemacs.org)" "ftp.za.xemacs.org" "mirrorsites/ftp.xemacs.org/packages")
     ("Sweden (se.xemacs.org)" "ftp.se.xemacs.org" "pub/gnu/xemacs/packages")
     ("Switzerland (ch.xemacs.org)" "ftp.ch.xemacs.org" "mirror/xemacs/packages")
@@ -345,6 +346,8 @@
      "pub/MIRRORS/ftp.xemacs.org/beta/experimental/packages")
     ("Russia Pre-Releases (ru.xemacs.org)" "ftp.ru.xemacs.org"
      "pub/emacs/xemacs/beta/experimental/packages")
+    ("Saudi Arabia (sa.xemacs.org)" "ftp.sa.xemacs.org"
+     "pub/xemacs.org/beta/experimental/packages")
 ;   ("South Africa Pre-Releases (za.xemacs.org)" "ftp.za.xemacs.org"
 ;    "mirrorsites/ftp.xemacs.org/beta/experimental/packages")
     ("Sweden Pre-Releases (se.xemacs.org)" "ftp.se.xemacs.org"