does with-temp-buffer respect case-replace?

does with-temp-buffer respect case-replace?

[Xah]

It seems that “with-temp-buffer” does not respect the var case-
replace?

here's a test code that replace some string in a region. It does this
by first grabing the region's text, then create temp buffer, insert
text, do replacement, grab the text back, then replace it in the
original buffer.

(defun tt (p1 p2)
  "Do a bunch of find/replace on current text selection."
  (interactive "r")

  (let (mystr)
    (setq mystr (buffer-substring p1 p2))
    (setq mystr
          (with-temp-buffer
            (setq case-fold-search nil)
            (setq case-replace t)
            (insert mystr)

            ;; Alt+t
            (goto-char (point-min))
            (while
                (search-forward-regexp "Alt\\+\\([[:graph:]]\\)" nil
t)
              (replace-match "<span class=\"kbd\"><span class=\"key
\">Alt</span>+<span class=\"key\">\\1</span></span>"))

            (buffer-string)
            )
          )

    (delete-region p1 p2)
    (insert mystr)
    )
  )

Here's the text to test on:

... Alt+T ...

doesn't matter what i set case-replace to, the result is:

... <Span Class="Kbd"><Span Class="Key">Alt</Span>+<Span
Class="Key">T</Span></Span> ...

Note the cap in “Span”, but i really want “span”.
I spent a hour debugging this.
Am i missing something?

Thanks.

  Xah
∑ http://xahlee.org/

☄

Re: does with-temp-buffer respect case-replace?

[Seweryn Kokot]

Xah <xahlee@gmail.com> writes:

> It seems that “with-temp-buffer” does not respect the var case-
> replace?
>
> here's a test code that replace some string in a region. It does this
> by first grabing the region's text, then create temp buffer, insert
> text, do replacement, grab the text back, then replace it in the
> original buffer.
>
> (defun tt (p1 p2)
>   "Do a bunch of find/replace on current text selection."
>   (interactive "r")
>
>   (let (mystr)
>     (setq mystr (buffer-substring p1 p2))
>     (setq mystr
>           (with-temp-buffer
>             (setq case-fold-search nil)
>             (setq case-replace t)
>             (insert mystr)
>
>             ;; Alt+t
>             (goto-char (point-min))
>             (while
>                 (search-forward-regexp "Alt\\+\\([[:graph:]]\\)" nil
> t)
>               (replace-match "<span class=\"kbd\"><span class=\"key
> \">Alt</span>+<span class=\"key\">\\1</span></span>"))
>
>             (buffer-string)
>             )
>           )
>
>     (delete-region p1 p2)
>     (insert mystr)
>     )
>   )
>
> Here's the text to test on:
>
> ... Alt+T ...
>
> doesn't matter what i set case-replace to, the result is:
>
> ... <Span Class="Kbd"><Span Class="Key">Alt</Span>+<Span
> Class="Key">T</Span></Span> ...
>
> Note the cap in “Span”, but i really want “span”.
> I spent a hour debugging this.
> Am i missing something?

just set the second argument as t for replace-match (see the docs for
replace-match). The following function works for me.

(defun tt (p1 p2)
  "Do a bunch of find/replace on current text selection."
  (interactive "r")

  (let (mystr)
    (setq mystr (buffer-substring p1 p2))
    (setq mystr
          (with-temp-buffer
            (insert mystr)
            ;; Alt+t
            (goto-char (point-min))
            (while
                (re-search-forward "Alt\\+\\([[:graph:]]\\)" nil t)
              (replace-match "<span class=\"kbd\"><span class=\"key\">Alt</span>+<span class=\"key\">\\1</span></span>" t))
            (buffer-string)
            )
          )
    (delete-region p1 p2)
    (insert mystr)
    )
  )

-- 
regards,
Seweryn Kokot