mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

mule-cmds.el: Add obsolescence information for nonascii-* vars.

Browse Source 
* international/mule-cmds.el (nonascii-insert-offset)
  (nonascii-translation-table): Add obsolescence information.

* international/mule.el (make-translation-table-from-vector): Doc fix.
This commit is contained in:
Juanma Barranquero 2010-06-04 03:38:12 +02:00
parent 6941ffecb2
commit 18ccd78a19
3 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2010-06-04 Juanma Barranquero <lekktu@gmail.com>
* international/mule-cmds.el (nonascii-insert-offset)
(nonascii-translation-table): Add obsolescence information.
* international/mule.el (make-translation-table-from-vector): Doc fix.
2010-06-03 Dan Nicolaescu <dann@ics.uci.edu>
vc-log-incoming/vc-log-outgoing improvements for Git.

8
lisp/international/mule-cmds.el
View File

@ -287,7 +287,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))
(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."
@ -2882,8 +2882,10 @@ on encoding."
: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.")

3
lisp/international/mule.el
View File

@ -2188,8 +2188,7 @@ character, say TO-ALT, FROM is also translated to TO-ALT."
(defun make-translation-table-from-vector (vec)
"Make translation table from decoding vector VEC.
VEC is an array of 256 elements to map unibyte codes to multibyte
characters. Elements may be nil for undefined code points.
See also the variable `nonascii-translation-table'."
characters. Elements may be nil for undefined code points."
(let ((table (make-char-table 'translation-table))
(rev-table (make-char-table 'translation-table))
ch)