# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1275615492 -7200
# Node ID 0ed39249e8e48818867ae8ffddd0015d4c6e4a2c
# Parent  b008fff919855fb77c3b9472654bdbab9351ac03
mule-cmds.el: Add obsolescence information for nonascii-* vars.

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

* international/mule.el (make-translation-table-from-vector): Doc fix.

diff -r b008fff91985 -r 0ed39249e8e4 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jun 03 16:26:39 2010 -0700
+++ b/lisp/ChangeLog	Fri Jun 04 03:38:12 2010 +0200
@@ -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.
diff -r b008fff91985 -r 0ed39249e8e4 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Thu Jun 03 16:26:39 2010 -0700
+++ b/lisp/international/mule-cmds.el	Fri Jun 04 03:38:12 2010 +0200
@@ -287,7 +287,7 @@
   (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 @@
   :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.")
diff -r b008fff91985 -r 0ed39249e8e4 lisp/international/mule.el
--- a/lisp/international/mule.el	Thu Jun 03 16:26:39 2010 -0700
+++ b/lisp/international/mule.el	Fri Jun 04 03:38:12 2010 +0200
@@ -2188,8 +2188,7 @@
 (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)