[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/so-long-updates 690d065 3/6: ; * lisp/so-long.el: Use declare-fu
From: |
Phil |
Subject: |
scratch/so-long-updates 690d065 3/6: ; * lisp/so-long.el: Use declare-function nearer the code that needs it |
Date: |
Sat, 16 Nov 2019 20:40:59 -0500 (EST) |
branch: scratch/so-long-updates
commit 690d065f2e01d675491ae2db08b22dd750c3f4f9
Author: Stefan Monnier <address@hidden>
Commit: Phil Sainty <address@hidden>
; * lisp/so-long.el: Use declare-function nearer the code that needs it
---
lisp/so-long.el | 15 ++++++---------
1 file changed, 6 insertions(+), 9 deletions(-)
diff --git a/lisp/so-long.el b/lisp/so-long.el
index 208bdf4..c7931e7 100644
--- a/lisp/so-long.el
+++ b/lisp/so-long.el
@@ -415,15 +415,6 @@
(declare-function longlines-mode "longlines")
(defvar longlines-mode)
-
-(declare-function outline-next-visible-heading "outline")
-(declare-function outline-previous-visible-heading "outline")
-(declare-function outline-toggle-children "outline")
-(declare-function outline-toggle-children "outline")
-
-(declare-function ad-find-advice "advice")
-(declare-function ad-remove-advice "advice")
-
(defvar so-long-enabled nil
"Set to nil to prevent `so-long' from being triggered automatically.
@@ -985,6 +976,10 @@ REPLACEMENT is a `so-long-action-alist' item."
(rename-buffer buf)
;; Enable `outline-mode' and `view-mode' for user convenience.
(outline-mode)
+ (declare-function outline-next-visible-heading "outline")
+ (declare-function outline-previous-visible-heading "outline")
+ (declare-function outline-toggle-children "outline")
+ (declare-function outline-toggle-children "outline")
(view-mode 1)
;; Add some custom local bindings.
(let ((map (make-sparse-keymap)))
@@ -1832,6 +1827,8 @@ If it appears in `%s', you should remove it."
(when (version< so-long-version "1.0")
(remove-hook 'change-major-mode-hook 'so-long-change-major-mode)
(require 'advice)
+ (declare-function ad-find-advice "advice")
+ (declare-function ad-remove-advice "advice")
(when (ad-find-advice 'hack-local-variables 'after
'so-long--file-local-mode)
(ad-remove-advice 'hack-local-variables 'after 'so-long--file-local-mode)
(ad-activate 'hack-local-variables))
- branch scratch/so-long-updates created (now ca84ddd), Phil, 2019/11/16
- scratch/so-long-updates 690d065 3/6: ; * lisp/so-long.el: Use declare-function nearer the code that needs it,
Phil <=
- scratch/so-long-updates d985eba 1/6: ; * lisp/so-long.el: Delete redundant :group declarations, Phil, 2019/11/16
- scratch/so-long-updates 95b499d 4/6: * lisp/so-long.el: Use (interactive "@") for menu commands, Phil, 2019/11/16
- scratch/so-long-updates caa1630 2/6: ; * lisp/so-long.el: Use function quoting in example configuration, Phil, 2019/11/16
- scratch/so-long-updates bcf697b 5/6: * lisp/so-long.el (so-long): Firstly revert the existing action, if any, Phil, 2019/11/16
- scratch/so-long-updates ca84ddd 6/6: * lisp/so-long.el (so-long-menu): Refactor action commands, Phil, 2019/11/16