2 new commits in XEmacs:
https://bitbucket.org/xemacs/xemacs/commits/7b87bc73f796/
Changeset: 7b87bc73f796
User: kehoea
Date: 2013-08-05 10:56:34
Summary: Add a language environment for Azeri.
lisp/ChangeLog addition:
2013-08-05 Aidan Kehoe <kehoea(a)parhasard.net>
* mule/latin.el:
Add a Latin-script Azeri language environment, with UTF-8 as the
encoding and case information for schwa.
Affected #: 2 files
diff -r 3ccb4aaf91c7e4331fc57f45688619824380dcc6 -r
7b87bc73f79670c0031e74de94f619d6648756b4 lisp/ChangeLog
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-08-05 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * mule/latin.el:
+ Add a Latin-script Azeri language environment, with UTF-8 as the
+ encoding and case information for schwa.
+
2013-06-22 Stephen J. Turnbull <stephen(a)xemacs.org>
* paragraphs.el (sentence-end-base):
diff -r 3ccb4aaf91c7e4331fc57f45688619824380dcc6 -r
7b87bc73f79670c0031e74de94f619d6648756b4 lisp/mule/latin.el
--- a/lisp/mule/latin.el
+++ b/lisp/mule/latin.el
@@ -1778,7 +1778,20 @@
(lambda ()
;; Restore the normal case mappings for the characters.
(put-case-table-pair ?I ?i (standard-case-table))))
+
+;; Latin-script Azeri. This uses schwa, and has no non-Unicode encoding
+;; available. The Turkish case rules apply, though, so we can copy that
+;; language environment.
+(let* ((name (create-variant-language-environment "Turkish" 'utf-8))
+ (assoc (assoc name language-info-alist)))
+ (setf (car assoc) "Azeri")
+ (set-language-info "Azeri" 'locale "az")
+ (put-case-table-pair
+ (decode-char 'ucs #x018F) ;; LATIN CAPITAL LETTER SCHWA
+ (decode-char 'ucs #x0259) ;; LATIN SMALL LETTER SCHWA
+ (standard-case-table)))
+
(make-coding-system
'macintosh 'fixed-width "MacRoman"
'(unicode-map
https://bitbucket.org/xemacs/xemacs/commits/66d2f63df75f/
Changeset: 66d2f63df75f
User: kehoea
Date: 2013-08-05 11:05:32
Summary: Correct some spelling and formatting in behavior.el.
Mentioned in tracker issue 826, the third thing mentioned there (the file
name at the bottom of the file) had already been fixed.
lisp/ChangeLog addition:
2013-08-05 Aidan Kehoe <kehoea(a)parhasard.net>
* behavior.el:
(override-behavior):
Correct some spelling and formatting here, thank you Steven
Mitchell in tracker issue 826.
Affected #: 2 files
diff -r 7b87bc73f79670c0031e74de94f619d6648756b4 -r
66d2f63df75f970d8a4ee919c5fc612cc2501720 lisp/ChangeLog
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2013-08-05 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * behavior.el:
+ (override-behavior):
+ Correct some spelling and formatting here, thank you Steven
+ Mitchell in tracker issue 826.
+
2013-08-05 Aidan Kehoe <kehoea(a)parhasard.net>
* mule/latin.el:
diff -r 7b87bc73f79670c0031e74de94f619d6648756b4 -r
66d2f63df75f970d8a4ee919c5fc612cc2501720 lisp/behavior.el
--- a/lisp/behavior.el
+++ b/lisp/behavior.el
@@ -62,7 +62,7 @@
;; package is enabled, the user doesn't have to do anything specific for
;; the package to do its thing -- it happens automatically if the user is
;; using the area whose behavior has been changed. These include packages
-;; such as `avoid' (which makes the mouse poointer move when the cursor
+;; such as `avoid' (which makes the mouse pointer move when the cursor
;; gets too close), EFS (which adds the ability to treat an FTP site as
;; part of the local file system), the packages that supply the
;; mode-specific handling for various files, etc
@@ -285,7 +285,9 @@
Normally, groups are created and assigned properties by individual packages.
The resulting hierarchy may not make much sense globally. This function
allows the hierarchy and appearance of a group to be specified globally,
-and will take precendence over the properties assigned by `define-behavior-group'.
This allows a global organization to be imposed on groups, while still allowing for
graceful handling of new or unknown groups.
+and will take precendence over the properties assigned by
+`define-behavior-group'. This allows a global organization to be imposed on
+groups, while still allowing for graceful handling of new or unknown groups.
NAME can be a symbol specifying a group name, or a list of
\(PARENT [...] NAME), where a path from a particular parent is explicitly
Repository URL:
https://bitbucket.org/xemacs/xemacs/
--
This is a commit notification from
bitbucket.org. You are receiving
this because you have the service enabled, addressing the recipient of
this email.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches