/[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.282 by handa, Fri Sep 23 02:12:37 2005 UTC revision 1.283 by rfrancoise, Sat Sep 24 13:43:59 2005 UTC
# Line 278  wrong, use this command again to toggle Line 278  wrong, use this command again to toggle
278                         buffer-file-coding-system)))                         buffer-file-coding-system)))
279       (list (read-coding-system       (list (read-coding-system
280              (if default              (if default
281                  (format "Coding system for following command (default, %s): " default)                  (format "Coding system for following command (default %s): " default)
282                "Coding system for following command: ")                "Coding system for following command: ")
283              default))))              default))))
284    (let* ((keyseq (read-key-sequence    (let* ((keyseq (read-key-sequence
# Line 616  or nil if all characters are encodable." Line 616  or nil if all characters are encodable."
616    (interactive    (interactive
617     (list (let ((default (or buffer-file-coding-system 'us-ascii)))     (list (let ((default (or buffer-file-coding-system 'us-ascii)))
618             (read-coding-system             (read-coding-system
619              (format "Coding-system (default, %s): " default)              (format "Coding-system (default %s): " default)
620              default))))              default))))
621    (let ((pos (unencodable-char-position (point) (point-max) coding-system)))    (let ((pos (unencodable-char-position (point) (point-max) coding-system)))
622      (if pos      (if pos
# Line 1490  which marks the variable `default-input- Line 1490  which marks the variable `default-input-
1490    "Describe input method INPUT-METHOD."    "Describe input method INPUT-METHOD."
1491    (interactive    (interactive
1492     (list (read-input-method-name     (list (read-input-method-name
1493            "Describe input method (default, current choice): ")))            "Describe input method (default current choice): ")))
1494    (if (and input-method (symbolp input-method))    (if (and input-method (symbolp input-method))
1495        (setq input-method (symbol-name input-method)))        (setq input-method (symbol-name input-method)))
1496    (help-setup-xref (list #'describe-input-method    (help-setup-xref (list #'describe-input-method
# Line 1810  which is the name of a language environm Line 1810  which is the name of a language environm
1810  specifies the character set for the major languages of Western Europe."  specifies the character set for the major languages of Western Europe."
1811    (interactive (list (read-language-name    (interactive (list (read-language-name
1812                        nil                        nil
1813                        "Set language environment (default, English): ")))                        "Set language environment (default English): ")))
1814    (if language-name    (if language-name
1815        (if (symbolp language-name)        (if (symbolp language-name)
1816            (setq language-name (symbol-name language-name)))            (setq language-name (symbol-name language-name)))
# Line 1986  of `buffer-file-coding-system' set by th Line 1986  of `buffer-file-coding-system' set by th
1986    (interactive    (interactive
1987     (list (read-language-name     (list (read-language-name
1988            'documentation            'documentation
1989            "Describe language environment (default, current choice): ")))            "Describe language environment (default current choice): ")))
1990    (if (null language-name)    (if (null language-name)
1991        (setq language-name current-language-environment))        (setq language-name current-language-environment))
1992    (if (or (null language-name)    (if (or (null language-name)
# Line 2014  of `buffer-file-coding-system' set by th Line 2014  of `buffer-file-coding-system' set by th
2014                (l (copy-sequence input-method-alist)))                (l (copy-sequence input-method-alist)))
2015            (insert "Input methods")            (insert "Input methods")
2016            (when input-method            (when input-method
2017              (insert " (default, " input-method ")")              (insert " (default " input-method ")")
2018              (setq input-method (assoc input-method input-method-alist))              (setq input-method (assoc input-method input-method-alist))
2019              (setq l (cons input-method (delete input-method l))))              (setq l (cons input-method (delete input-method l))))
2020            (insert ":\n")            (insert ":\n")

Legend:
Removed from v.1.282  
changed lines
  Added in v.1.283

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