From 0855c6cdae8e428bfee071aaa97afb770ce6d6bb Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 26 May 2002 22:43:14 +0000 Subject: [PATCH] (describe-language-environment): Use coding-system-aliases. (prefer-coding-system): Doc fix. --- lisp/international/mule-cmds.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 4880d9cb1d0..437defcd83d 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -338,9 +338,7 @@ system, and Emacs automatically sets the default to that coding system at 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 @@ If STRING contains no multibyte characters, return a list of a single 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 @@ and enable that one. The default is the most recent input method specified (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 @@ of buffer-file-coding-system set by this function." "' 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 -- 2.39.5