Mercurial > hg > xemacs-beta
changeset 4009:7147a4dabc02
[xemacs-hg @ 2007-06-12 10:32:15 by adrian]
| author | adrian |
|---|---|
| date | Tue, 12 Jun 2007 10:32:16 +0000 |
| parents | 2aa7da5c70a5 |
| children | 9f82475ea0c9 |
| files | lisp/ChangeLog lisp/abbrev.el lisp/package-get.el |
| diffstat | 3 files changed, 19 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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:
--- 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)))))))
--- 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"