Backwards-compatibility function definitions for so-long.el

* so-long.el (so-long-inhibit-whitespace-mode)
(so-long-make-buffer-read-only, so-long-revert-buffer-read-only)
(so-long-inhibit-global-hl-line-mode): Restore dummy definitions of
now-obsolete hook functions used by earlier versions of so-long.el,
to support users who have saved these symbols in their customized
values for the hooks in question.

diff --git a/lisp/so-long.el b/lisp/so-long.el
index 5c9711b0bb038acd1c199135b82886a5d5c19181..982a699667ad07fcf477f7b455a1f0344c50c817 100644 (file)
--- a/lisp/so-long.el
+++ b/lisp/so-long.el
@@ -1801,6 +1801,23 @@ or call the function `global-so-long-mode'.")
              (message "Error unloading so-long: %S %S" (car err) (cdr err))
              t))))
 
+;; Backwards-compatibility definitions.
+;;
+;; The following obsolete functions may exist in the user's customized hook
+;; values dating from versions < 1.0, so we need to ensure that such saved
+;; values will not trigger errors.
+(cl-flet ((ignore () nil))
+  (dolist (hookfunc '((so-long-inhibit-whitespace-mode . so-long-hook)
+                      (so-long-make-buffer-read-only . so-long-hook)
+                      (so-long-revert-buffer-read-only . so-long-revert-hook)
+                      (so-long-inhibit-global-hl-line-mode . so-long-mode-hook)))
+    (defalias (car hookfunc) #'ignore
+      (format "Obsolete function.  It now does nothing.
+
+If it appears in `%s', you should remove it."
+              (cdr hookfunc)))
+    (make-obsolete (car hookfunc) nil "so-long.el version 1.0")))
+
 \f
 (provide 'so-long)