Why is there no selected region in the second case

Why is there no selected region in the second case

[Decebal]

I have made the folowing function:
#####
(defun do-make-tab-seperated-file ()
  (goto-char (point-min))
  (push-mark (point) t t)
  (re-search-forward "^=" nil t)
  (beginning-of-line)
  (next-line 2)
  (delete-region (region-beginning) (region-end))
  (re-search-forward "^=" nil t)
  (beginning-of-line)
  (push-mark (point) t t)
  (goto-char (point-max))
)
#####

The first push-mark works and I can delete with delete-region. But the
second does not work. There is no region selected after the last two
statements. What am I doing wrong?

Re: Why is there no selected region in the second case

[Nikolaj Schumacher]

Decebal <CLDWesterhof@gmail.com> wrote:

> The first push-mark works and I can delete with delete-region. But the
> second does not work. There is no region selected after the last two
> statements. What am I doing wrong?

Actually the second one works, too.  However, in Emacs, the region is
visually highlighted only when the mark is "active".

Are you sure you want to activate the mark, though?  Normally you would
save the position in a variable, something like this:

(save-excursion
  (goto-char (point-min))
  (let ((beg (point)))
    (re-search-forward "^=" nil t)
    (forward-line 2)
    (delete-region beg (point))))


regards,
Nikolaj Schumacher

Re: Why is there no selected region in the second case

[Decebal]

On Sep 30, 7:00 pm, Nikolaj Schumacher <m...@nschum.de> wrote:
> Decebal <CLDWester...@gmail.com> wrote:
> > The first push-mark works and I can delete with delete-region. But the
> > second does not work. There is no region selected after the last two
> > statements. What am I doing wrong?
>
> Actually the second one works, too.  However, in Emacs, the region is
> visually highlighted only when the mark is "active".
>
> Are you sure you want to activate the mark, though?  Normally you would
> save the position in a variable, something like this:
>
> (save-excursion
>   (goto-char (point-min))
>   (let ((beg (point)))
>     (re-search-forward "^=" nil t)
>     (forward-line 2)
>     (delete-region beg (point))))

That is much better yes. I allready did something like that:
  (goto-char (point-min))
  (re-search-forward "^=" nil nil)
  (forward-line 2)
  (delete-region (point-min) (point))
  (re-search-forward "^=" nil nil)
  (beginning-of-line)
  (delete-region (point) (point-max))

Because the buffer has to be deleted from the beginning, I do not need
to save the point. But otherwise it should be done offcourse.

Thanks for the info.