Mercurial > emacs
changeset 47450:6bd30e077257
(universal-coding-system-argument):
Read the coding system inside `interactive' spec, for command-history.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 13 Sep 2002 02:15:41 +0000 |
| parents | e7a743caaf4b |
| children | e1b72a4289b8 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 10 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Thu Sep 12 22:03:55 2002 +0000 +++ b/lisp/international/mule-cmds.el Fri Sep 13 02:15:41 2002 +0000 @@ -261,19 +261,19 @@ (coding-system-for-read 'iso-2022-7bit)) (find-file-read-only (expand-file-name "HELLO" data-directory)))) -(defun universal-coding-system-argument () +(defun universal-coding-system-argument (coding-system) "Execute an I/O command using the specified coding system." - (interactive) - (let* ((default (and buffer-file-coding-system + (interactive + (let ((default (and buffer-file-coding-system (not (eq (coding-system-type buffer-file-coding-system) t)) - buffer-file-coding-system)) - (coding-system (read-coding-system - (if default - (format "Coding system for following command (default, %s): " default) - "Coding system for following command: ") - default)) - (keyseq (read-key-sequence + 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 (format "Command to execute with %s:" coding-system))) (cmd (key-binding keyseq)) prefix)