procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make so-long test pass following lisp-mnt change

Browse source 
* lisp/so-long.el (so-long-commentary): Update for lisp-mnt change.
This commit is contained in:
Glenn Morris 2020-01-23 18:42:02 -08:00
parent 963a9ffd66
commit 04ca1a1e08
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/so-long.el
View file

@ -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 ""))))