[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#30887: 27.0.50; fortune-message occupys two lines of height for one
|
From: |
Glenn Morris |
|
Subject: |
bug#30887: 27.0.50; fortune-message occupys two lines of height for one line message |
|
Date: |
Wed, 21 Mar 2018 14:16:10 -0400 |
|
User-agent: |
Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) |
Version: 27.1
commit 03a27fa
Date: Wed Mar 21 14:10:05 2018 -0400
* lisp/play/fortune.el (fortune-message):
Avoid trailing newline. (Bug#30887)
diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el
index 74ace06..740f436 100644
--- a/lisp/play/fortune.el
+++ b/lisp/play/fortune.el
@@ -313,6 +313,8 @@ fortune-message
(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