Re: help with lisp function

[Pascal Bourguignon <spam@thalassa.informatimago.com>]

"Javier Oviedo" <email_joviedo@yahoo.com> writes:

> Hi all. I'm trying to write a function that copies lines from one buffer to
> another buffer and keeps the original text properties. It works...sort of.
> The problem is that after 70 lines, the copy stops carrying the text
> properties over....the copy itself is done correctly and I end up with two
> identical buffers. The problem is only with the text-properties being lost
> after line 70. So, for the first 70 lines are displayed with the original
> text-properties, but everything after that is displayed as plain text. Doing
> a describe-text-properties verifies this.
> 
> Any help/thoughts/comments? Thanks in advance!
> 
> Here is the function:
> 
> (defun jo-test ()
>   (interactive)
>   (setq buf-name "*JOTest*")
>   (setq curbuf (buffer-name))
>   (setq test-buf (get-buffer-create buf-name))
>   (display-buffer test-buf)
>   (save-excursion
>     (goto-char (point-min))
>     (with-current-buffer test-buf
>       (setq buffer-read-only nil)
>       (with-current-buffer curbuf
>         (while (not (eobp))
>           (setq curMatch "")
>           (setq curMatch (buffer-substring (line-beginning-position)
> (line-end-position)))
>           (forward-line 1)
>           (with-current-buffer test-buf
>             (insert (concat curMatch "\n"))  ))))))

Notice how it looks nicer _______________________^

I  assume   the  text  properties   you're  asking  for   include  the
fontification   of   the  source   buffer?    Fontification  is   done
lazily. Only  shown lines and a  few more are fontified.   The rest is
done only if and when it's shown.

-- 
__Pascal_Bourguignon__                     http://www.informatimago.com/
There is no worse tyranny than to force a man to pay for what he doesn't
want merely because you think it would be good for him.--Robert Heinlein
http://www.theadvocates.org/