[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Writing text to a dedicated buffer
From: |
Christopher Dimech |
Subject: |
Re: Writing text to a dedicated buffer |
Date: |
Sun, 2 May 2021 15:25:07 +0200 |
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))) )
>
>
>