[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/so-long-updates b5f3225 5/7: Backwards-compatibility function de
From: |
Phil |
Subject: |
scratch/so-long-updates b5f3225 5/7: Backwards-compatibility function definitions for so-long.el |
Date: |
Sat, 9 Nov 2019 03:23:30 -0500 (EST) |
branch: scratch/so-long-updates
commit b5f32256d90d46c11cfe7822b6fd71d723dd75ff
Author: Phil Sainty <address@hidden>
Commit: Phil Sainty <address@hidden>
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.
---
lisp/so-long.el | 17 +++++++++++++++++
1 file changed, 17 insertions(+)
diff --git a/lisp/so-long.el b/lisp/so-long.el
index cfd1d43..a96f2af 100644
--- 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")))
+
(provide 'so-long)
- branch scratch/so-long-updates created (now d696338), Phil, 2019/11/09
- scratch/so-long-updates 486fb50 3/7: ; * lisp/so-long.el (so-long-predicate): Custom type consistency, Phil, 2019/11/09
- scratch/so-long-updates d1ea18e 4/7: * lisp/so-long.el (so-long-unload-function): Improved feature unload, Phil, 2019/11/09
- scratch/so-long-updates b5f3225 5/7: Backwards-compatibility function definitions for so-long.el,
Phil <=
- scratch/so-long-updates 622f53f 6/7: Support loading so-long.el on top of an earlier version, Phil, 2019/11/09
- scratch/so-long-updates 929573b 1/7: ; Documentation and spelling, Phil, 2019/11/09
- scratch/so-long-updates d696338 7/7: Make so-long disable flymake, flyspell, flycheck, Phil, 2019/11/09
- scratch/so-long-updates a017364 2/7: Defer triggering `so-long' until the buffer is displayed, Phil, 2019/11/09