diff options
| author | Stefan Monnier | 2019-11-16 14:35:36 +1300 |
|---|---|---|
| committer | Phil Sainty | 2019-11-18 21:25:36 +1300 |
| commit | 206f36b38cfe50e92acc8d48926d1e5e2dec5939 (patch) | |
| tree | 1b102083a81a90e2f09e37de69253817caf4e3bc | |
| parent | bf7934a63de50c8913d0304371ba404d81d540bd (diff) | |
| download | emacs-206f36b38cfe50e92acc8d48926d1e5e2dec5939.tar.gz emacs-206f36b38cfe50e92acc8d48926d1e5e2dec5939.zip | |
; * lisp/so-long.el: Use declare-function nearer the code that needs it
| -rw-r--r-- | lisp/so-long.el | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/lisp/so-long.el b/lisp/so-long.el index 208bdf4ce91..c7931e737cc 100644 --- a/lisp/so-long.el +++ b/lisp/so-long.el | |||
| @@ -415,15 +415,6 @@ | |||
| 415 | 415 | ||
| 416 | (declare-function longlines-mode "longlines") | 416 | (declare-function longlines-mode "longlines") |
| 417 | (defvar longlines-mode) | 417 | (defvar longlines-mode) |
| 418 | |||
| 419 | (declare-function outline-next-visible-heading "outline") | ||
| 420 | (declare-function outline-previous-visible-heading "outline") | ||
| 421 | (declare-function outline-toggle-children "outline") | ||
| 422 | (declare-function outline-toggle-children "outline") | ||
| 423 | |||
| 424 | (declare-function ad-find-advice "advice") | ||
| 425 | (declare-function ad-remove-advice "advice") | ||
| 426 | |||
| 427 | (defvar so-long-enabled nil | 418 | (defvar so-long-enabled nil |
| 428 | "Set to nil to prevent `so-long' from being triggered automatically. | 419 | "Set to nil to prevent `so-long' from being triggered automatically. |
| 429 | 420 | ||
| @@ -985,6 +976,10 @@ REPLACEMENT is a `so-long-action-alist' item." | |||
| 985 | (rename-buffer buf) | 976 | (rename-buffer buf) |
| 986 | ;; Enable `outline-mode' and `view-mode' for user convenience. | 977 | ;; Enable `outline-mode' and `view-mode' for user convenience. |
| 987 | (outline-mode) | 978 | (outline-mode) |
| 979 | (declare-function outline-next-visible-heading "outline") | ||
| 980 | (declare-function outline-previous-visible-heading "outline") | ||
| 981 | (declare-function outline-toggle-children "outline") | ||
| 982 | (declare-function outline-toggle-children "outline") | ||
| 988 | (view-mode 1) | 983 | (view-mode 1) |
| 989 | ;; Add some custom local bindings. | 984 | ;; Add some custom local bindings. |
| 990 | (let ((map (make-sparse-keymap))) | 985 | (let ((map (make-sparse-keymap))) |
| @@ -1832,6 +1827,8 @@ If it appears in `%s', you should remove it." | |||
| 1832 | (when (version< so-long-version "1.0") | 1827 | (when (version< so-long-version "1.0") |
| 1833 | (remove-hook 'change-major-mode-hook 'so-long-change-major-mode) | 1828 | (remove-hook 'change-major-mode-hook 'so-long-change-major-mode) |
| 1834 | (require 'advice) | 1829 | (require 'advice) |
| 1830 | (declare-function ad-find-advice "advice") | ||
| 1831 | (declare-function ad-remove-advice "advice") | ||
| 1835 | (when (ad-find-advice 'hack-local-variables 'after 'so-long--file-local-mode) | 1832 | (when (ad-find-advice 'hack-local-variables 'after 'so-long--file-local-mode) |
| 1836 | (ad-remove-advice 'hack-local-variables 'after 'so-long--file-local-mode) | 1833 | (ad-remove-advice 'hack-local-variables 'after 'so-long--file-local-mode) |
| 1837 | (ad-activate 'hack-local-variables)) | 1834 | (ad-activate 'hack-local-variables)) |