comparison lisp/international/mule-cmds.el @ 24417:8a8615132482

(select-safe-coding-system): Be sure to show a buffer being decoded.

24416:3d446442b6a0

      (let ((non-safe-chars (find-multibyte-characters
			     from to 3
			     (and default-coding-system
				  (coding-system-get default-coding-system
						     'safe-charsets))))
	    overlays)
	(save-excursion
	  ;; Highlight characters that default-coding-system can't encode.
	  (when (integerp from)
	    (goto-char from)
	    (let ((found nil))
	      (while (and (not found)
			  (re-search-forward "[^\000-\177]" to t))
		(setq found (assq (char-charset (preceding-char))
				  non-safe-chars))))
	    (beginning-of-line)
	    (set-window-start (selected-window) (point))
	    (save-excursion
	      (while (and (< (length overlays) 256)
			  (re-search-forward "[^\000-\177]" to t))
		(let* ((char (preceding-char))
		       (charset (char-charset char)))

		    (overlay-put (car overlays) 'face 'highlight))))))

	  ;; At last, ask a user to select a proper coding system.  
	  (unwind-protect
	      (save-window-excursion
		;; At first, show a helpful message.
		(with-output-to-temp-buffer "*Warning*"
		  (save-excursion
		    (set-buffer standard-output)
		    (insert "The target text contains the following non ASCII character(s):\n")
		    (let ((len (length non-safe-chars))

24417:8a8615132482

      (let ((non-safe-chars (find-multibyte-characters
			     from to 3
			     (and default-coding-system
				  (coding-system-get default-coding-system
						     'safe-charsets))))
	    show-position overlays)
	(save-excursion
	  ;; Highlight characters that default-coding-system can't encode.
	  (when (integerp from)
	    (goto-char from)
	    (let ((found nil))
	      (while (and (not found)
			  (re-search-forward "[^\000-\177]" to t))
		(setq found (assq (char-charset (preceding-char))
				  non-safe-chars))))
	    (forward-line -1)
	    (setq show-position (point))
	    (save-excursion
	      (while (and (< (length overlays) 256)
			  (re-search-forward "[^\000-\177]" to t))
		(let* ((char (preceding-char))
		       (charset (char-charset char)))

		    (overlay-put (car overlays) 'face 'highlight))))))

	  ;; At last, ask a user to select a proper coding system.  
	  (unwind-protect
	      (save-window-excursion
		(when show-position
		  ;; At first, be sure to show the current buffer.
		  (set-window-buffer (selected-window) (current-buffer))
		  (set-window-start (selected-window) show-position))
		;; Then, show a helpful message.
		(with-output-to-temp-buffer "*Warning*"
		  (save-excursion
		    (set-buffer standard-output)
		    (insert "The target text contains the following non ASCII character(s):\n")
		    (let ((len (length non-safe-chars))