Mercurial > emacs

changeset 88654:ce18173db20e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-language-environment): Use coding-system-aliases. (prefer-coding-system): Doc fix.
author Dave Love <fx@gnu.org>
date Sun, 26 May 2002 22:43:14 +0000
parents ab210513bef9
children ea446bb886ad
files lisp/international/mule-cmds.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el	Sun May 26 22:42:31 2002 +0000
+++ b/lisp/international/mule-cmds.el	Sun May 26 22:43:14 2002 +0000
@@ -338,9 +338,7 @@
 startup.
 
 A coding system that requires automatic detection of text
-encoding (e.g. undecided, unix) can't be preferred.
-
-See also `coding-category-list' and `coding-system-category'."
+encoding (e.g. undecided, unix) can't be preferred.."
   (interactive "zPrefer coding system: ")
   (if (not (and coding-system (coding-system-p coding-system)))
       (error "Invalid coding system `%s'" coding-system))
@@ -434,6 +432,7 @@
 element `undecided'."
   (find-coding-systems-region string nil))
 
+;; Fixme: re-write
 (defun find-coding-systems-for-charsets (charsets)
   "Return a list of proper coding systems to encode characters of CHARSETS.
 CHARSETS is a list of character sets."
@@ -1136,6 +1135,8 @@
 	  (when (interactive-p)
 	    (customize-mark-as-set 'default-input-method)))))))
 
+(eval-when-compile (autoload 'help-buffer "help-mode"))
+
 (defun describe-input-method (input-method)
   "Describe input method INPUT-METHOD."
   (interactive
@@ -1601,8 +1602,7 @@
 		      "' in mode line):\n\t"
 		      (coding-system-doc-string (car l))
 		      "\n")
-	      (let ((aliases (coding-system-get (car l)
-						'alias-coding-systems)))
+	      (let ((aliases (coding-system-aliases (car l))))
 		(when aliases
 		  (insert "\t(alias:")
 		  (while aliases