Re: Writing text to a dedicated buffer

[Christopher Dimech <dimech@gmx.com>]

I have done the writing to a dedicated buffer as follows,
using "gungadin-bufr-insert" for writing to the Gungadin buffer.

-------- code --------

(setq gungadin-bufr (generate-new-buffer "*Gungadin*"))

(defvar gungadin-guidance-message
  "C-h f flight\n")

(defun gungadin-guidance-message ()
   "Displays embedded rudimentary help for gungadin in a dedicated buffer."

   (message "%s" gungadin-guidance-message)

   (let (($out-buffer (get-buffer-create "*Gungadin*")))
     (with-current-buffer $out-buffer
       (insert "\nGungadin\n\n")
       (insert "Gungadin is part of Behistun, a Gnu Package.\n\n")
       (insert "Gungadin 1.0 of 2017-05-02\n")
       (insert "Copyright (C) 2017 Christopher Dimech\n\n")
       (insert "Author: Christopher Dimech\n\n")

       (insert gungadin-guidance-message)
       (pop-to-buffer $out-buffer))) )

;; (switch-to-buffer GdBfr)

(defun gungadin-bufr-insert (format-string)
   "Display a message at the bottom of the Gungadin Buffer."

   (set-buffer gungadin-bufr)
   (with-current-buffer gungadin-bufr
     (insert format-string)) )

(gungadin-guidance-message)
(gungadin-bufr-insert "***** TEST")





> Sent: Monday, May 03, 2021 at 12:48 AM
> From: "Christopher Dimech" <dimech@gmx.com>
> To: "Help Gnu Emacs" <help-gnu-emacs@gnu.org>
> Subject: Writing text to a dedicated buffer
>
> I am writing text to a package dedicated buffer.  Is this the way to
> go about doing that.  Or are there neater ways?
>
>
> (defun gungadin-guidance-message ()
>    "Displays embedded rudimentary help for gungadin.
> Gungadin forms part of Behistun, a Gnu Package."
>
>    (let ((out-buffer (get-buffer-create "*Gungadin*")))
>      (with-current-buffer out-buffer
>        (insert "\nGungadin\n\n")
>        (insert "Gungadin is part of Behistun, a Gnu Package.\n\n")
>        (insert "Gungadin 1.0 of 2017-05-02")
>        (insert "\nCopyright (C) 2017 Christopher Dimech\n")
>        (insert "\nAuthor: Christopher Dimech")
>
>        (insert gungadin-guidance-message)
>        (pop-to-buffer out-buffer))) )
>
>
>