[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el
From: |
Romain Francoise |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el |
Date: |
Sat, 24 Sep 2005 09:44:16 -0400 |
Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.282
emacs/lisp/international/mule-cmds.el:1.283
*** emacs/lisp/international/mule-cmds.el:1.282 Fri Sep 23 02:12:37 2005
--- emacs/lisp/international/mule-cmds.el Sat Sep 24 13:43:59 2005
***************
*** 278,284 ****
buffer-file-coding-system)))
(list (read-coding-system
(if default
! (format "Coding system for following command (default, %s): "
default)
"Coding system for following command: ")
default))))
(let* ((keyseq (read-key-sequence
--- 278,284 ----
buffer-file-coding-system)))
(list (read-coding-system
(if default
! (format "Coding system for following command (default %s): "
default)
"Coding system for following command: ")
default))))
(let* ((keyseq (read-key-sequence
***************
*** 616,622 ****
(interactive
(list (let ((default (or buffer-file-coding-system 'us-ascii)))
(read-coding-system
! (format "Coding-system (default, %s): " default)
default))))
(let ((pos (unencodable-char-position (point) (point-max) coding-system)))
(if pos
--- 616,622 ----
(interactive
(list (let ((default (or buffer-file-coding-system 'us-ascii)))
(read-coding-system
! (format "Coding-system (default %s): " default)
default))))
(let ((pos (unencodable-char-position (point) (point-max) coding-system)))
(if pos
***************
*** 1490,1496 ****
"Describe input method INPUT-METHOD."
(interactive
(list (read-input-method-name
! "Describe input method (default, current choice): ")))
(if (and input-method (symbolp input-method))
(setq input-method (symbol-name input-method)))
(help-setup-xref (list #'describe-input-method
--- 1490,1496 ----
"Describe input method INPUT-METHOD."
(interactive
(list (read-input-method-name
! "Describe input method (default current choice): ")))
(if (and input-method (symbolp input-method))
(setq input-method (symbol-name input-method)))
(help-setup-xref (list #'describe-input-method
***************
*** 1810,1816 ****
specifies the character set for the major languages of Western Europe."
(interactive (list (read-language-name
nil
! "Set language environment (default, English): ")))
(if language-name
(if (symbolp language-name)
(setq language-name (symbol-name language-name)))
--- 1810,1816 ----
specifies the character set for the major languages of Western Europe."
(interactive (list (read-language-name
nil
! "Set language environment (default English): ")))
(if language-name
(if (symbolp language-name)
(setq language-name (symbol-name language-name)))
***************
*** 1986,1992 ****
(interactive
(list (read-language-name
'documentation
! "Describe language environment (default, current choice): ")))
(if (null language-name)
(setq language-name current-language-environment))
(if (or (null language-name)
--- 1986,1992 ----
(interactive
(list (read-language-name
'documentation
! "Describe language environment (default current choice): ")))
(if (null language-name)
(setq language-name current-language-environment))
(if (or (null language-name)
***************
*** 2014,2020 ****
(l (copy-sequence input-method-alist)))
(insert "Input methods")
(when input-method
! (insert " (default, " input-method ")")
(setq input-method (assoc input-method input-method-alist))
(setq l (cons input-method (delete input-method l))))
(insert ":\n")
--- 2014,2020 ----
(l (copy-sequence input-method-alist)))
(insert "Input methods")
(when input-method
! (insert " (default " input-method ")")
(setq input-method (assoc input-method input-method-alist))
(setq l (cons input-method (delete input-method l))))
(insert ":\n")