From: Glenn Morris <rgm@gnu.org>
Date: Fri, 24 Jan 2020 02:42:02 +0000 (-0800)
Subject: Make so-long test pass following lisp-mnt change
X-Git-Tag: emacs-28.0.90~7908^2~64
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=04ca1a1e080df1801f5ad8e9bc7d4cf68661ca5f;p=emacs.git

Make so-long test pass following lisp-mnt change

* lisp/so-long.el (so-long-commentary): Update for lisp-mnt change.
---

diff --git a/lisp/so-long.el b/lisp/so-long.el
index dcf7e62ca74..6b05f4821b1 100644
--- a/lisp/so-long.el
+++ b/lisp/so-long.el
@@ -353,7 +353,7 @@
 ;; this caveat is the `mode' pseudo-variable, which is processed early in all
 ;; versions of Emacs, and can be set to `so-long-mode' if desired.
 
-;;; * Change Log:
+;; * Change Log:
 ;;
 ;; 1.0   - Included in Emacs 27.1, and in GNU ELPA for prior versions of Emacs.
 ;;       - New global mode `global-so-long-mode' to enable/disable the library.
@@ -944,8 +944,10 @@ This command calls `so-long' with the selected action as an argument.")
     (cl-letf (((symbol-function 'finder-summary) #'ignore))
       (finder-commentary "so-long"))
     (let ((inhibit-read-only t))
-      (when (looking-at "^Commentary:\n\n")
-        (replace-match "so-long.el\n\n"))
+      (if (looking-at "^Commentary:\n\n")
+          (replace-match "so-long.el\n\n")
+        (insert "so-long.el\n")
+        (forward-line 1))
       (save-excursion
         (while (re-search-forward "^-+$" nil :noerror)
           (replace-match ""))))