From: Phil Sainty <psainty@orcon.net.nz>
Date: Tue, 18 Feb 2025 12:02:22 +0000 (+1300)
Subject: ; * lisp/so-long.el: Documentation
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e16c71d1fe6aef59555e857a6f5621d353095e4b;p=emacs.git

; * lisp/so-long.el: Documentation

(cherry picked from commit 87f9c09ab5fbfa9652aabe2799df654456d5e04c)
---

diff --git a/lisp/so-long.el b/lisp/so-long.el
index 6ce9078bc28..6f6e2ec7963 100644
--- a/lisp/so-long.el
+++ b/lisp/so-long.el
@@ -383,6 +383,43 @@
 ;; Finally, the `so-long-predicate' user option enables the automated behavior
 ;; to be determined by a custom function, if greater control is needed.
 
+;; * Non-file buffers
+;; ------------------
+;; As noted in the introduction, `global-so-long-mode' only affects buffers
+;; visiting files, and only at the point in time that they are visited.  The
+;; library does not automatically detect if long lines are inserted into an
+;; existing buffer, which means that non-file buffers are not processed at all
+;; by the global mode (although the `so-long' command can be invoked manually).
+;; To handle such buffers additional glue code will be required, and that code
+;; should likely be specific to the particular use-case to avoid unintended
+;; behaviours.
+;;
+;; An example to handle `compilation-mode' (and derivative) buffers follows:
+;;
+;;   ;; Trigger `so-long-minor-mode' for long compile output.
+;;   (with-eval-after-load 'compile
+;;     (require 'so-long))
+;;
+;;   (add-hook 'compilation-mode-hook 'my-so-long-compilation-mode)
+;;
+;;   (defun my-so-long-compilation-mode ()
+;;     "Add `my-so-long-compilation-filter' to local `compilation-filter-hook'."
+;;     (add-hook 'compilation-filter-hook
+;;               'my-so-long-compilation-filter nil :local))
+;;
+;;   (defun my-so-long-compilation-filter ()
+;;     "Maybe call `so-long-minor-mode' during `compilation-filter-hook'."
+;;     (let ((start (save-excursion (goto-char compilation-filter-start)
+;;                                  (line-beginning-position))))
+;;       (when (> (- (point) start) so-long-threshold)
+;;         (save-restriction
+;;           (narrow-to-region start (point))
+;;           (when (let (so-long-max-lines so-long-skip-leading-comments)
+;;                   (funcall so-long-predicate))
+;;             (so-long-minor-mode 1)
+;;             (remove-hook 'compilation-filter-hook
+;;                          'my-so-long-compilation-filter :local))))))
+
 ;; * Implementation notes
 ;; ----------------------
 ;; This library advises `set-auto-mode' (in order to react after Emacs has
@@ -1483,14 +1520,14 @@ The variables are set in accordance with what was remembered in `so-long'."
       (kill-local-variable variable))))
 
 (defun so-long-mode-maintain-preserved-variables ()
-  "Set any \"preserved\" variables.
+  "Set variables listed in `so-long-mode-preserved-variables'.
 
 The variables are set in accordance with what was remembered in `so-long'."
   (dolist (var (so-long-original 'so-long-mode-preserved-variables))
     (so-long-restore-variable var)))
 
 (defun so-long-mode-maintain-preserved-minor-modes ()
-  "Enable or disable \"preserved\" minor modes.
+  "Enable or disable modes listed in `so-long-mode-preserved-minor-modes'.
 
 The modes are set in accordance with what was remembered in `so-long'."
   (dolist (mode (so-long-original 'so-long-mode-preserved-minor-modes))