Re: Inserting some text in a working buffer

[michael-franzese]

Thank you Emanuel, glad you found the post amusing.

Apart further into giggles, I would  like to insert the text starting from the 
current
point to column position 62.  But with the following code, the text is being 
inserted
before (point) rather than at (point).


(defun text-insert (text)
  "Inserts text starting at cursor point."
  (interactive)

  (message "[text-insert] p %d" (point))
  (insert text)
  (forward-line) )

(defun bifurc ()
  "Insert text at point"
  (interactive)

  (message "(line-beginning-position) (point) %d %d"
           (line-beginning-position) (point))

  (setq-local d (- (point) (line-beginning-position)))
  (setq-local n (- 63 d))
  (setq-local m (- 69 d))
  (message "[bifurc] (m,n) %d %d %d" m n d)

  (setq-local s (make-string n ?\;))

  (text-insert s) )







> Sent: Sunday, May 09, 2021 at 6:02 AM
> From: "Emanuel Berg via Users list for the GNU Emacs text editor" 
> <help-gnu-emacs@gnu.org>
> To: help-gnu-emacs@gnu.org
> Subject: Re: Inserting some text in a working buffer
>
> michael-franzese wrote:
>
> > (defun insert-text (text)
> >   "Inserts text frem beginning of line located at cursor point."
> >   (interactive)
> >   (with-current-buffer (buffer-name)
> >     (goto-char (point))
> >     (insert text)
> >     (next-line)) )
>
> Hahaha :)
>
> "(with-current-buffer (buffer-name)" - you are already in that
> buffer...
>
> and "(goto-char (point))" - you are already there!
>
> "(next-line)" - see the help, one should use `forward-line'...
>
> There is nothing in the code to do it "frem" beginning of line
> but you can use `beginning-of-line' for that...
>
> --
> underground experts united
> https://dataswamp.org/~incal
>
>
>