help with lisp function

help with lisp function

[Javier Oviedo]

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"))
            )
          )
        )
      )
    )
  )

-- 
Javier

Re: help with lisp function

[Pascal Bourguignon]

"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/

Re: help with lisp function

[Peter Lee]

>>>> Pascal Bourguignon writes:

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

Doesn't that depend on which type of fontification you are using?  I
thought fast-lock-mode did it all on load whereas lazy and jit are, as
you say, dynamic.

Re: help with lisp function

[Javier Oviedo]

Aaahhhh. It seems that having lazy-lock enabled in the source buffer causes
this problem. If I temporarily disable lazy-lock in the source buffer then
text properties get copied over as expected. Thanks!!
-- 
Javier


"Pascal Bourguignon" <spam@thalassa.informatimago.com> wrote in message
news:87d68dd94s.fsf@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/