]> git.eshelyaron.com Git - emacs.git/commitdiff
Make so-long test pass following lisp-mnt change
authorGlenn Morris <rgm@gnu.org>
Fri, 24 Jan 2020 02:42:02 +0000 (18:42 -0800)
committerGlenn Morris <rgm@gnu.org>
Fri, 24 Jan 2020 02:42:02 +0000 (18:42 -0800)
* lisp/so-long.el (so-long-commentary): Update for lisp-mnt change.

lisp/so-long.el

index dcf7e62ca744de8ca2715e6a058f8d11da9075c6..6b05f4821b1a0804bac782e80989ba15a91cfca3 100644 (file)
 ;; 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 ""))))