[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el

[Juanma Barranquero]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.220 
emacs/lisp/international/mule-cmds.el:1.221
*** emacs/lisp/international/mule-cmds.el:1.220 Sat Jan 25 13:20:30 2003
--- emacs/lisp/international/mule-cmds.el       Tue Feb  4 08:09:38 2003
***************
*** 285,291 ****
  
      (when (eq cmd 'universal-argument)
        (call-interactively cmd)
!       
        ;; Process keys bound in `universal-argument-map'.
        (while (progn
               (setq keyseq (read-key-sequence nil t)
--- 285,291 ----
  
      (when (eq cmd 'universal-argument)
        (call-interactively cmd)
! 
        ;; Process keys bound in `universal-argument-map'.
        (while (progn
               (setq keyseq (read-key-sequence nil t)
***************
*** 302,308 ****
        ;; set's the final `prefix-arg.
        (let ((current-prefix-arg prefix-arg))
        (call-interactively cmd))
!       
        ;; Read the command to execute with the given prefix arg.
        (setq prefix prefix-arg
            keyseq (read-key-sequence nil t)
--- 302,308 ----
        ;; set's the final `prefix-arg.
        (let ((current-prefix-arg prefix-arg))
        (call-interactively cmd))
! 
        ;; Read the command to execute with the given prefix arg.
        (setq prefix prefix-arg
            keyseq (read-key-sequence nil t)
***************
*** 719,725 ****
                                               0 (length from) coding
                                               11 from))))
                            unsafe))
!           (setq unsafe 
                  (mapcar #'(lambda (coding)
                              (cons coding
                                    (mapcar #'(lambda (pos)
--- 719,725 ----
                                               0 (length from) coding
                                               11 from))))
                            unsafe))
!           (setq unsafe
                  (mapcar #'(lambda (coding)
                              (cons coding
                                    (mapcar #'(lambda (pos)
***************
*** 788,794 ****
                  (mapc #'(lambda (x) (princ " ") (princ x)) rejected)
                  (insert "\n"))
                (when unsafe
!                 (insert (if rejected "And the others" 
                            "However, each of them")
                          " encountered these problematic characters:\n")
                  (mapc
--- 788,794 ----
                  (mapc #'(lambda (x) (princ " ") (princ x)) rejected)
                  (insert "\n"))
                (when unsafe
!                 (insert (if rejected "And the others"
                            "However, each of them")
                          " encountered these problematic characters:\n")
                  (mapc
***************
*** 853,859 ****
          ;; Read a coding system.
          (setq default-coding-system (or (car safe) (car codings)))
          (setq coding-system
!               (read-coding-system 
                 (format "Select coding system (default %s): "
                         default-coding-system)
                 default-coding-system))
--- 853,859 ----
          ;; Read a coding system.
          (setq default-coding-system (or (car safe) (car codings)))
          (setq coding-system
!               (read-coding-system
                 (format "Select coding system (default %s): "
                         default-coding-system)
                 default-coding-system))
***************
*** 2162,2168 ****
  See also `locale-charset-language-names', `locale-language-names',
  `locale-preferred-coding-systems' and `locale-coding-system'."
    (interactive "sSet environment for locale: ")
!  
    ;; Do this at runtime for the sake of binaries possibly transported
    ;; to a system without X.
    (setq locale-translation-file-name
--- 2162,2168 ----
  See also `locale-charset-language-names', `locale-language-names',
  `locale-preferred-coding-systems' and `locale-coding-system'."
    (interactive "sSet environment for locale: ")
! 
    ;; Do this at runtime for the sake of binaries possibly transported
    ;; to a system without X.
    (setq locale-translation-file-name