/[emacs]/emacs/lisp/international/mule-cmds.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-cmds.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.185.2.4 by fx, Sun May 26 17:22:23 2002 UTC revision 1.185.2.5 by fx, Sun May 26 22:43:14 2002 UTC
# Line 338  system, and Emacs automatically sets the Line 338  system, and Emacs automatically sets the
338  startup.  startup.
339    
340  A coding system that requires automatic detection of text  A coding system that requires automatic detection of text
341  encoding (e.g. undecided, unix) can't be preferred.  encoding (e.g. undecided, unix) can't be preferred.."
   
 See also `coding-category-list' and `coding-system-category'."  
342    (interactive "zPrefer coding system: ")    (interactive "zPrefer coding system: ")
343    (if (not (and coding-system (coding-system-p coding-system)))    (if (not (and coding-system (coding-system-p coding-system)))
344        (error "Invalid coding system `%s'" coding-system))        (error "Invalid coding system `%s'" coding-system))
# Line 434  If STRING contains no multibyte characte Line 432  If STRING contains no multibyte characte
432  element `undecided'."  element `undecided'."
433    (find-coding-systems-region string nil))    (find-coding-systems-region string nil))
434    
435    ;; Fixme: re-write
436  (defun find-coding-systems-for-charsets (charsets)  (defun find-coding-systems-for-charsets (charsets)
437    "Return a list of proper coding systems to encode characters of CHARSETS.    "Return a list of proper coding systems to encode characters of CHARSETS.
438  CHARSETS is a list of character sets."  CHARSETS is a list of character sets."
# Line 1136  and enable that one.  The default is the Line 1135  and enable that one.  The default is the
1135            (when (interactive-p)            (when (interactive-p)
1136              (customize-mark-as-set 'default-input-method)))))))              (customize-mark-as-set 'default-input-method)))))))
1137    
1138    (eval-when-compile (autoload 'help-buffer "help-mode"))
1139    
1140  (defun describe-input-method (input-method)  (defun describe-input-method (input-method)
1141    "Describe input method INPUT-METHOD."    "Describe input method INPUT-METHOD."
1142    (interactive    (interactive
# Line 1601  of buffer-file-coding-system set by this Line 1602  of buffer-file-coding-system set by this
1602                        "' in mode line):\n\t"                        "' in mode line):\n\t"
1603                        (coding-system-doc-string (car l))                        (coding-system-doc-string (car l))
1604                        "\n")                        "\n")
1605                (let ((aliases (coding-system-get (car l)                (let ((aliases (coding-system-aliases (car l))))
                                                 'alias-coding-systems)))  
1606                  (when aliases                  (when aliases
1607                    (insert "\t(alias:")                    (insert "\t(alias:")
1608                    (while aliases                    (while aliases

Legend:
Removed from v.1.185.2.4  
changed lines
  Added in v.1.185.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26