[Emacs-diffs] /srv/bzr/emacs/trunk r100528: mule-cmds.el: Add obsolescence information for nonascii-* vars.

[Juanma Barranquero]

------------------------------------------------------------
revno: 100528
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Fri 2010-06-04 03:38:12 +0200
message:
  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.
modified:
  lisp/ChangeLog
  lisp/international/mule-cmds.el
  lisp/international/mule.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-06-03 23:26:39 +0000
+++ b/lisp/ChangeLog    2010-06-04 01:38:12 +0000
@@ -1,3 +1,10 @@
+2010-06-04  Juanma Barranquero  <address@hidden>
+
+       * 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  <address@hidden>
 
        vc-log-incoming/vc-log-outgoing improvements for Git.

=== modified file 'lisp/international/mule-cmds.el'
--- a/lisp/international/mule-cmds.el   2010-05-15 14:06:58 +0000
+++ b/lisp/international/mule-cmds.el   2010-06-04 01:38:12 +0000
@@ -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.")

=== modified file 'lisp/international/mule.el'
--- a/lisp/international/mule.el        2010-05-30 19:47:34 +0000
+++ b/lisp/international/mule.el        2010-06-04 01:38:12 +0000
@@ -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)