From 03a27fab69e48f350679de8ef76c4b803d882e91 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 21 Mar 2018 14:10:05 -0400 Subject: [PATCH] * lisp/play/fortune.el (fortune-message): Avoid trailing newline. (Bug#30887) --- lisp/play/fortune.el | 2 ++ 1 file changed, 2 insertions(+) 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 -- 2.39.5