CVS update by aidan xemacs/src ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 07/07/23 16:20:44

  Modified:    xemacs/src ChangeLog text.c
Log:
Interpret @cyrillic as a locale modifier, pick up coding-sys aliases.

Revision  Changes    Path
1.814     +9 -0      XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.813
retrieving revision 1.814
diff -u -p -r1.813 -r1.814
--- ChangeLog	2007/07/22 22:03:29	1.813
+++ ChangeLog	2007/07/23 14:19:39	1.814
@@ -1,3 +1,12 @@
+2007-07-23  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* mule/general-late.el (posix-charset-to-coding-system-hash):
+	Pick up coding system aliases as well as their canonical names
+	when initialising this hash. 
+	* mule/mule-cmds.el (parse-posix-locale-string):
+	Interpret @cyrillic to mean that the coding system for a language
+	environment is Windows-1251. 
+
 2007-07-21  Aidan Kehoe  <kehoea at parhasard.net>
 
 	* mule/chinese.el:



1.3       +7 -4      XEmacs/xemacs/lisp/mule/general-late.el

Index: general-late.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/general-late.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- general-late.el	2006/12/29 18:09:46	1.2
+++ general-late.el	2007/07/23 14:20:10	1.3
@@ -31,13 +31,16 @@
 (setq posix-charset-to-coding-system-hash
       (eval-when-compile
 	(let ((res (make-hash-table :test 'equal)))
-	  (dolist (coding-system (coding-system-list) res)
+	  ;; We want both normal and internal coding systems in order
+	  ;; to pick up coding system aliases.
+	  (dolist (coding-system (coding-system-list 'both-normal-and-internal) res)
 	    (setq coding-system
-		  (symbol-name (coding-system-name coding-system)))
-	    (unless (string-match #r"\(-unix\|-mac\|-dos\)$" coding-system)
+		  (symbol-name coding-system))
+	    (unless (or (string-match #r"\(-unix\|-mac\|-dos\)$" coding-system)
+			(string-match #r"^\(internal\|mswindows\)" coding-system))
 	      (puthash 
 	       (replace-in-string (downcase coding-system) "[^a-z0-9]" "")
-	       (intern coding-system) res)))))
+	       (coding-system-name (intern coding-system)) res)))))
 
       ;; In a thoughtless act of cultural imperialism, move English, German
       ;; and Japanese to the front of language-info-alist to make start-up a



1.33      +3 -0      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.32
retrieving revision 1.33
diff -u -p -r1.32 -r1.33
--- mule-cmds.el	2007/06/03 17:32:38	1.32
+++ mule-cmds.el	2007/07/23 14:20:10	1.33
@@ -1053,6 +1053,9 @@ function returns nil. "
 	     ;; where the @euro modifier doesn't mean ISO-8859-15 in the 956
 	     ;; I have.
 	     (setq charset "iso-8859-15"))
+	   (when (and modifiers (equal modifiers "cyrillic") (null charset))
+	     ;; Feedback wanted!
+	     (setq charset "windows-1251"))
 	   (values language region charset modifiers))
 	  ((and (string-match "^[a-z0-9]+$" locale-string)
 		(assoc-ignore-case locale-string language-info-alist))



1.1076    +6 -0      XEmacs/xemacs/src/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v
retrieving revision 1.1075
retrieving revision 1.1076
diff -u -p -r1.1075 -r1.1076
--- ChangeLog	2007/07/22 22:04:08	1.1075
+++ ChangeLog	2007/07/23 14:20:20	1.1076
@@ -1,3 +1,9 @@
+2007-07-23  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* text.c:
+	Backslash a parenthesis at the start of a line, for the sake of
+	our font lock engine. 
+
 2007-07-21  Aidan Kehoe  <kehoea at parhasard.net>
 
 	* elhash.c (struct Lisp_Hash_Table):



1.31      +1 -1      XEmacs/xemacs/src/text.c

Index: text.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/text.c,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -p -r1.30 -r1.31
--- text.c	2006/12/06 21:28:54	1.30
+++ text.c	2007/07/23 14:20:29	1.31
@@ -245,7 +245,7 @@ variable.
 @item
 The Eistring API
 
-(This API is currently under-used) When doing simple things with
+\(This API is currently under-used) When doing simple things with
 internal text, the basic internal-format API's are enough.  But to do
 things like delete or replace a substring, concatenate various strings,
 etc. is difficult to do cleanly because of the allocation issues.