Skip to content

Commit 04ca1a1

Browse files
committed
Make so-long test pass following lisp-mnt change
* lisp/so-long.el (so-long-commentary): Update for lisp-mnt change.
1 parent 963a9ff commit 04ca1a1

File tree

1 file changed

+5
-3
lines changed

1 file changed

+5
-3
lines changed

lisp/so-long.el

Lines changed: 5 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -353,7 +353,7 @@
353353
;; this caveat is the `mode' pseudo-variable, which is processed early in all
354354
;; versions of Emacs, and can be set to `so-long-mode' if desired.
355355

356-
;;; * Change Log:
356+
;; * Change Log:
357357
;;
358358
;; 1.0 - Included in Emacs 27.1, and in GNU ELPA for prior versions of Emacs.
359359
;; - 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.")
944944
(cl-letf (((symbol-function 'finder-summary) #'ignore))
945945
(finder-commentary "so-long"))
946946
(let ((inhibit-read-only t))
947-
(when (looking-at "^Commentary:\n\n")
948-
(replace-match "so-long.el\n\n"))
947+
(if (looking-at "^Commentary:\n\n")
948+
(replace-match "so-long.el\n\n")
949+
(insert "so-long.el\n")
950+
(forward-line 1))
949951
(save-excursion
950952
(while (re-search-forward "^-+$" nil :noerror)
951953
(replace-match ""))))

0 commit comments

Comments
 (0)