diff options
Diffstat (limited to 'lisp/so-long.el')
| -rw-r--r-- | lisp/so-long.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/so-long.el b/lisp/so-long.el index c800c7a1430..6ae8d0aec8a 100644 --- a/lisp/so-long.el +++ b/lisp/so-long.el @@ -389,7 +389,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. @@ -833,7 +833,7 @@ available in Emacs versions < 27). For more information refer to info node `(emacs) Bidirectional Editing' and info node `(elisp) Bidirectional Display'. Buffers are made read-only by default to prevent potentially-slow editing from -occurring inadvertantly, as buffers with excessively long lines are likely not +occurring inadvertently, as buffers with excessively long lines are likely not intended to be edited manually." :type '(alist :key-type (variable :tag "Variable") :value-type (sexp :tag "Value")) @@ -1001,8 +1001,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 "")))) |