comparison lisp/international/mule-cmds.el @ 49598:0d8b17d428b5

Trailing whitepace deleted.

49597:e88404e8f2cf

	 (cmd (key-binding keyseq))
	 prefix)

    (when (eq cmd 'universal-argument)
      (call-interactively cmd)
      
      ;; Process keys bound in `universal-argument-map'.
      (while (progn
	       (setq keyseq (read-key-sequence nil t)
		     cmd (key-binding keyseq t))
	       (not (eq cmd 'universal-argument-other-key)))

      ;; This is the final call to `univeral-argument-other-key', which
      ;; 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)
	    cmd (key-binding keyseq)))

						  (cons pos (aref from pos)))
					      (unencodable-char-position
					       0 (length from) coding
					       11 from))))
			    unsafe))
	    (setq unsafe 
		  (mapcar #'(lambda (coding)
			      (cons coding
				    (mapcar #'(lambda (pos)
						(cons pos (char-after pos)))
					    (unencodable-char-position

but it is not recommended for encoding text in this context,
e.g., for sending an email message.\n ")
		  (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
		   #'(lambda (coding)
		       (insert (format "  %s:" (car coding)))

on your risk of losing the problematic characters.\n")))

	  ;; 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))
	  (setq last-coding-system-specified coding-system))

`locale-translation-file-name'.

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
	(let ((files
	       '("/usr/lib/X11/locale/locale.alias" ; e.g. X11R6.4

49598:0d8b17d428b5

	 (cmd (key-binding keyseq))
	 prefix)

    (when (eq cmd 'universal-argument)
      (call-interactively cmd)

      ;; Process keys bound in `universal-argument-map'.
      (while (progn
	       (setq keyseq (read-key-sequence nil t)
		     cmd (key-binding keyseq t))
	       (not (eq cmd 'universal-argument-other-key)))

      ;; This is the final call to `univeral-argument-other-key', which
      ;; 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)
	    cmd (key-binding keyseq)))

						  (cons pos (aref from pos)))
					      (unencodable-char-position
					       0 (length from) coding
					       11 from))))
			    unsafe))
	    (setq unsafe
		  (mapcar #'(lambda (coding)
			      (cons coding
				    (mapcar #'(lambda (pos)
						(cons pos (char-after pos)))
					    (unencodable-char-position

but it is not recommended for encoding text in this context,
e.g., for sending an email message.\n ")
		  (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
		   #'(lambda (coding)
		       (insert (format "  %s:" (car coding)))

on your risk of losing the problematic characters.\n")))

	  ;; 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))
	  (setq last-coding-system-specified coding-system))

`locale-translation-file-name'.

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
	(let ((files
	       '("/usr/lib/X11/locale/locale.alias" ; e.g. X11R6.4