Mercurial > emacs
changeset 108886:0ed39249e8e4
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.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 04 Jun 2010 03:38:12 +0200 |
| parents | b008fff91985 |
| children | 2c20a51413cb e38bba2d1deb |
| files | lisp/ChangeLog lisp/international/mule-cmds.el lisp/international/mule.el |
| diffstat | 3 files changed, 13 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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.")
--- 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)