Re: ncr (numeric character reference) to unicode

[Kevin Rodgers <kevin.d.rodgers@gmail.com>]

B. T. Raven wrote:
> That would probably do a little more than I want. Miles' expand html 
> function is only needed if someone sends these ncr sequences in email. 
> Btw, why are beg and end calculated in the function if they are passed 
> to it? This almost does what I want:
> 
> (defun reverse-bufsubstring (beg end)
>   (interactive "r")
>   (let* (
>      (str1 (buffer-substring beg end))
>      (str2 (apply #'string (nreverse (string-to-list str1)))))
>     (replace-string str1 str2 nil beg end)))
> 
> 
> except that it converts
> 
> same
> one
> as
> before
> 
> into this:
> 
> erofeb
> sa
> eno
> emas
> 
> so now that has to be reversed line by line rather than character by 
> character. Anyway, all of this is just a kludge until the gurus come up 
> with a real bidi functionality.

(defun reverse-region-by-line (beg end)
   (interactive "r")
   (save-excursion
     (goto-char beg)
     (while (and (< (point) end) (re-search-forward "\\=.*$" end t))
       (replace-match (apply #'string
			    (nreverse (string-to-list (match-string 0)))))
       (forward-line))))


-- 
Kevin Rodgers
Denver, Colorado, USA