HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Convert consecutive FSF copyright years to ranges.
[bpt/emacs.git]
/
lisp
/
international
/
mule-cmds.el
diff --git
a/lisp/international/mule-cmds.el
b/lisp/international/mule-cmds.el
index
d97320d
..
d610da0
100644
(file)
--- a/
lisp/international/mule-cmds.el
+++ b/
lisp/international/mule-cmds.el
@@
-1,9
+1,8
@@
;;; mule-cmds.el --- commands for multilingual environment -*-coding: iso-2022-7bit -*-
;;; mule-cmds.el --- commands for multilingual environment -*-coding: iso-2022-7bit -*-
-;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
-;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 1997-2011 Free Software Foundation, Inc.
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008, 2009, 2010
+;; 2005, 2006, 2007, 2008, 2009, 2010
, 2011
;; National Institute of Advanced Industrial Science and Technology (AIST)
;; Registration Number H14PRO021
;; Copyright (C) 2003
;; National Institute of Advanced Industrial Science and Technology (AIST)
;; Registration Number H14PRO021
;; Copyright (C) 2003
@@
-287,7
+286,7
@@
wrong, use this command again to toggle back to the right mode."
(interactive)
;; We have to decode the file in any environment.
(letf ((coding-system-for-read 'iso-2022-7bit))
(interactive)
;; We have to decode the file in any environment.
(letf ((coding-system-for-read 'iso-2022-7bit))
-
(view-file (expand-file-name "HELLO" data-directory))))
+ (view-file (expand-file-name "HELLO" data-directory))))
(defun universal-coding-system-argument (coding-system)
"Execute an I/O command using the specified coding system."
(defun universal-coding-system-argument (coding-system)
"Execute an I/O command using the specified coding system."
@@
-1952,7
+1951,7
@@
See `set-language-info-alist' for use in programs."
(> (aref (number-to-string (nth 2 (x-server-version))) 0)
?3))
;; Make non-line-break space display as a plain space.
(> (aref (number-to-string (nth 2 (x-server-version))) 0)
?3))
;; Make non-line-break space display as a plain space.
- (aset standard-display-table
160
[32]))
+ (aset standard-display-table
(unibyte-char-to-multibyte 160)
[32]))
;; Most Windows programs send out apostrophes as \222. Most X fonts
;; don't contain a character at that position. Map it to the ASCII
;; apostrophe. [This is actually RIGHT SINGLE QUOTATION MARK,
;; Most Windows programs send out apostrophes as \222. Most X fonts
;; don't contain a character at that position. Map it to the ASCII
;; apostrophe. [This is actually RIGHT SINGLE QUOTATION MARK,
@@
-1960,7
+1959,7
@@
See `set-language-info-alist' for use in programs."
;; fonts probably have the appropriate glyph at this position,
;; so they could use standard-display-8bit. It's better to use a
;; proper windows-1252 coding system. --fx]
;; fonts probably have the appropriate glyph at this position,
;; so they could use standard-display-8bit. It's better to use a
;; proper windows-1252 coding system. --fx]
- (aset standard-display-table
146
[39]))))
+ (aset standard-display-table
(unibyte-char-to-multibyte 146)
[39]))))
(defun set-language-environment-coding-systems (language-name)
"Do various coding system setups for language environment LANGUAGE-NAME."
(defun set-language-environment-coding-systems (language-name)
"Do various coding system setups for language environment LANGUAGE-NAME."
@@
-2033,10
+2032,11
@@
See `set-language-info-alist' for use in programs."
"Do various unibyte-mode setups for language environment LANGUAGE-NAME."
(set-display-table-and-terminal-coding-system language-name))
"Do various unibyte-mode setups for language environment LANGUAGE-NAME."
(set-display-table-and-terminal-coding-system language-name))
-(def
subst
princ-list (&rest args)
+(def
un
princ-list (&rest args)
"Print all arguments with `princ', then print \"\\n\"."
"Print all arguments with `princ', then print \"\\n\"."
- (
while args (princ (car args)) (setq args (cdr args))
)
+ (
mapc #'princ args
)
(princ "\n"))
(princ "\n"))
+(make-obsolete 'princ-list "use mapc and princ instead" "23.3")
(put 'describe-specified-language-support 'apropos-inhibit t)
(put 'describe-specified-language-support 'apropos-inhibit t)
@@
-2179,7
+2179,7
@@
See `set-language-info-alist' for use in programs."
("af" . "Latin-1") ; Afrikaans
("am" "Ethiopic" utf-8) ; Amharic
("an" . "Latin-9") ; Aragonese
("af" . "Latin-1") ; Afrikaans
("am" "Ethiopic" utf-8) ; Amharic
("an" . "Latin-9") ; Aragonese
- ; ar Arabic glibc uses 8859-6
+ ("ar" . "Arabic")
; as Assamese
; ay Aymara
("az" . "UTF-8") ; Azerbaijani
; as Assamese
; ay Aymara
("az" . "UTF-8") ; Azerbaijani
@@
-2882,8
+2882,10
@@
on encoding."
:group 'mule
:global t)
:group 'mule
:global t)
-(defvar nonascii-insert-offset 0 "This variable is obsolete.")
-(defvar nonascii-translation-table nil "This variable is obsolete.")
+(defvar nonascii-insert-offset 0)
+(make-obsolete-variable 'nonascii-insert-offset "do not use it." "23.1")
+(defvar nonascii-translation-table nil)
+(make-obsolete-variable 'nonascii-translation-table "do not use it." "23.1")
(defvar ucs-names nil
"Alist of cached (CHAR-NAME . CHAR-CODE) pairs.")
(defvar ucs-names nil
"Alist of cached (CHAR-NAME . CHAR-CODE) pairs.")
@@
-2893,17
+2895,21
@@
on encoding."
(or ucs-names
(let ((bmp-ranges
'((#x0000 . #x33FF)
(or ucs-names
(let ((bmp-ranges
'((#x0000 . #x33FF)
- ;; (#x3400 . #x4DBF) CJK Ideograph Extension A
+ ;; (#x3400 . #x4DBF) CJK Ideograph
s
Extension A
(#x4DC0 . #x4DFF)
(#x4DC0 . #x4DFF)
- ;; (#x4E00 . #x9FFF) CJK
Ideograph
- (#xA000 . #x
0
D7FF)
+ ;; (#x4E00 . #x9FFF) CJK
Unified Ideographs
+ (#xA000 . #xD7FF)
;; (#xD800 . #xFAFF) Surrogate/Private
(#xFB00 . #xFFFD)))
(upper-ranges
'((#x10000 . #x134FF)
;; (#xD800 . #xFAFF) Surrogate/Private
(#xFB00 . #xFFFD)))
(upper-ranges
'((#x10000 . #x134FF)
- ;; (#x13500 . #x1CFFF) unsed
+ ;; (#x13500 . #x167FF) unused
+ (#x16800 . #x16A3F)
+ ;; (#x16A40 . #x1AFFF) unused
+ (#x1B000 . #x1B0FF)
+ ;; (#x1B100 . #x1CFFF) unused
(#x1D000 . #x1FFFF)
(#x1D000 . #x1FFFF)
- ;; (#x20000 . #xDFFFF) CJK Ideograph Extension A, B, etc, unsed
+ ;; (#x20000 . #xDFFFF) CJK Ideograph Extension A, B, etc, un
u
sed
(#xE0000 . #xE01FF)))
(gc-cons-threshold 10000000)
c end name names)
(#xE0000 . #xE01FF)))
(gc-cons-threshold 10000000)
c end name names)
@@
-2972,5
+2978,4
@@
properties are sticky."
(define-key ctl-x-map "8\r" 'ucs-insert)
(define-key ctl-x-map "8\r" 'ucs-insert)
-;; arch-tag: b382c432-4b36-460e-bf4c-05efd0bb18dc
;;; mule-cmds.el ends here
;;; mule-cmds.el ends here