CVS update by adrian xemacs/lisp ...

[xemacs-cvs at xemacs.org]

  User: adrian  
  Date: 07/06/12 12:32:20

  Modified:    xemacs/lisp ChangeLog abbrev.el package-get.el
Log:


Revision  Changes    Path
1.804     +13 -0     XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.803
retrieving revision 1.804
diff -u -p -r1.803 -r1.804
--- ChangeLog	2007/06/03 17:32:28	1.803
+++ ChangeLog	2007/06/12 10:32:15	1.804
@@ -1,3 +1,16 @@
+2007-06-12  Adrian Aichner  <adrian at 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 at 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 at parhasard.net>
 
 	* mule/mule-cmds.el:



1.8       +3 -3      XEmacs/xemacs/lisp/abbrev.el

Index: abbrev.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/abbrev.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- abbrev.el	2007/05/19 18:41:59	1.7
+++ abbrev.el	2007/06/12 10:32:16	1.8
@@ -582,9 +582,9 @@ If called from a Lisp program, arguments
 			 (<= (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)))))))
 



1.77      +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.76
retrieving revision 1.77
diff -u -p -r1.76 -r1.77
--- package-get.el	2006/06/02 22:18:08	1.76
+++ package-get.el	2007/06/12 10:32:16	1.77
@@ -248,6 +248,7 @@ directory."
     ("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 @@ variable actually used to specify packag
      "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"