diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2010-06-04 03:38:12 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2010-06-04 03:38:12 +0200 |
| commit | 18ccd78a19d2be999dc17c6bfe49fc2eff800294 (patch) | |
| tree | 681627a1d38af9061b32a040969d61a07d3d90a8 /lisp/international/mule-cmds.el | |
| parent | 6941ffecb2ae33279b7d111d0073f7412a559e5d (diff) | |
| download | emacs-18ccd78a19d2be999dc17c6bfe49fc2eff800294.tar.gz | |
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.
Diffstat (limited to 'lisp/international/mule-cmds.el')
| -rw-r--r-- | lisp/international/mule-cmds.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index d97320da861..42066a4d699 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -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.") |