diff options
author | Phil Sainty <psainty@orcon.net.nz> | 2019-10-22 00:01:59 +1300 |
---|---|---|
committer | Phil Sainty <psainty@orcon.net.nz> | 2019-11-15 00:39:13 +1300 |
commit | b28f35ac65631243b8e29856a2d13e70d2567b53 (patch) | |
tree | 02e39d4ac63a187e66f5b9982b5233744a7ad031 /lisp/so-long.el | |
parent | bf29fc46c81114909bcfe9c4b60bd419651b49a7 (diff) | |
download | emacs-b28f35ac65631243b8e29856a2d13e70d2567b53.tar.gz |
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.
Diffstat (limited to 'lisp/so-long.el')
-rw-r--r-- | lisp/so-long.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lisp/so-long.el b/lisp/so-long.el index 5c9711b0bb0..982a699667a 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) |