From: Glenn Morris <rgm@gnu.org>
Date: Wed, 21 Mar 2018 18:10:05 +0000 (-0400)
Subject: * lisp/play/fortune.el (fortune-message):
X-Git-Tag: emacs-27.0.90~5444
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=03a27fab69e48f350679de8ef76c4b803d882e91;p=emacs.git

* lisp/play/fortune.el (fortune-message):
Avoid trailing newline.  (Bug#30887)
---

diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el
index 74ace06c011..740f436711a 100644
--- a/lisp/play/fortune.el
+++ b/lisp/play/fortune.el
@@ -313,6 +313,8 @@ Optional FILE is a fortune file from which a cookie will be selected."
   (with-temp-buffer
     (let ((fortune-buffer-name (current-buffer)))
       (fortune-in-buffer t file)
+      ;; Avoid trailing newline.
+      (if (bolp) (delete-char -1))
       (message "%s" (buffer-string)))))
 
 ;;;###autoload